\documentclass[a4paper]{article} \usepackage{pst-plot} \usepackage{pst-v3d} \usepackage[latin1]{inputenc} \usepackage[T1]{fontenc} \definecolor{bleupale}{rgb}{0.8 .8 1} \SpecialCoor \input{cylindre_object.tex} \input{tour_object.tex} \pagestyle{empty} \begin{document} Équation : \[ z=\frac{a}{x-r} \] $r$ rayon de l'ouverture supérieure. \begin{center} \begin{pspicture}(-1,-1)(10,10) \psframe(0,0)(8,10) \psaxes(0,0)(8,10) \pstVerb{% /H 10 def /R 8 def /r 3 def /a H R r sub div def /h a R r sub div def /x0 a H div r add def}% \pscustom[linestyle=none]{% \psline(0,0)(! 0 H)(!x0 H) \parametricplot{x0}{R}{% t a t r sub div}% \psline(! R h)(! R 0)% \fill[fillstyle=vlines]} \parametricplot[linecolor=red,linewidth=2\pslinewidth]{x0}{R}{% t a t r sub div}% \end{pspicture} \end{center} \begin{center} \begin{pspicture}(-8,-8)(8,8) \psframe(-8,-8)(8,8) \psset{THETA=20,PHI=30,Dobs=50,Decran=30} \psset{thetaLight=-50,phiLight=45,dLight=1e6,hsbcolor=0.17 0} \psset{R=8,H=10,r=3,h=1}% %/H 10 def %/R 8 def %/a H R r sub div def = 1.6 %/r0 a H div r add def %/h a R r sub div def = 1.6/( \psCylindre[nF=36,nH=1](0,0,0){8}{/H 10 def /r 3 def /R 8 def /a H R r sub div def a R r sub div} \psTour[RotX=0](0,0,0) \end{pspicture} \end{center} \begin{center} \begin{pspicture}(-8,-8)(8,8) \psframe(-8,-8)(8,8) \psset{THETA=20,PHI=30,Dobs=50,Decran=30} \psset{thetaLight=-50,phiLight=45,dLight=1e6,todraw=false} \psset{R=8,H=10,r=3,h=1}% \psCylindre[nF=96,nH=1](0,0,0){8}{/H 10 def /r 3 def /R 8 def /a H R r sub div def a R r sub div} \psTour[RotX=0](0,0,0) \end{pspicture} \end{center} \end{document}