\documentclass{article} \usepackage{amsmath,amssymb} \usepackage{multido} \usepackage[nomessages]{fp} \usepackage{pstricks-add} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} \psset{unit=0.85} \def\myFigure{% \psset{lightsrc=10 -20 50,SphericalCoor,viewpoint=50 -20 20,Decran=50} \pstVerb{% /tmin 0 def /tmax 7 def /xi 1 \ai\space 2.5 mul cos sub 1.3 mul 6 \ai\space mul cos mul def /yi 1 \ai\space 2.5 mul cos sub 1.3 mul 6 \ai\space mul sin mul def /zi \ai\space def }% \psSolid[object=grille,base=-4 4 -4 4,linecolor=lightgray,linewidth=0.5\pslinewidth]% \psSolid[object=grille,base=-4 4 0 8,linecolor=lightgray,RotX=90,linewidth=0.5\pslinewidth](0,4,0) \psSolid[object=grille,base=-4 4 -4 4,linecolor=lightgray,RotY=90,linewidth=0.5\pslinewidth](-4,0,4) %\psPoint(xi,yi,zi){O} %\psPoint(xi,yi,0){XY} %\psPoint(xi,4,zi){XZ} %\psPoint(-4,yi,zi){YZ} %\psline[linestyle=dashed,linecolor=gray](O)(XY) %\psline[linestyle=dashed,linecolor=gray](O)(XZ) %\psline[linestyle=dashed,linecolor=gray](O)(YZ) \deffunctionR[algebraic]{helice}(t){1.3*(1-cos(\ai\space*t))*cos(6*t)}{1.3*(1-cos(\ai\space*t))*sin(6*t)}{t} \deffunctionR[algebraic]{helice_xy}(t){1.3*(1-cos(\ai\space*t))*cos(6*t)}{1.3*(1-cos(\ai\space*t))*sin(6*t)}{0} \deffunctionR[algebraic]{helice_xz}(t){1.3*(1-cos(\ai\space*t))*cos(6*t)}{4}{t} \deffunctionR[algebraic]{helice_yz}(t){-4}{1.3*(1-cos(\ai\space*t))*sin(6*t)}{t} \psSolid[object=courbe, linecolor=blue, linewidth=0.05, resolution=360, normale=0 0 1, function=helice_xy]% \psSolid[object=courbe, linecolor=green, linewidth=0.05, resolution=360, normale=0 0 1, function=helice_xz]% \psSolid[object=courbe, linewidth=0.05, resolution=360, normale=0 0 1, function=helice_yz]% \psSolid[object=courbe, linecolor=red, linewidth=0.1, resolution=360, function=helice]% } \FPdiv{\myDeltaA}{7.8}{60}% \def\ai{0}% \FPdiv{\myDeltaB}{60}{60}% \def\bi{3}% \multido{\i=1+1}{60}{% \begin{pspicture}(-7,0)(5,9) \myFigure% \end{pspicture} \newpage \FPadd{\ai}{\ai}{\myDeltaA}\FPsub{\bi}{\bi}{\myDeltaB} } \end{document}