Euler method: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
| Line 1,570: | Line 1,570: | ||
=={{header|Julia}}== |
=={{header|Julia}}== |
||
{{works with|Julia|0. |
{{works with|Julia|1.0.3}} |
||
<lang julia>euler(f::Function, T::Number, t0::Int, t1::Int, h::Int) = collect(begin T += h * f(T); T end for t in t0:h:t1) |
<lang julia>euler(f::Function, T::Number, t0::Int, t1::Int, h::Int) = collect(begin T += h * f(T); T end for t in t0:h:t1) |
||
| Line 1,582: | Line 1,582: | ||
t = 0 |
t = 0 |
||
for T in euler(y -> -0.07 * (y - 20.0), 100.0, 0, 100, h) |
for T in euler(y -> -0.07 * (y - 20.0), 100.0, 0, 100, h) |
||
tabular(15, t, round(T,6), round(20.0 + 80.0 * exp(-0.07t), 6)) |
tabular(15, t, round(T,digits=6), round(20.0 + 80.0 * exp(-0.07t), digits=6)) |
||
t += h |
t += h |
||
end |
end |
||