mobius_01.tex

\documentclass{minimal}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
 
\begin{pspicture}(-6,-3)(6,3)
\psset{unit=1.5}
\defFunction{mobius}(u,v)
   {2 u v Cos mul add 2 v mul Cos mul}
   {2 u v Cos mul add 2 v mul Sin mul}
   {u v Sin mul}
%\defFunction[algebraic]{mobius}(u,v)
%   {(2+u*cos(v))*cos(2*v)}
%   {(2+u*cos(v))*sin(2*v)}
%   {u*sin(v)}
\psframe*[linecolor=green!50](-6,-3)(6,3)
\psset[pst-solides3d]{viewpoint=20 10 5,Decran=40,lightsrc=20 10 10}
\psSolid[object=parallelepiped,a=5,b=5,c=0.5](0,0,-0.5)
\psSolid[object=grille,base=-2.5 2.5 -2.5 2.5,ngrid=0.25,
   linewidth=0.5\pslinewidth](0,0,-0.25)
\psSolid[object=surfaceparametree,linewidth=0.75\pslinewidth,
   base=0.2 0.25 0 pi,linewidth=0.1,
   function=mobius,
   ngrid=.025]%
\psSolid[object=surfaceparametree,linewidth=0.75\pslinewidth,
   base=-0.25 -0.2 0 pi,linewidth=0.1,
   function=mobius,
   ngrid=.025]%
\psSolid[object=surfaceparametree,linewidth=0.5\pslinewidth,
   base=-0.25 0.25 0 pi,fillcolor=yellow!50,incolor=yellow!50,
   function=mobius,
   ngrid=.05]%
\psSolid[object=parallelepiped,
   a=4.5,b=4.5,c=0.5,action=draw]
\psset{solidmemory}
\psSolid[object=plan,
   definition=normalpoint,
   args={2.5 0 0 [1 0 0 90]},
   action=none,name=monplan]
\psProjection[object=texte,
   fontsize=15,pos=cc,
   text={ruban de Möbius},
   plan=monplan](0,-.5)
\psSolid[object=plan,
   definition=normalpoint,
   args={0 2.5 0 [0 1 0 180]},
   action=none,name=monplan]
\psProjection[object=texte,
   fontsize=15,
   text={pst-solides3d},
   plan=monplan](0,-0.5)
\psPoint(2.25,0,0){X1}\psPoint(3.5,0,0){X2}
\psPoint(0,2.25,0){Y1}\psPoint(0,3.5,0){Y2}
\psPoint(0,0,0){Z1}\psPoint(0,0,1.5){Z2}
\psline{->}(X1)(X2)\uput[dl](X2){$x$}
\psline{->}(Y1)(Y2)\uput[dr](Y2){$y$}
\psline{->}(Z1)(Z2)\uput[r](Z2){$z$}
\end{pspicture}
 
 
\end{document}