diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:56:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:56:57 +0000 |
commit | f07bb53970ee2ecc53f81a206a3d3a67ef665e4a (patch) | |
tree | 6f57a1d62971db79e5ff023bdfd83b22cb971dc9 /Master/texmf-dist/doc/generic/pst-eucl/Exemples/hyperbole_in.tex | |
parent | 007f67a693e4d031fd3d792df8e4d5f43e2cb2e7 (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.tex | 54 |
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} |