Data update

Task/Euler-method/Yabasic/euler-method.basic

@@ -0,0 +1,35 @@
+print "Time  ";
+tiempo = 0.0
+while tiempo <= 100.1
+    print tiempo using "#######";
+    tiempo = tiempo + 10.0
+wend
+print
+
+print "Dif eq  ";
+tiempo = 0.0
+while tiempo <= 100.1
+    temperatura = 20.0 + (100.0-20.0) * exp(-0.07*tiempo)
+    print temperatura using "####.##";
+    tiempo = tiempo + 10.0
+wend
+print
+
+Euler_(2)
+Euler_(5)
+Euler_(10)
+end
+
+sub Euler_(paso)
+    local tiempo, temperatura
+    tiempo = 0
+    temperatura = 100.0
+    print "Step ", paso using "##", " ";
+
+    while tiempo <= 100
+        if mod(tiempo, 10) = 0  print temperatura using "####.##";
+        temperatura = temperatura + (paso) * (-0.07*(temperatura-20.0))
+        tiempo = tiempo + paso
+    end while
+    print
+end sub