Data update

Task/Euler-method/EasyLang/euler-method.easy

@@ -4,34 +4,34 @@ func analytic T0 t .
    return TR + (T0 - TR) * pow 2.71828 (K * t)
 .
 ytxt = 95
-proc draw_analytic a b . .
-   color 009
-   move 80 ytxt
+proc draw_analytic a b .
+   gcolor 009
+   gtext 80 ytxt "analytic"
    ytxt -= 5
-   text "analytic"
    for t = a to b
-      line t analytic 100 t
+      yp = y
+      y = analytic 100 t
+      if t > a : gline t - 1 yp t y
    .
 .
 drawgrid
-linewidth 0.3
-textsize 3
+glinewidth 0.3
+gtextsize 3
 draw_analytic 0 100
 #
 func newton_cooling temp .
    return K * (temp - TR)
 .
-proc draw_euler y0 a b step col . .
-   color col
-   move 80 ytxt
+proc draw_euler y t t2 step col .
+   gcolor col
+   gtext 80 ytxt "step: " & step
    ytxt -= 5
-   text "step: " & step
-   t = a
-   y = y0
-   while t < b
-      line t y
+   repeat
       t += step
+      yp = y
       y += step * newton_cooling y
+      gline t - step yp t y
+      until t >= t2
    .
 .
 draw_euler 100 0 100 10 900