RosettaCodeData/Task/Euler-method/Lua/euler-method.lua

T0 = 100
TR = 20
k = 0.07
delta_t = { 2, 5, 10 }
n = 100

NewtonCooling = function( t ) return -k * ( t - TR ) end


function Euler( f, y0, n, h )
    local y = y0
    for x = 0, n, h do
    print( "", x, y )
    y = y + h * f( y )
    end
end


for i = 1, #delta_t do
    print( "delta_t = ", delta_t[i] )
    Euler( NewtonCooling, T0, n, delta_t[i] )
end