Présentation de fig_fct_convexe_02.jps

/syracuse/bbgraf/albums/coniques/fig_fct_convexe_02.jpg
%% PhS %% fig_fct_convexe_02 40 setxunit -2.5 7 setxrange -2.3 5.5 setyrange %% definition des points /O {0 0} def /Oxg {-2.5 0} def /Oxd {7 0} def /Oyb{0 -3.3} def /Oyh {0 5.5} def /Ax {0.4} def /Ay {Ax -2.3 add dup mul 5 div 1 add} def /Bx {2.5} def /By {Bx -2.3 add dup mul 5 div 1 add} def /Bsy {Bx Ax sub Cx Ax sub div Cy Ay sub mul Ay add} def /Cx {6} def /Cy {Cx -2.3 add dup mul 5 div 1 add} def /A {Ax Ay} def /B {Bx By} def /Bs {Bx Bsy} def /C {Cx Cy} def %% parametrage de la parabole /xdet {settvar t t} def /ydet {settvar t -2.3 add dup mul 5 div 1 add} def %% traces continu [O A B C Ax 0 Bx 0 Cx 0] points [Oxg Oxd] ( ->) ligne [Oyb Oyh] ( ->) ligne -1.5 6.5 settrange {xdet} {ydet} courbeparam /coul1 {188 255 div 128 255 div 9 255 div setrgbcolor} def coul1 vert pointilles [Ax 0 A] ligne [Bx 0 B] ligne [Cx 0 C] ligne rouge continu [A C B A] ligne %% texte setTimesItalic bleu (O) O dltext <tex> $ A $ </tex> A 0 0.15 addv [1.7 dup] uctexlabel <tex> $ B $ </tex> B 0 0.15 addv [1.7 dup] uctexlabel <tex> $ C $ </tex> C 0 0.15 addv [1.7 dup] uctexlabel <tex> $ a $ </tex> Ax -0.6 [1.7 dup] bctexlabel <tex> $ b $ </tex> Bx -0.6 [1.7 dup] bctexlabel <tex> $ c $ </tex> Cx -0.6 [1.7 dup] bctexlabel