7 lines
329 B
Plaintext
7 lines
329 B
Plaintext
with(Student[NumericalAnalysis]);
|
|
k := 0.07:
|
|
TR := 20:
|
|
Euler(diff(T(t), t) = -k*(T(t) - TR), T(0) = 100, t = 100, numsteps = 50); # step size = 2
|
|
Euler(diff(T(t), t) = -k*(T(t) - TR), T(0) = 100, t = 100, numsteps = 20); # step size = 5
|
|
Euler(diff(T(t), t) = -k*(T(t) - TR), T(0) = 100, t = 100, numsteps = 10); # step size = 10
|