RosettaCodeData/Task/Euler-method/Oforth/euler-method-2.oforth

8 lines
208 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
: 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) ;