Plot coordinate pairs: Difference between revisions

(Added solution for Action!)
Line 1,262:
y[] = [ 2.7 2.8 31.4 38.1 58.0 76.2 100.5 130.0 149.3 180.0 ]
#
clear
clear_screen
set_linewidthlinewidth 0.5
move_penmove 10 3
draw_lineline 10 95
draw_lineline 95 95
textsize 3
set_textsize 3
n = len x[]
m = 0
for i range n
ifm = higher y[i] > m
m = y[i]
.
.
set_linewidthlinewidth 0.1
sty = m div 9
for i range 10
move_penmove 2 94 - i * 10
draw_texttext i * sty
move_penmove 10 95 - i * 10
draw_lineline 95 95 - i * 10
.
stx = x[n - 1] div 9
for i range 10
move_penmove i * 9 + 10 96.5
draw_texttext i * stx
move_penmove i * 9 + 10 95
draw_lineline i * 9 + 10 3
.
set_colorcolor 900
set_linewidthlinewidth 0.5
for i range n
x = x[i] * 9 / stx + 10
y = 100 - (y[i] / sty * 10 + 5)
if i = 0
move_penmove x y
else
draw_lineline x y
.
.</lang>
2,058

edits