23 lines
531 B
Plaintext
23 lines
531 B
Plaintext
"Euler Solution"
|
||
T ← 100 # initial starting temp
|
||
TR ← 20 # room temp
|
||
TMINUSTR ← - TR T
|
||
h ← 10 # step size
|
||
k ← 0.07 # coefficent
|
||
TEND ← 100 # end time
|
||
n ← ÷ h 100 # steps
|
||
# inital starting point
|
||
T
|
||
.
|
||
# .. clone the top of stack and take if for next step
|
||
# repeat the steps n times with ⍥
|
||
Solution ← [⍥(.. - × h × k - TR)]+ n 1
|
||
⇌ ⊂ Solution T
|
||
|
||
# analytical solution
|
||
"Analytical Solution"
|
||
# apply function to LIST
|
||
List ← × k × h ⇡n
|
||
# Analytical solution applied
|
||
+ TR × TMINUSTR ⁿ ¯List e
|