\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@AUTEUR: Maxime Chupin, Manuel Luque %@DATE: 19 mars 2008 \psset{lightsrc=80 30 30,SphericalCoor=true,viewpoint=100 45 45,Decran=100,linewidth=0.1pt} \begin{pspicture}(-3.5,-2)(4,3) \psframe*(-3.5,-2)(4,3) \codejps{ /rpn {tx@AlgToPs begin AlgToPs end cvx exec} def /xcy {(-2.065260000*sin(t)+2.065260000*cos(3*t)*sin(t)+.8624533334*cos(t)*sin(3*t)) rpn } def /ycy {(2.065260000*cos(t)-2.065260000*cos(3*t)*cos(t)+.8624533334*sin(3*t)*sin(t)) rpn } def /zcy {(2/3*sin(1.668)*(1-cos(3*t))) rpn } def /xcy' {(-2.065260000*cos(t)-7.058233333*sin(3*t)*sin(t)+4.652620000*cos(3*t)*cos(t)) rpn } def /ycy' {(-2.065260000*sin(t)+7.058233333*cos(t)*sin(3*t)+4.652620000*cos(3*t)*sin(t)) rpn } def /zcy' {(2*sin(1.668)*sin(3*t)) rpn } def /xcy'' {(2.065260000*sin(t)-25.82732000*cos(3*t)*sin(t)-21.01609333*cos(t)*sin(3*t)) rpn } def /ycy'' {(-2.065260000*cos(t)-21.01609333*sin(3*t)*sin(t)+25.82732000*cos(3*t)*cos(t)) rpn } def /zcy'' {(6*sin(1.668)*cos(3*t)) rpn } def %/solidgrid false def /g { 3 dict begin /t exch def xcy ycy zcy end } def /g' { % dérivée première 3 dict begin /t exch def xcy' ycy' zcy' end } def /g'' { % dérivée seconde 3 dict begin /t exch def xcy'' ycy'' zcy'' end } def /cycloide{ % t_min t_max rayon_tube [resolution] 0 6.28 (g) .25 [360 12] newtube dup [.1 .3] solidputhuecolors} def cycloide drawsolid** }% \end{pspicture} \end{document}