User Portlet User Portlet

Discussions
My first introdcution in mathematica resulted in following plot Plot3D[(((-0.0023*x^2+0.525*x+1 )^2)*((1-(((z)^2)/((12-((0.0006*(180-x)^2-0.1118*(180-x)+1)) )^2)))^0.5)),{x,0,180},{z,0,16},AspectRatio ->Automatic] however the result gives...