RosettaCodeData/Task/Euler-method/Mathematica/euler-method.math

2 lines
158 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
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]