Plot coordinate pairs: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,259: / Line 1,259: @@
 =={{header|EasyLang}}==
 [https://easylang.online/apps/_plot_coord.html Run it]
-<syntaxhighlight lang="text">x[] = [ 0 1 2 3 4 5 6 7 8 9 ]
+<syntaxhighlight lang="text">
+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 ]
 #
@@ Line 1,270: / Line 1,271: @@
 n = len x[]
 m = 0
-for i range n
+for i = 1 to n
-  m = higher y[i] m
+  if y[i] > m
+    m = y[i]
+  .
 .
 linewidth 0.1
 sty = m div 9
-for i range 10
+for i = 0 to 9
   move 2 94 - i * 10
   text i * sty
@@ Line 1,281: / Line 1,284: @@
   line 95 95 - i * 10
 .
-stx = x[n - 1] div 9
+stx = x[n] div 9
-for i range 10
+for i = 0 to 9
   move i * 9 + 10 96.5
   text i * stx
@@ Line 1,290: / Line 1,293: @@
 color 900
 linewidth 0.5
-for i range n
+for i = 1 to n
   x = x[i] * 9 / stx + 10
   y = 100 - (y[i] / sty * 10 + 5)
-  if i = 0
+  if i = 1
     move x y
   else
     line x y
   .
+.
-.</syntaxhighlight>
+</syntaxhighlight>
 =={{header|EchoLisp}}==