%% 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 200 div exch 3 mul sub 5000 add 7 div %#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 pointilles 1 setlinewidth 600 2760 {} (-) Courbe [1000 1500 2000] {dup dup dup 300 4 1 roll line } apply grestore gsave magenta 2 setlinewidth 300 1000 {q} (-) Courbe %pointilles 1000 2760 {} (-*) Courbe grestore gsave bleu 2 setlinewidth continu %300 2760 {g} (*-*) Courbe [7] {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 gsave bleu $h(x)=350\displaystyle\frac{e^{7\left(\frac{M-x}{M-300}\right)}-1}{e^7-1}+x$ 500 2200 [2 dup] crtexlabel vert $f(x)=\displaystyle\frac{x}{2}+500\qquad \textrm{sur } [300;1000]$ 500 2600 [2 dup] crtexlabel magenta $g(x)=\displaystyle\frac{x^2}{1400}-\displaystyle\frac{3x}{7}+\displaystyle\frac{5000}{7}\qquad \textrm{sur } [300;1000]$ 500 2400 [2 dup] crtexlabel grestore