%% auteur : 300 setxunit 7.5 setborder 90 setangle_repere -0.2 1.2 setxrange -0.2 1.2 setyrange traceaxes axesarrow %marks /f {setxvar x 2 exp } def gsave noir 1 setlinewidth continu 0 1 {f} Courbe grestore /A_1{0.25 0.0625} def /Q_1{0.25 0} def /A{0.5 0.0625} def [A A_1] ligne [A_1 Q_1] ligne $ A_1 $ A_1 [1.5 1.5] ultexlabel $ Q_1 $ Q_1 [1.5 1.5] dctexlabel /A_2{0.5 0.25} def /Q_2{0.5 0} def /A'{0.75 0.25} def [A_2 A'] ligne [A_2 Q_2] ligne $ Q_2 $ Q_2 [1.5 1.5] dctexlabel $ A_2 $ A_2 [1.5 1.5] ultexlabel /A_3{0.75 0.5625} def /Q_3{0.75 0} def /A''{1 0.5625} def [A_3 A''] ligne [A_3 Q_3] ligne $ A_3 $ A_3 [1.5 1.5] ultexlabel $ Q_3 $ Q_3 [1.5 1.5] dctexlabel /A_4{1 1} def /Q_4{1 0} def /B{1 0.5625} def [B Q_4] ligne $ A_4 $ A_4 [1.5 1.5] ultexlabel $ Q_4 $ Q_4 [1.5 1.5] dctexlabel $1 $ 0 1 [1.5 1.5] cltexlabel $ 1 $ Q_4 [1.5 1.5] urtexlabel pointilles [A_4 B] ligne /C{0 1} def [A_4 C] ligne /D{0.75 1} def [A_3 D] ligne /E{0.5 0.5625} def [A_3 E] ligne [A_2 E] ligne /F{0.25 0.25} def [A_1 F] ligne [F A_2] ligne /G{0 0.0625} def [G A_1] ligne $ Q_0 $ O [1.5 1.5] dltexlabel $ A_0 $ O [1.5 1.5] ultexlabel