t05.tex

\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}