Data update

Task/Euler-method/Applesoft-BASIC/euler-method.basic

@@ -0,0 +1,27 @@
+100 HOME
+110 PRINT "Time     ";
+120 FOR S = 0 TO 100.1 STEP 10
+130   PRINT S; "  ";
+140 NEXT S
+150 PRINT
+160 PRINT "Dif eq  ";
+170 FOR S = 0 TO 100.1 STEP 10
+180   LET T = 20+(100-20)*EXP(-.07*S)
+190   PRINT LEFT$(STR$(T),5); " ";
+200 NEXT S
+210 PRINT
+220 LET P = 2 : GOSUB 260
+230 LET P = 5 : GOSUB 260
+240 LET P = 10 : GOSUB 260
+250 END
+260 REM Euler(paso)
+270   LET S = 0
+280   LET T = 100
+290   PRINT "Step ";P; " ";
+300   FOR S = 0 TO 100 STEP P
+310     IF S - (S/10) * 10 = 0 THEN PRINT LEFT$(STR$(T),5); " ";
+320     LET T = T+(P)*(-.07*(T-20))
+330     IF S > 100 THEN GOTO 350
+340   NEXT S
+350   PRINT
+360 RETURN