hyperbole1.tex

\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 5 def
         /R 7 def
         /r 2 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=7,H=8,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){7}{/H 5 def /r 3 def /R 7 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=70,Dobs=50,Decran=30}
\psset{thetaLight=-50,phiLight=45,dLight=50,todraw=false}
\psset{R=8,H=10,r=3,h=1}%
\psCylindre[nF=96,nH=1,interior=true](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,nH=40](0,0,0)
\end{pspicture}
\end{center}
 
 
\end{document}