Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Fichier JPS
Accueil
Présentation
Exemples
Papiers
Banque d'images
Albums et animations
Formulaires
Célébrités
Postscript
Chimie
Documentation
Sources et téléchargement
Édition du fichier 019.jps
Retour
%% PhS %% fig_conique_18 35 setxunit -8 8 setxrange -6.5 6.5 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% procédures %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /bddroite { 8 dict begin /kd exch def /kg exch def /By exch def /Bx exch def /B {Bx By} def /Ay exch def /Ax exch def /A {Ax Ay} def gsave [A A B vecteur kg mulv addv A A B vecteur kd mulv addv] ligne grestore end } def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% definition d'une couleur %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% definition des points %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /a {4} def /c {7} def /b {c c mul a a mul sub sqrt} def /e {c a div} def /Kx {a e div} def /K {Kx neg 0} def /K+ {K 0 6 addv} def /K- {K 0 -6 addv} def /Kp {Kx 0} def /Kp+ {Kp 0 6 addv} def /Kp- {Kp 0 -6 addv} def /O {0 0} def /F {c neg 0} def /Fp {c 0} def /S1 {a neg 0} def /S2 {a 0} def /B {0 b} def /R11 {a neg b} def /R12 {a b} def /R21 {a neg b neg} def /R22 {a b neg} def /omeg {F O milieu} def /Ry {1 e e mul 1 exch div sub sqrt a mul} def /R {Kx neg Ry} def /xdet {settvar t t mul b b mul div 1 add sqrt a mul} def /ydet {settvar t} def /Mx {b 0.6 mul xdet} def /My {b 0.6 mul ydet} def /M {Mx My} def /H {M Kp Kp+ orthoproj} def /bissec {F M Fp bissectrice} def /T {bissec Kp Kp+ interdroite} def /U {bissec M perp Kp Kp+ interdroite} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% traces %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 1 setlinewidth [O F Fp S1 S2 B K Kp M T H R] points F Fp -0.05 1.05 bddroite [O 0 -6.5 addv O 0 6.5 addv] ligne coul1 2 setlinewidth b -1.2 mul b 1.2 mul settrange {xdet} {ydet} courbeparam 1 setlinewidth vert [K+ K-] ligne [Kp+ Kp-] ligne M H Kp angledroit pointilles [M H] ligne bleu continu [F M Fp T] ligne M Fp T angledroit F M T 0.5 (=) tripointarc T M Fp 0.7 (=) tripointarc orange continu M T -0.4 1.3 bddroite M U -1.3 1.8 bddroite orange continu omeg O IAcercle cercle [F R O] ligne F R O angledroit 0.6 setlinewidth pointilles [R11 R12 R22 R21] polygone %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% texte %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setTimesItalic noir (O) O [1.5 dup] dltext (F) F [1.5 dup] drtext (F') Fp [1.5 dup] drtext (B) B [1.5 dup] ultext
$ S_1 $
S1 [1.3 dup] dltexlabel
$ S_2 $
S2 [1.3 dup] drtexlabel orange (R) R [1.5 dup] urtext noir (M) M -0.2 0.2 addv [1.5 dup] uctext vert (K) K [1.5 dup] dltext (K') Kp [1.5 dup] drtext (H) H [1.5 dup] cltext
$ \mathcal{D} $
K 0 -5 addv [1.5 dup] dltexlabel
$ \mathcal{D} $
Kp 0 -5 addv [1.5 dup] drtexlabel coul1 (T) T [1.5 dup] cltext
Tapez les 3 lettres : AWE