Source
20 setfontsize

1 setxyrapport
56.69 setxunit
7.5 setborder
90 setangle_repere
-5.5 3.5 setxrange
-7 7 setyrange
0.25 setquadrillagexstep
0.25 setquadrillageystep
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
traceaxes
unites
/f {setxvar
#rpn#   x^2-2*x-3
} def
/g {setxvar
#rpn#   -.5*x^2-2*x+3
} def
gsave
   bleu
   1 setlinewidth
   continu
 xmin xmax  {f} Courbe
grestore
gsave
   rouge
   1 setlinewidth
   continu
 xmin xmax  {g} Courbe
grestore

<tex>
$\vec \imath $
</tex>
.4 -.1 [2 dup] dctexlabel

<tex>
$\vec \jmath $ 
</tex>
-.1 .2 [2 dup] ultexlabel

gsave
noir
setTimesItalic
(O) O dltext
grestore

/A {-1 0} def
/B {3 0} def
/C {-5.16 0} def
/D {1.16 0} def
/E {-2 5} def
/F {2 -3} def

20 setfontsize

gsave
setTimesItalic
A point
(A) A dltext
B point
(B) B drtext
C point
(C) C drtext
D point
(D) D urtext
E point
(E) E urtext
F point
(F) F crtext
grestore

gsave
bleu
<latex>
$\mathcal{C}_f$
</latex>
-1.6 3 [2 2] cltexlabel
grestore

gsave
rouge
<latex>
$\mathcal{C}_g$
</latex>
-4 3 [2 2] cltexlabel
grestore

   
%% adresse IP : 82.230.142.134