2023-07-01 11:58:00 -04:00
|
|
|
x[] = [ 0 1 2 3 4 5 6 7 8 9 ]
|
|
|
|
|
y[] = [ 2.7 2.8 31.4 38.1 58.0 76.2 100.5 130.0 149.3 180.0 ]
|
|
|
|
|
#
|
2025-06-11 20:16:52 -04:00
|
|
|
glinewidth 0.5
|
|
|
|
|
gline 10 5 10 97
|
|
|
|
|
gline 10 5 95 5
|
|
|
|
|
gtextsize 3
|
2023-07-01 11:58:00 -04:00
|
|
|
n = len x[]
|
2025-08-11 18:05:26 -07:00
|
|
|
for i to n : max = higher y[i] max
|
2025-06-11 20:16:52 -04:00
|
|
|
glinewidth 0.1
|
|
|
|
|
sty = max div 9
|
2023-07-01 11:58:00 -04:00
|
|
|
stx = x[n] div 9
|
|
|
|
|
for i range0 10
|
2025-06-11 20:16:52 -04:00
|
|
|
gline 10 5 + i * 10 95 5 + i * 10
|
|
|
|
|
gtext 2 4 + i * 10 i * sty
|
|
|
|
|
gline i * 9 + 10 5 i * 9 + 10 97
|
|
|
|
|
gtext i * 9 + 10 1 i * stx
|
2023-07-01 11:58:00 -04:00
|
|
|
.
|
2026-02-01 16:33:20 -08:00
|
|
|
gcolor 900
|
|
|
|
|
glinewidth 0.5
|
2025-08-11 18:05:26 -07:00
|
|
|
gpenup
|
2023-07-01 11:58:00 -04:00
|
|
|
for i = 1 to n
|
|
|
|
|
x = x[i] * 9 / stx + 10
|
|
|
|
|
y = y[i] / sty * 10 + 5
|
2025-08-11 18:05:26 -07:00
|
|
|
glineto x y
|
2023-07-01 11:58:00 -04:00
|
|
|
.
|
