7 lines
176 B
Text
7 lines
176 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]
|