Présentation de pol_001.jps

-5 6 setxrange
-16 6 setyrange
2 setxyrapport

tracerepere
1 2 setmkstep
marks

/f {dup mul -1.5 mul 1 add} def
/g {setxvar x 3 exp -1.5 x dup mul mul add -6 x mul add 1 add} def

/f' {pop 0} def
/g' {pop 0} def

2 settailletangente
0 (f) tangente
-1 (g) tangente
2 (g) tangente

6 settailletangente
/f' {-3 mul} def
-1 (f) tangente

/A {6 sqrt neg -8} def
/B {0 1} def
/C {6 sqrt -8} def
/alpha 3.255 def

[A C] dashpoints
B point
alpha 0 times2

1 setlinewidth
-3 4 {g} Courbe
mixte
-3 4 {f} Courbe

setTimesItalic
   (O) O drtext
   (A) A cltext
   (B) B urtext
   (C) C crtext
setSymbol
   (a) alpha 0 ultext

<tex>
$y = f (x)$
</tex>
3 dup f [1.2 dup] urtexlabel
<tex>
$y = g (x)$
</tex>
3.5 dup g [1.2 dup] drtexlabel