||'''Book'''|| Advanced Engineering Mathematics ||
 ||'''Author'''|| Erwin Kreyszig ||
 ||'''Edition'''|| 8th Edition ||

/* code_begins */
/*
v=w*r  v,w,r are vectors
w is a vector along +ve z axis of magnitude some "p"
*/

{{{
var('p')
w=vector([0,0,p])
print w
var('x')
var('y')
var('z')
r=vector([x , y , z])
print r
w.cross_product(r)
p=10
f=(x**2+y**2)**(1/2)
print f
plot3d(p*f, (x, -100, 100), (y,-100,100))
}}}

/* code_ends */

 * '''Solution by''': 
   * <A.V.Trinath>, <student>, <IIIT-H>