summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 00:56:57 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 00:56:57 +0000
commitf07bb53970ee2ecc53f81a206a3d3a67ef665e4a (patch)
tree6f57a1d62971db79e5ff023bdfd83b22cb971dc9 /Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex
parent007f67a693e4d031fd3d792df8e4d5f43e2cb2e7 (diff)
doc 6
git-svn-id: svn://tug.org/texlive/trunk@85 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex')
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex54
1 files changed, 54 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex b/Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex
new file mode 100644
index 00000000000..2f8dfa13a27
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex
@@ -0,0 +1,54 @@
+\newcommand{\Sommet}{1.4142135623730951}
+\newcommand{\PosFoyer}{2}
+\newcommand{\HypAngle}{0}
+\setcounter{i}{1}
+\newcounter{CoefDiv}\setcounter{CoefDiv}{20}
+\newcounter{Inc}\setcounter{Inc}{2}
+\newcounter{n}\setcounter{n}{2}
+%% rayon des cercles successifs utilisés pour trouver les points de H
+%% on choisit \Rii=\Ri+2\Sommet (définition de l'hyperbole)
+\newcommand{\Ri}{% c'est du postscript
+ \PosFoyer\space\Sommet\space sub \arabic{i}\space\arabic{CoefDiv}\space div add}
+\newcommand{\Rii}{\Ri\space\Sommet\space 2 mul add}
+\pstGeonode[PosAngle=90]{O}(\PosFoyer;\HypAngle){F}
+\pstSymO[PosAngle=180]{O}{F}\pstLineAB{F}{F'}
+%% TRACÉ DES ASYMPTOTES
+\pstCircleOA{O}{F}
+%% positionnement des deux sommets de H
+\pstGeonode[PosAngle=-135](\Sommet;\HypAngle){S}
+\pstGeonode[PosAngle=-45](-\Sommet;\HypAngle){S'}
+%% l'intersection de la droite perpendiculaire à (FF') passant par S,
+%% coupe les asymptotes sur le cercle de diamètre [FF'] (cette droite est une tangente)
+\pstRotation[RotAngle=90, PointSymbol=none]{S}{O}[B]
+\pstInterLC[PosAngleA=90, PosAngleB=-90]{S}{B}{O}{F}{A_1}{A_2}
+\pstLineAB[nodesepA=-3,nodesepB=-5]{A_1}{O}
+\pstLineAB[nodesepA=-3,nodesepB=-5]{A_2}{O}
+%% cos(\Psi)=OS/OF (c-a-d \Sommet/\PosFoyer)
+%% ici \sqrt(2)/2, donc \Psi=45 => hyperbole équilatère
+\pstMarkAngle[LabelSep=.8, MarkAngleRadius=.7, arrows=->,
+ LabelSep=1.1]{F}{O}{A_1}{$\Psi$}
+\ncline[linecolor=red]{A_1}{A_2}
+\pstRightAngle[RightAngleSize=.15]{A_1}{S}{O}
+\psset{PointName=none}
+\whiledo{\value{n}<8}{%
+ \psset{RadiusA=\pstDistVal{\Ri},RadiusB=\pstDistVal{\Rii},PointSymbol=none}
+ \pstInterCC{F}{}{F'}{}{M\arabic{n}}{P\arabic{n}}
+ \pstInterCC{F'}{}{F}{}{M'\arabic{n}}{P'\arabic{n}}
+ %% bcp de points au début, moins ensuite
+ %% n -> numéro du point, i -> taille des cercles
+ %% Inc -> incrément variable de i (2^n)
+ \stepcounter{n}\addtocounter{i}{\value{Inc}}
+ \addtocounter{Inc}{\value{Inc}}}%% fin de whiledo
+\psset{linecolor=blue}
+%% tracé des quatres 1/2 branches de l'hyperbole
+\pstGenericCurve[GenCurvFirst=S]{M}{2}{7}
+\pstGenericCurve[GenCurvFirst=S]{P}{2}{7}
+\pstGenericCurve[GenCurvFirst=S']{M'}{2}{7}
+\pstGenericCurve[GenCurvFirst=S']{P'}{2}{7}
+%% pour vérif le trace paramètrique
+%\parametricplot[linecolor=black, linewidth=.25\pslinewidth]{-1}{1}
+% {t dup tx@EcldDict begin sh exch ch end \Sommet\space mul exch
+% \PosFoyer\space dup mul \Sommet\space dup mul sub sqrt mul}
+%\parametricplot[linecolor=black, linewidth=.25\pslinewidth]{-1}{1}
+% {t dup tx@EcldDict begin sh exch ch end neg \Sommet\space mul exch
+% \PosFoyer\space dup mul \Sommet\space dup mul sub sqrt mul}