RosettaCodeData/Task/Euler-method/Oforth/euler-method-2.oforth
2016-12-05 23:44:36 +01:00

7 lines
208 B
Text

: newtonCoolingLaw(t, y)
y 20 - -0.07 * ;
: test
euler(#newtonCoolingLaw, 100.0, 0.0, 100.0, 2)
euler(#newtonCoolingLaw, 100.0, 0.0, 100.0, 5)
euler(#newtonCoolingLaw, 100.0, 0.0, 100.0, 10) ;