RosettaCodeData/Task/Euler-method/Mathematica/euler-method.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

1 line
158 B
Text

euler[step_, val_] := NDSolve[{T'[t] == -0.07 (T[t] - 20), T[0] == 100}, T, {t, 0, 100}, Method -> "ExplicitEuler", StartingStepSize -> step][[1, 1, 2]][val]