Plot coordinate pairs: Difference between revisions
Content added Content deleted
m (used a bigger font to show the special glyphs.) |
|||
Line 1,027: | Line 1,027: | ||
=={{header|EasyLang}}== |
=={{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 ] |
<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 ] |
y[] = [ 2.7 2.8 31.4 38.1 58.0 76.2 100.5 130.0 149.3 180.0 ] |
||
# |
# |
||
clear_screen |
|||
clear |
|||
set_linewidth 0.5 |
|||
move_pen 10 3 |
|||
draw_line 10 95 |
|||
draw_line 95 95 |
|||
set_textsize 3 |
|||
textsize 3 |
|||
n = len x[] |
n = len x[] |
||
m = 0 |
m = 0 |
||
Line 1,044: | Line 1,044: | ||
. |
. |
||
. |
. |
||
set_linewidth 0.1 |
|||
sty = m div 9 |
sty = m div 9 |
||
for i range 10 |
for i range 10 |
||
move_pen 2 94 - i * 10 |
|||
draw_text i * sty |
|||
move_pen 10 95 - i * 10 |
|||
draw_line 95 95 - i * 10 |
|||
. |
. |
||
stx = x[n - 1] div 9 |
stx = x[n - 1] div 9 |
||
for i range 10 |
for i range 10 |
||
move_pen i * 9 + 10 96.5 |
|||
draw_text i * stx |
|||
move_pen i * 9 + 10 95 |
|||
draw_line i * 9 + 10 3 |
|||
. |
. |
||
set_color 900 |
|||
set_linewidth 0.5 |
|||
for i range n |
for i range n |
||
x = x[i] * 9 / stx + 10 |
x = x[i] * 9 / stx + 10 |
||
y = 100 - (y[i] / sty * 10 + 5) |
y = 100 - (y[i] / sty * 10 + 5) |
||
if i = 0 |
if i = 0 |
||
move_pen x y |
|||
else |
else |
||
draw_line x y |
|||
. |
. |
||
.</lang> |
.</lang> |