Euler method: Difference between revisions
Content added Content deleted
(Added Algol W) |
m (→{{header|R}}) |
||
Line 2,574: | Line 2,574: | ||
} |
} |
||
newtoncooling <- function(time, temp) |
newtoncooling <- function(time, temp){ |
||
return(-0.07*(temp-20)) |
return(-0.07*(temp-20)) |
||
} |
|||
euler(newtoncooling, 100, 0, 100, 10)</lang> |
euler(newtoncooling, 100, 0, 100, 10)</lang> |