-2.5 5 setxrange
-0.8 3 setyrange

1 setxyrapport
60 setxunit
7.5 setborder
90 setangle_repere
-0.7 4 setxrange
-0.7 3 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
%ticks
%subticks
%marks
traceaxes
axesarrow

%unites
/f {setxvar
#rpn#   (7/10*x^2-41/20*x+37/20)
} def

/g {setxvar
#rpn#   (0.75*x-0.95)
} def

%0.5 xtick
%3 xtick

/O {0 0} def
/O1 {0 2} def
/M {0.75 0} def
/P {0.75 0.70625} def
/N {2.5 0} def
/Q {2.5 1.1} def
/E {2 0} def
/F {2 0.55} def
/Y1 {E F1 P Q interdroite O O1 orthoproj} def
/F1 {2 2} def



setTimesItalic
(O) O [1.8 dup] drtext
(x) 3.7 0 [1.8 dup] drtext
(y) 0 2.7 [1.8 dup] ultext
(Q) F [1.5 dup] drtext
(P) E F1 P Q interdroite [1.5 dup] ultext

<tex>
$y_0$
</tex>
Y1 [1.8 dup] cltexlabel

gsave
pointilles
[M P] ligne
[N Q] ligne
[E F1 P Q interdroite Y1] ligne
[ E F1 P Q interdroite E] ligne
grestore

gsave
   noir
   1 setlinewidth
   continu
0.2  3 {f} Courbe
0.5 3 {g} Courbe
grestore

[P Q] ligne
[P F Q  E F1 P Q interdroite] points

<tex>
  $x_0$
</tex>
2 0 [1.8 dup] dctexlabel

<tex>
  $x_1$
</tex>
M [1.8 dup] dctexlabel

<tex>
  $x_2$
</tex>
N [1.8 dup] dctexlabel

<tex>
  $P_1$
</tex>
P [1.5 dup] dltexlabel

<tex>
  $P_2$
</tex>
Q [1.5 dup] ultexlabel


<latex>
$f$
</latex>
3.1 2 [1.8 dup] dctexlabel

<latex>
$g$
</latex>
3.1 1.4 [1.8 dup] dctexlabel


<latex>
$\rm{Abb}.\,13$
</latex>
-1.3 1.2 [2.0 dup] ultexlabel