\documentclass[11pt]{article} \usepackage{pst-solides3d} \usepackage{pst-3dplot} %\usepackage{transparence} %\usepackage{caption} \usepackage[margin=1cm]{geometry} \pagestyle{empty} \SpecialCoor \begin{document} \psset{linewidth=.5pt} \multido{\n=-4.86+.54,\i=0+10}{9}{% \begin{pspicture}(-7,-8)(7,8) \psset[pst-solides3d]{SphericalCoor,viewpoint=55 100 30,Decran=60,% lightsrc=20 10 25} \psset{solidmemory} \psSolid[object=grille, base=-3 3 -3 3,ngrid=30 30, linewidth=.2\pslinewidth, fillcolor=lightgray!50, action=none,name=spl1](0,0,\n) \defFunction{parhy}(u,v){u}{v}{u v mul .6 mul} \psSolid[object=surfaceparametree,base=-3 3 -3 3, fillcolor=yellow!50,incolor=blue!50, function=parhy,linewidth=.2\pslinewidth, ngrid=30 30, action=none, name=spl2] \defFunction{fu1}(t){t}{\n \space .6 div t div}{\n} \defFunction{fu1'}(t){1}{\n \space -.6 div t dup mul div}{\n} \psSolid[object=courbe,range=-3 \n \space 1.8 div, r=0.045, ngrid=150 8, fillcolor=blue,action=none, opacity=.6, function=fu1, name=crb1] \psSolid[object=courbe,range=\n \space -1.8 div 3, r=0.045, ngrid=150 8, fillcolor=blue,action=none, opacity=.6, function=fu1, name=crb2] \psSolid[object=fusion, base=spl1 spl2 crb1 crb2, RotZ=\i, opacity=.6, linewidth=.01, action=draw**, name=inters]% \composeSolid \end{pspicture} \newpage} \begin{pspicture}(-7,-8)(7,8) \psset[pst-solides3d]{SphericalCoor,viewpoint=55 100 30,Decran=60,% lightsrc=20 10 25} \psset{solidmemory} \psSolid[object=grille, base=-3 3 -3 3,ngrid=30 30, linewidth=.2\pslinewidth, fillcolor=lightgray!50, action=none,name=spl1](0,0,0.) \defFunction{parhy}(u,v){u}{v}{u v mul .6 mul} \psSolid[object=surfaceparametree,base=-3 3 -3 3, fillcolor=yellow!50,incolor=blue!50, function=parhy,linewidth=.2\pslinewidth, ngrid=30 30, action=none, name=spl2] \defFunction{fu1}(t){t}{0}{0.0} \defFunction{fu1'}(t){1}{0}{0.0} \defFunction{fu2}(t){0}{t}{0.0} \defFunction{fu2'}(t){0}{1}{0.0} \psSolid[object=courbe,range=-3 3, r=0.045, ngrid=10 8, fillcolor=blue,action=none, opacity=.6, function=fu1, name=crb1] \psSolid[object=courbe,range=-3 3, r=0.045, ngrid=10 8, fillcolor=blue,action=none, opacity=.6, function=fu2, name=crb2] \psSolid[object=fusion, base=spl1 spl2 crb1 crb2, RotZ=90, opacity=.6, linewidth=.01, action=draw**, name=inters]% \composeSolid \end{pspicture} \newpage \multido{\n=.54+.54,\i=100+10}{9}{% \begin{pspicture}(-7,-8)(7,8) \psset[pst-solides3d]{SphericalCoor,viewpoint=55 100 30,Decran=60,% lightsrc=20 10 25} \psset{solidmemory} \psSolid[object=grille, base=-3 3 -3 3,ngrid=30 30, linewidth=.2\pslinewidth, fillcolor=lightgray!50, action=none,name=spl1](0,0,\n) \defFunction{parhy}(u,v){u}{v}{u v mul .6 mul} \psSolid[object=surfaceparametree,base=-3 3 -3 3, fillcolor=yellow!50,incolor=blue!50, function=parhy,linewidth=.2\pslinewidth, ngrid=30 30, action=none, name=spl2] \defFunction{fu1}(t){t}{\n \space .6 div t div}{\n} \defFunction{fu1'}(t){1}{\n \space -.6 div t dup mul div}{\n} \psSolid[object=courbe,range=-3 \n \space -1.8 div, r=0.045, ngrid=150 8, fillcolor=blue,action=none, opacity=.6, function=fu1, name=crb1] \psSolid[object=courbe,range=\n \space 1.8 div 3, r=0.045, ngrid=150 8, fillcolor=blue,action=none, opacity=.6, function=fu1, name=crb2] \psSolid[object=fusion, base=spl1 spl2 crb1 crb2, RotZ=\i, opacity=.6, linewidth=.01, action=draw**, name=inters]% \composeSolid \end{pspicture} \newpage} \end{document} %%% Local Variables: %%% mode: latex %%% TeX-master: t %%% End: