ex_15.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
\psset[pst-solides3d]{viewpoint=5 5 5,SphericalCoor,
	Decran=40,lightsrc=15 5 5}
\begin{pspicture}(-6,-11)(-6,7)
\rput(0,0){
\defFunction[algebraic]{klein}(u,v){(1-sqrt(u*u+v*v)/sqrt(2*pi*pi))*cos(u)*cos(v)+
    sqrt(u*u+v*v)/sqrt(2*pi*pi)*sin(u)*sin(v)}%
{(1-sqrt(u*u+v*v)/sqrt(2*pi*pi))*cos(u+4*pi/3)*cos(v+4*pi/3)+
    sqrt(u*u + v*v)/sqrt(2*pi*pi)*sin(u+4*pi/3)*sin(v+4*pi/3)}%
{(1-sqrt(u*u+v*v)/sqrt(2*pi*pi))*cos(u+2*pi/3)*cos(v+2*pi/3)+
    sqrt(u*u + v*v)/sqrt(2*pi*pi)*sin(u+2*pi/3)*sin(v+2*pi/3)}
\psSolid[object=surfaceparametree,
    base=pi neg pi pi neg pi,
    linecolor=lightgray,linewidth=0.75\pslinewidth,
    incolor=gray,
    fillcolor=gray,
    ngrid=60,
%    RotY=55,
%    RotX=-90,
    RotZ=-45,
    function=klein]%
}
\end{pspicture}
 
\end{document}