%% auteur : Péric
0.2845 setxunit
300 600 setorigine
200 2750 setxrange
550 2750 setyrange
100 100 settkstep
100 100 setmkstep
/xmarkstyle {[1 dup] dctext} def
/ymarkstyle {[1 dup] cltext} def
%ticks
%marks
%traceaxes
axesarrow
unites

/titrait {%le point à marquer puis un point de la droite
4 dict begin 
/b defpoint
/a defpoint
/d {a a b vecteur arg 90 add dir 10 mulv translatepoint} def
/e {a a b vecteur arg -90 add dir 10 mulv translatepoint} def
[d e] ligne
end
} def

/ddup {dup 3 2 roll dup 4 1 roll exch} def
/dddup {ddup 5 4 roll dup 6 1 roll 3 1 roll} def

/compte {% de #1 à #2 avec pas #3
3 dict begin
/p exch def
/b exch def
/a exch def
/q {b a sub p idiv  } def
a q {dup p add} repeat
end
} def

/titrax {
100 add ddup ddup  300 600 titrait
} def 
/titray {
exch 100 add exch ddup 300 600 titrait
} def 

/m {2760} def
/c {300} def
/k {350} def
/a {2} def

/b {2900} def
/f {
m c k add sub m c sub div mul k m mul m c sub div add
%#rpn#  (M-650)/(M-300)*x+350*M/(M-300)
} def
/g {
dup m exch sub m c sub div a mul Exp 1 sub a Exp 1 sub div k mul add 
} def
/h { 2 div 500 add} def
/i {} def
/q {dup dup mul exch 3 mul sub 5000 add
%#rpn# ( x^2 - 3*x + 5000 ) / 7 
} def

gsave
   vert
   2 setlinewidth
   continu
   300 1000 {h} (*-) Courbe
   1000 2760 {i} (-*) Courbe
1 setlinewidth
grestore

gsave
   rouge
   2 setlinewidth
   continu
   300 2760 {f} (*-*) Courbe
   300 1000 {q} (-) Courbe
pointilles
600 2760 {} (-*) Courbe
   1 setlinewidth

[1000 1500 2000] {dup dup dup 300 4 1 roll line } apply
grestore



gsave
   bleu
   2 setlinewidth
   continu
<latex>
$f_a(x)=350\displaystyle\frac{e^{a\left(\frac{M-x}{M-300}\right)}-1}{e^a-1}+x\qquad\\ \textrm{où $a$ est un param\`etre (ici 1, 3 et 5)}\\ \textrm{et $M$ est le nombre de points de la $\textrm{n}^{\scriptstyle o}1$ ($M\approx2760$)}$
</latex>
500 2500 [2 dup] crtexlabel

 %300 2760 {g} (*-*) Courbe
[1 3 5] {2 setlinewidth /a exch def  
300 2760 {g} (*-*) Courbe [1000 1500 2000] 1 setlinewidth {dup dup dup dup g dashpoint g exch 600 line} apply } apply
grestore

noir 
[300 600 300 b] ligne
[300 600 b 600 ] ligne
300 600 23 {titrax} repeat
300 600 26 {titray} repeat
[300 2700 100 compte] {xmark} apply
[700 2700 100 compte] {ymark} apply
650 ymark