Euler method: Difference between revisions
added Arturo
m (→{{header|Wren}}: Wren-trait -> Wren-iterate) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 245:
done
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">euler: function [f, y0, a, b, h][
[t,y]: @[a, y0]
while [t < b][
print [to :string .format:".3f" t, to :string .format:".3f" y]
t: t + h
y: y + h * call f @[t,y]
]
]
newtoncooling: function [ti, te]->
(neg 0.07) * te - 20
euler 'newtoncooling 100.0 0.0 100.0 10.0</syntaxhighlight>
{{out}}
<pre>0.000 100.000
10.000 44.000
20.000 27.200
30.000 22.160
40.000 20.648
50.000 20.194
60.000 20.058
70.000 20.017
80.000 20.005
90.000 20.002</pre>
=={{header|BASIC}}==
| |||