%@AUTEUR: Juergen Gilg
\psset[pst-solides3d]{viewpoint=10 9 10,SphericalCoor,
	Decran=60,lightsrc=5 -5 5}
\begin{pspicture}(-6,-6)(-6,6)
\rput(0,0){
\defFunction[algebraic]{klein}(u,v){2/3*(cos(u)*cos(2*v)+
    sqrt(2)*sin(u)*cos(v))*cos(u)/(sqrt(2)-sin(2*u)*sin(3*v))}%
{sqrt(2)*cos(u)*cos(u)/(sqrt(2)-sin(2*u)*sin(3*v))}%
{2/3*(cos(u)*sin(2*v)-sqrt(2)*sin(u)*sin(v))*cos(u)/(sqrt(2)-
    sin(2*u)*sin(3*v))}
\psSolid[object=surfaceparametree,
    base=0 pi 0 pi,
    linecolor={[cmyk]{1,0,1,0.5}},linewidth=0.75\pslinewidth,
    ngrid=90,
%    RotY=90,
    RotZ=105,
    function=klein]%
}
\end{pspicture}