frequence_cumulee.jps

%90 setrotate
20 setxunit
3 setyunit

-.9 31 setxrange
-9 110 setyrange

10 setytkstep
10 setymkstep
5 setysubtkstep

/unites {} def
tracerepere
marks

/liste [0 10 76 102 65 21 4] def

/A0 {0  0   2.78 div} def
/A1 {5  10  2.78 div} def
/A2 {10 86  2.78 div} def
/A3 {15 188 2.78 div} def
/A4 {20 253 2.78 div} def
/A5 {25 274 2.78 div} def
/A6 {30 278 2.78 div} def

0 25  xmax 25  A1 A2 interdroite /B1 defpoint
0 50  xmax 50  A3 A2 interdroite /B2 defpoint
0 75  xmax 75  A3 A4 interdroite /B3 defpoint
0 100 xmax 100 A6 A4 interdroite /B4 defpoint

[A0 A1 A2 A3 A4 A5 A6] 
gsave
   1 setlinewidth
   rouge
   dup ligne
gsave
{times2} papply

setTimes
   (Fréquence (en %)) 0 ymax drtext
   (Note (sur 30)) xmax 0 ultext

/dessin {
1 dict begin
gsave 
   /A defpoint
   noir
   pointilles 
   [A A pop 0] ligne
   bleu 
   A circ2
grestore
end
} def

pointilles
[B1 exch pop 0 exch B1 B1 pop 0] ligne
[B2 exch pop 0 exch B2 B2 pop 0] ligne
[B3 exch pop 0 exch B3 B3 pop 0] ligne
[B4 exch pop 0 exch B4 B4 pop 0] ligne

bleu
[B1 B2 B3 B4] {circ2} plot