Anonymous user
Euler method: Difference between revisions
→{{header|Futhark}}
Line 1,089:
<lang Futhark>
▲fun analytic(t0: f64) (time: f64): f64 =
20.0 + (t0 - 20.0) * f64.exp(-0.07*time)
-0.07 * (temperature-20.0)
let steps = i32.f64 ((b-a)/h)
let temps = replicate steps 0.0
let (_,temps) = loop
let x = a + f64
let temps[i] = f64.abs(t-analytic t0 x)
in (t + h * cooling x t,
|