Présentation de fig_fct_convexe_02.jps

%% 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