Plot coordinate pairs: Difference between revisions
Content added Content deleted
Line 1,039: | Line 1,039: | ||
(plot-text " Rosetta plot coordinate pairs" 0 10 "white") |
(plot-text " Rosetta plot coordinate pairs" 0 10 "white") |
||
</lang> |
</lang> |
||
=={{header|EasyLang}}== |
|||
[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 |
|||
linewidth 0.5 |
|||
move 10 3 |
|||
line 10 95 |
|||
line 95 95 |
|||
textsize 3 |
|||
n = len x[] |
|||
m = 0 |
|||
for i range n |
|||
if y[i] > m |
|||
m = y[i] |
|||
. |
|||
. |
|||
linewidth 0.1 |
|||
sty = m div 9 |
|||
for i range 10 |
|||
move 2 94 - i * 10 |
|||
text i * sty |
|||
move 10 95 - i * 10 |
|||
line 95 95 - i * 10 |
|||
. |
|||
stx = x[n - 1] div 9 |
|||
for i range 10 |
|||
move i * 9 + 10 96.5 |
|||
text i * stx |
|||
move i * 9 + 10 95 |
|||
line i * 9 + 10 3 |
|||
. |
|||
color 900 |
|||
linewidth 0.5 |
|||
for i range n |
|||
x = x[i] * 9 / stx + 10 |
|||
y = 100 - (y[i] / sty * 10 + 5) |
|||
if i = 0 |
|||
move x y |
|||
else |
|||
line x y |
|||
. |
|||
.</lang> |
|||
=={{header|Erlang}}== |
=={{header|Erlang}}== |