Plot coordinate pairs: Difference between revisions

m (used a bigger font to show the special glyphs.)
Line 1,027:
 
=={{header|EasyLang}}==
[https://easylang.online/apps/_plot_coord.html Run it]
[https://easylang.online/ide/?run=x%5B%5D%3D%5B%200%201%202%203%204%205%206%207%208%209%20%5D%0Ay%5B%5D%3D%5B%202.7%202.8%2031.4%2038.1%2058.0%2076.2%20100.5%20130.0%20149.3%20180.0%20%5D%0A%23%20%0Aclear%0Alinewidth%200.5%0Amove%2010%203%0Aline%2010%2095%0Aline%2095%2095%0Atextsize%203%0An%3Dlen%20x%5B%5D%0Am%3D0%0Afor%20i%20range%20n%0Aif%20y%5Bi%5D%20%3E%20m%0Am%3Dy%5Bi%5D%0A.%0A.%0Alinewidth%200.1%0Asty%3Dm%20div%209%0Afor%20i%20range%2010%0Amove%202%2094%20-%20i%2A10%0Atext%20i%2Asty%0Amove%2010%2095%20-%20i%2A10%0Aline%2095%2095%20-%20i%2A10%0A.%0Astx%3Dx%5Bn%20-%201%5D%20div%209%0Afor%20i%20range%2010%0Amove%20i%2A9%2B10%2096.5%0Atext%20i%2Astx%0Amove%20i%2A9%2B10%2095%0Aline%20i%2A9%2B10%203%0A.%0Acolor%20900%0Alinewidth%200.5%0Afor%20i%20range%20n%0Ax%3Dx%5Bi%5D%2A9/stx%2B10%0Ay%3D100%20-%20%28y%5Bi%5D/sty%2A10%2B5%29%0Aif%20i%3D0%0Amove%20x%20y%0Aelse%0Aline%20x%20y%0A.%0A. Run it]
<lang>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 ]
#
clear_screen
clear
linewidthset_linewidth 0.5
movemove_pen 10 3
linedraw_line 10 95
linedraw_line 95 95
set_textsize 3
textsize 3
n = len x[]
m = 0
Line 1,044:
.
.
linewidthset_linewidth 0.1
sty = m div 9
for i range 10
movemove_pen 2 94 - i * 10
textdraw_text i * sty
movemove_pen 10 95 - i * 10
linedraw_line 95 95 - i * 10
.
stx = x[n - 1] div 9
for i range 10
movemove_pen i * 9 + 10 96.5
textdraw_text i * stx
movemove_pen i * 9 + 10 95
linedraw_line i * 9 + 10 3
.
colorset_color 900
linewidthset_linewidth 0.5
for i range n
x = x[i] * 9 / stx + 10
y = 100 - (y[i] / sty * 10 + 5)
if i = 0
movemove_pen x y
else
linedraw_line x y
.
.</lang>
1,987

edits