\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}
\usepackage{multido}
\usepackage{graphicx}
\usepackage[height=260mm,width=183mm,a4paper]{geometry}
\usepackage{lmodern}
\usepackage{pst-solides3d,pstricks, pst-all,pstricks-add}
\pagestyle{empty}
\begin{document}



\pagestyle{empty}



\psset{unit=1}
\psset{lightsrc=30 -10 10,linewidth=0.5\pslinewidth}
\multido{\n=0+0.25}{11}{ 
\psset{SphericalCoor,viewpoint=30 30 30,Decran=50}
\begin{center}
\begin{pspicture}(-4.5,-6)(4.5,6)
\psSurface[
   fillcolor=cyan!60,tracelignedeniveau=true,
   linewidthlignedeniveau =3,
   couleurlignedeniveau=blue,
 hauteurlignedeniveau=\n,
   ngrid=.1 .1,incolor=yellow,
   Zmin=0,Zmax=3](-3,-3)(3,3){%
   x x x mul x mul 3 div sub x y mul sub y y mul sub 1.5 add 0 max 
    }
\psPoint(-3,3,\n){P\n}
\uput[r](P\n){\textcolor{blue}{$\n$}}
\end{pspicture}
\end{center}
\begin{center}
\psset{SphericalCoor,viewpoint=30 30 90,Decran=50}
\begin{pspicture}(-4.5,-6)(4.5,6)
\psSurface[
   fillcolor=cyan!60,tracelignedeniveau=true,
   linewidthlignedeniveau =3,
   couleurlignedeniveau=blue,
 hauteurlignedeniveau=\n,
   ngrid=.1 .1,incolor=yellow,
   Zmin=0,Zmax=3](-3,-3)(3,3){%
   x x x mul x mul 3 div sub x y mul sub y y mul sub 1.5 add 0 max 
    }
\psPoint(-3,3,\n){P\n}
\uput[r](P\n){\textcolor{blue}{$\n$}}
\end{pspicture}
\end{center}
 \newpage
}







\end{document}







%  \begin{pspicture}(-4.5,-4.5 )(4.5,4.5)


% \psset{range=-4 4}
% \deffunctionR{CosRad}(t){t 2 mul Cos 4 mul}{t}{0}
% \psSolid[object=grille,base=-4 4 -4 4]%
% \psSolid[object=courbe,linewidth=0.1,
%         linecolor=red,
%         resolution=360,
%         function=CosRad]%
% \deffunctionR{sinRad}(t){t}{t Sin 3 mul}{3}
% \psSolid[object=grille,base=-4 4 -4 4](0,0,3)
% \psSolid[object=courbe,
%         linecolor=blue,
%         resolution=360,
%         function=sinRad]

% %\composeSolid
% \end{pspicture}
\end{document}

