# The Forward Euler Method

The Euler methods are some of the simplest methods to solve ordinary differential equations numerically. They introduce a new set of methods called the Runge Kutta methods, which will be discussed in the near future!

As a physicist, I tend to understand things through methods that I have learned before. In this case, it makes sense for me to see Euler methods as extensions of the Taylor Series Expansion. These expansions basically approximate functions based on their derivatives, like so:

Like before, is some function along real or complex space, is the point that we are expanding from, and denotes the derivative of .

So, what does this mean? Well, as mentioned, we can think of this similarly to the kinematic equation: where is position, is velocity, and is acceleration. This equation allows us to find the position of an object based on it's previous position (), the derivative of it's position with respect to time () and one derivative on top of that (). As stated in the Tayor Series Expansion, the acceleration term must also have in front of it.

Now, how does this relate to the Euler methods? Well, with these methods, we assume that we are looking for a position in some space, usually denoted as , but we can use any variable. The methods assume that we have some function to evaluate the derivative of . In other words, we know that . For the kinematic equation, we know what this is!

So, we can iteratively solve for position by first solving for velocity. By following the kinematic equation (or Taylor Series Expansion), we find that

For any timestep . This means that if we are solving the kinematic equation, we simply have the following equations:

Now, solving this set of equations in this way is known as the *forward* Euler Method.
In fact, there is another method known as the *backward* Euler Method, which we will get to soon enough.
For now, it is important to note that the error of these methods depend on the timestep chosen.

For example, here we see dramatically different results for different timesteps for solving the ODE , whose solution is . The blue line is the analytical solution, the green is with a timestep of 0.5 and the red is with a timestep of 1. To be clear: the larger the timestep, the worse the error becomes; however, there is at least one more problem with using the forward Euler method on real problems: instabilities.

As we mentioned, the forward Euler method approximates the solution to an Ordinary Differential Equation (ODE) by using only the first derivative. This is (rather expectedly) a poor approximation. In fact, the approximation is so poor that the error associated with running this algorithm can add up and result in incredibly incorrect results. As you might imagine, the only solution to this is decreasing the timestep and hoping for the best or using a similar method with different stability regions, like the backward Euler method.

Let's assume we are solving a simple ODE: .
The solution here is and we can find this solution somewhat easily with the forward Euler method shown below.
That said, by choosing a larger timestep, we see the Euler method's solution oscillate above and below 0, which should *never* happen.
If we were to take the Euler method's solution as valid, we would incorrectly assume that will become negative!

Like above, the blue line is the analytical solution, the green is with a timestep of 0.5 and the red is with a timestep of 1. Here, it's interesting that we see 2 different instability patterns. The green is initially unstable, but converges onto the correct solution, but the red is wrong from the get-go and only gets more wrong as time goes on.

In truth, the stability region of the forward Euler method for the case where can be found with the following inequality:
Which means that the forward Euler method is actually unstable for most values!
If we want to stick to using the forward Euler method exclusively, the only solution is to decrease the timestep until it is within this stability region, and that's not necessarily easy for all cases.
So now it might be obvious that another, more stable method should be used instead; however, many other stable methods are *implicit*, which means that in order to find the solution, we need to solve a system of equations via the Thomas Algorithm or Gaussian Elimination.
Which is an entire layer of complexity that most people don't want to mess with!

Now, here is where we might want to relate the method to another algorithm that is sometimes used for a similar use-case: Verlet Integration.
Verlet integration has a distinct advantage over the forward Euler method in both error and stability with more coarse-grained timesteps; however, Euler methods are powerful in that they may be used for cases other than simple kinematics.
That said, in practice, due to the instability of the forward Euler method and the error with larger timesteps, this method is rarely used in practice.
That said, variations of this method *are* certainly used (for example Crank-Nicolson and Runge-Kutta, so the time spent reading this chapter is not a total waste!

## Video Explanation

Here is a video describing the forward Euler method:

## Example Code

Like in the case of Verlet Integration, the easiest way to test to see if this method works is to test it against a simple test-case. Here, the most obvious test-case would be dropping a ball from 5 meters, which is my favorite example, but proved itself to be slightly less enlightening than I would have thought. So, this time, let's remove ourselves from any physics and instead solve the following ODE: with the initial condition that . Note that in this case, the velocity is directly given by the ODE and the acceleration is not part of the model.

```
function solve_euler(timestep::Float64, n::Int64)
euler_result = Vector{Float64}(undef, n)
# Setting the initial condition
euler_result[1] = 1;
for i = 2:length(euler_result)
euler_result[i] = euler_result[i-1] - 3.0*euler_result[i-1]*timestep
end
return euler_result
end
function check_result(euler_result::Vector{Float64}, threshold::Float64,
timestep::Float64)
is_approx = true
for i = 1:length(euler_result)
time = (i - 1)*timestep
solution = exp(-3*time);
if (abs(euler_result[i] - solution) > threshold)
println(euler_result[i], solution)
is_approx = false
end
end
return is_approx
end
function main()
timestep = 0.01
n = 100
threshold = 0.01
euler_result = solve_euler(timestep,n)
is_approx = check_result(euler_result, threshold, timestep)
println(is_approx)
end
main()
```

```
#include <stdio.h>
#include <math.h>
void solve_euler(double timestep, double *result, size_t n) {
if (n != 0) {
result[0] = 1;
for (size_t i = 1; i < n; ++i) {
result[i] = result[i-1] - 3.0 * result[i-1] * timestep;
}
}
}
int check_result(double *result, size_t n, double threshold, double timestep) {
int is_approx = 1;
for (size_t i = 0; i < n; ++i) {
double solution = exp(-3.0 * i * timestep);
if (fabs(result[i] - solution) > threshold) {
printf("%f %f\n", result[i], solution);
is_approx = 0;
}
}
return is_approx;
}
int main() {
double result[100];
double threshold = 0.01;
double timestep = 0.01;
solve_euler(timestep, result, 100);
printf("%d\n", check_result(result, 100, threshold, timestep));
return 0;
}
```

```
#include <algorithm>
#include <cmath>
#include <cstddef>
#include <iostream>
#include <iterator>
#include <utility>
#include <vector>
using std::begin;
using std::end;
using std::size_t;
std::vector<double> solve_euler(double timestep, size_t size) {
std::vector<double> result;
double current = 1.0;
for (size_t i = 0; i < size; ++i) {
result.push_back(current);
current -= 3.0 * current * timestep;
}
return result;
}
// check_result takes an iterator over doubles,
// and returns whether any value is outside the passed threshold.
template <typename Iter>
bool check_result(Iter first, Iter last, double threshold, double timestep) {
auto it = first;
for (size_t idx = 0; it != last; ++idx, ++it) {
double solution = std::exp(-3.0 * idx * timestep);
if (std::abs(*it - solution) > threshold) {
std::cout << "We found a value outside the threshold; the " << idx
<< "-th value was " << *it << ", but the expected solution was "
<< solution << '\n';
std::cout << "(the threshold was " << threshold
<< " and the difference was " << std::abs(*it - solution)
<< ")\n";
return true;
}
}
return false;
}
int main() {
double threshold = 0.01;
double timestep = 0.01;
auto result = solve_euler(timestep, 100);
auto outside_threshold =
check_result(begin(result), end(result), threshold, timestep);
auto msg = outside_threshold ? "yes :(" : "no :D";
std::cout << "Were any of the values outside of the threshold (" << threshold
<< ")? " << msg << '\n';
}
```

```
fn main() {
let mut result = [0.0; 100];
let threshold = 0.01;
let timestep = 0.01;
solve_euler(timestep, &mut result);
println!("{}", check_result(&result, threshold, timestep));
}
fn solve_euler(timestep: f64, result: &mut [f64]) {
let n = result.len();
if n != 0 {
result[0] = 1.0;
for i in 1..n {
result[i] = result[i - 1] - 3.0 * result[i - 1] * timestep;
}
}
}
fn check_result(result: &[f64], threshold: f64, timestep: f64) -> bool {
let mut is_approx: bool = true;
for (i, val) in result.iter().enumerate() {
let solution = (-3.0 * i as f64 * timestep).exp();
if (val - solution).abs() > threshold {
println!("{} {}", val, solution);
is_approx = false;
}
}
return is_approx;
}
```

```
type alias Position =
Float
type alias Velocity =
Float
type alias Particle =
{ pos : List Position, vel : List Velocity }
```

```
k : Float
k =
-2
diffEq : Position -> Velocity -> Time -> Time -> ( Position, Velocity )
diffEq x v t dt =
( x + (k * x) * dt, k * (x + (k * x) * dt) )
evolve : Particle -> Time -> Time -> Particle
evolve p t dt =
let
( x, v ) =
diffEq (getX p) (getV p) t dt
in
{ p | pos = x :: p.pos, vel = v :: p.vel }
```

Full code for the visualization follows:

```
module Euler exposing (..)
import Html exposing (Html, div, button, text, h3)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick, on)
import Time exposing (Time, second)
import Maybe exposing (withDefault)
import Window exposing (Size, size)
import Svg exposing (svg, circle, line, polyline)
import Svg.Attributes exposing (width, height, stroke, x1, x2, y1, y2, cx, cy, r, points, fill)
import Task exposing (perform)
import Slider exposing (..)
import Mouse
import Json.Decode as Decode
import Hex
main =
Html.program
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
}
-- MODEL
type alias Model =
{ part : Particle
, dt : Time
, dt0 : Time
, t : Time
, status : Status
, wWidth : Int
, wHeight : Int
, history : List ( Time, Time, Particle )
, drag : Maybe Drag
}
type alias Position =
Float
type alias Velocity =
Float
type alias Particle =
{ pos : List Position, vel : List Velocity }
type Status
= Idle
| Running
type alias Drag =
{ start : Position
, current : Position
}
getX : Particle -> Position
getX p =
withDefault 0 <| List.head <| .pos p
getV : Particle -> Velocity
getV p =
withDefault 0 <| List.head <| .vel p
getX0 : Model -> Position
getX0 m =
let
scale x =
3 - 6 * x / (toFloat m.wHeight)
in
case m.drag of
Nothing ->
getX m.part
Just { start, current } ->
getX m.part + scale current - scale start
-- INIT
init : ( Model, Cmd Msg )
init =
( Model (Particle [ x0 ] [ 0 ]) 0.5 0.5 0 Idle 0 0 [] Nothing, perform GetSize size )
x0 : Position
x0 =
2.5
-- UPDATE
type Msg
= Start
| Stop
| Tick Time
| GetSize Size
| SliderUpdate Float
| DragStart Mouse.Position
| DragAt Mouse.Position
| DragEnd Mouse.Position
update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
case msg of
Start ->
( { model
| status = Running
, t = 0
, dt = model.dt0
, drag = Nothing
}
, Cmd.none
)
Stop ->
( { model
| status = Idle
, part = Particle [ x0 ] [ 0 ]
, t = 0
}
, Cmd.none
)
Tick _ ->
case model.status of
Idle ->
( model, Cmd.none )
Running ->
if model.t > 5 + model.dt then
( { model
| status = Idle
, part = Particle [ x0 ] [ 0 ]
, history = ( model.dt, model.t, model.part ) :: model.history
, t = 0
}
, Cmd.none
)
else
( { model
| part = evolve model.part model.t model.dt
, t = model.t + model.dt
}
, perform GetSize size
)
GetSize s ->
( { model | wWidth = s.width, wHeight = s.height * 8 // 10 }, Cmd.none )
SliderUpdate dt ->
( { model | dt0 = dt }, Cmd.none )
DragStart { x, y } ->
case model.status of
Idle ->
( { model | drag = Just (Drag (toFloat y) (toFloat y)) }, Cmd.none )
Running ->
( model, Cmd.none )
DragAt { x, y } ->
( { model | drag = Maybe.map (\{ start } -> Drag start (toFloat y)) model.drag }
, Cmd.none
)
DragEnd _ ->
( { model
| drag = Nothing
, part = Particle [ getX0 model ] [ k * getX0 model ]
}
, Cmd.none
)
k : Float
k =
-2
diffEq : Position -> Velocity -> Time -> Time -> ( Position, Velocity )
diffEq x v t dt =
( x + (k * x) * dt, k * (x + (k * x) * dt) )
evolve : Particle -> Time -> Time -> Particle
evolve p t dt =
let
( x, v ) =
diffEq (getX p) (getV p) t dt
in
{ p | pos = x :: p.pos, vel = v :: p.vel }
-- SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions model =
case model.drag of
Nothing ->
Time.every (model.dt * second) Tick
Just _ ->
Sub.batch [ Mouse.moves DragAt, Mouse.ups DragEnd ]
-- VIEW
view : Model -> Html Msg
view model =
div []
[ h3 [] [ text "Drag the ball up or down, pick a dt and click Start" ]
, h3 [ style [ ( "color", gradient model.dt0 ) ] ]
[ viewSlider
, text ("dt = " ++ toString model.dt0)
, button [ onClick Start ] [ text "Start" ]
, button [ onClick Stop ] [ text "Stop" ]
]
, svg
[ width (toString model.wWidth)
, height (toString model.wHeight)
, stroke "black"
]
([ line
[ x1 "0"
, x2 (toString model.wWidth)
, y1 (toString (model.wHeight // 2))
, y2 (toString (model.wHeight // 2))
]
[]
, line
[ x1 (toString (model.wWidth // 20))
, x2 (toString (model.wWidth // 20))
, y1 "0"
, y2 (toString model.wHeight)
]
[]
, viewCircle model
]
++ (plotHistory model)
)
]
viewSlider : Html Msg
viewSlider =
props2view [ MinVal 0, MaxVal 1, Step 0.01, onChange SliderUpdate ]
scaleX : Int -> Position -> String
scaleX h x =
toString (toFloat h / 2 * (1 - x / 3))
scaleT : Int -> Time -> String
scaleT w t =
toString (toFloat w * (0.05 + t / 5))
viewCircle : Model -> Html Msg
viewCircle m =
circle
[ cy (scaleX m.wHeight (getX0 m))
, cx (scaleT m.wWidth m.t)
, r "10"
, on "mousedown" (Decode.map DragStart Mouse.position)
]
[]
plotPath : Int -> Int -> ( Time, Time, Particle ) -> String
plotPath w h ( dt, tf, particle ) =
let
comb x ( t, s ) =
( t - dt, s ++ (scaleT w t) ++ "," ++ (scaleX h x) ++ " " )
in
Tuple.second <| List.foldl comb ( tf, "" ) particle.pos
plotHistory : Model -> List (Html Msg)
plotHistory m =
let
( w, h ) =
( m.wWidth, m.wHeight )
in
List.map
(\( dt, t, p ) ->
polyline
[ stroke "black"
, fill "none"
, stroke (gradient dt)
, points (plotPath w h ( dt, t, p ))
]
[]
)
(( m.dt, m.t, m.part ) :: m.history)
gradient : Time -> String
gradient dt =
let
( r, g, b ) =
( round (255 * dt), 0, round (255 * (1 - dt)) )
col =
Hex.toString (256 * (256 * r + g) + b)
in
if String.length col < 6 then
"#" ++ String.repeat (6 - String.length col) "0" ++ col
else
"#" ++ col
```

```
import math
def forward_euler(time_step, n):
result = [0] * n
result[0] = 1
for i in range(1, n):
result[i] = result[i - 1] - 3 * result[i - 1] * time_step
return result
def check(result, threshold, time_step):
approx = True
for i in range(len(result)):
solution = math.exp(-3 * i * time_step)
if abs(result[i] - solution) > threshold:
print(result[i], solution)
approx = False
return approx
def main():
time_step = 0.01
n = 100
threshold = 0.01
result = forward_euler(time_step, n)
approx = check(result, threshold, time_step)
print("All values within threshold") if approx else print("Value(s) not in threshold")
main()
```

```
solveEuler :: Num a => (a -> a) -> a -> a -> [a]
solveEuler f ts = iterate (\x -> x + f x * ts)
checkResult :: (Ord a, Num a, Num t, Enum t) => a -> (t -> a) -> [a] -> Bool
checkResult thresh check =
and . zipWith (\i k -> abs (check i - k) < thresh) [0..]
kinematics :: Double -> Double
kinematics x = -3 * x
main :: IO ()
main =
let timestep = 0.01
n = 100
threshold = 0.01
checkResult' = checkResult threshold $ exp . (\x -> -3 * x * timestep)
in putStrLn $
if checkResult' (take n $ solveEuler kinematics timestep 1)
then "All values within threshold"
else "Value(s) not in threshold"
```

```
clc;clear;close all
%==========================================================================
% Define Function
f =@(x) -3*x;
% Define Initial and Final time
tInit=0;
tLast=5;
% Define number of points
N=1e2;
% Set Initial Conditions
yInit=1;
%==========================================================================
dt=(tLast-tInit)/(N-1); % Calculate dt
t=[tInit:dt:tLast]; % Preallocate time array
y=zeros(1,length(t)); % Preallocate solution array
y(1)=yInit; % Impose Initial Conditions
% Loop over time
for i=1:length(t)-1
t(i+1) = t(i) + dt; % Calculate next time
y(i+1) = y(i) + f( y(i) )*dt; % Update solution
end
% Plot numerical solution
plot(t,y)
% Create analytical solution
g=@(x) exp(-3*x);
z=g(t);
% Plot analytical solution on the same graph
hold on
plot(t,z,'--')
% Set axis, title and legend
xlabel('t');ylabel('y(t)');
title('Analytical VS Numerical Solution')
grid
legend('Numerical','Analytical')
```

```
import Foundation
func solveEuler(timeStep: Double, n: Int) -> [Double] {
var result : [Double] = [1]
for i in 1...n {
result.append(result[i - 1] - 3 * result[i - 1] * timeStep)
}
return result
}
func checkResult(result: [Double], threshold: Double, timeStep: Double) -> Bool {
var isApprox = true
for i in 0..<result.count {
let solution = exp(-3 * Double(i) * timeStep)
if abs(result[i] - solution) > threshold {
print(result[i], solution)
isApprox = false
}
}
return isApprox
}
func main() {
let timeStep = 0.01
let n = 100
let threshold = 0.01
let result = solveEuler(timeStep: timeStep, n: n)
let isApprox = checkResult(result: result, threshold: threshold, timeStep: timeStep)
if isApprox {
print("All values within threshold")
} else {
print("Value(s) not in threshold")
}
}
main()
```

```
function forwardEuler(timeStep, n) {
const arr = [1];
for (let i = 1; i <= n; i++) {
arr[i] = arr[i - 1] - 3 * arr[i - 1] * timeStep;
}
return arr;
}
function checkEuler(arr, timeStep, threshold) {
let isApprox = true;
arr.forEach((_value, i) => {
const solution = Math.exp(-3 * timeStep * i);
if (Math.abs(arr[i] - solution) > threshold) {
console.log(arr[i], solution);
isApprox = false;
}
});
return isApprox;
}
function main() {
const timeStep = 0.01;
const threshold = 0.01;
const n = 100;
const eulerResult = forwardEuler(timeStep, n);
const checkResult = checkEuler(eulerResult, timeStep, threshold);
console.log(checkResult);
}
main();
```

```
PROGRAM euler
IMPLICIT NONE
LOGICAL :: is_approx
REAL(8), DIMENSION(:), ALLOCATABLE :: vec
REAL(8) :: time_step, threshold
INTEGER :: n
time_step = 0.01d0
n = 100
threshold = 0.01d0
ALLOCATE(vec(n))
CALL forward_euler(time_step, n, vec)
is_approx = check_result(vec, threshold, time_step)
WRITE(*,*) is_approx
DEALLOCATE(vec)
CONTAINS
SUBROUTINE forward_euler(time_step, n, vec)
IMPLICIT NONE
REAL(8), DIMENSION(:), INTENT(OUT) :: vec
REAL(8), INTENT(IN) :: time_step
INTEGER, INTENT(IN) :: n
INTEGER :: i
vec(1) = 1d0
DO i=1, n-1
vec(i+1) = vec(i) - 3d0 * vec(i) * time_step
END DO
END SUBROUTINE
LOGICAL FUNCTION check_result(euler_result, threshold, time_step)
IMPLICIT NONE
REAL(8), DIMENSION(:), INTENT(IN) :: euler_result
REAL(8), INTENT(IN) :: threshold, time_step
REAL(8) :: time, solution
INTEGER :: i
check_result = .TRUE.
DO i = 1, SIZE(euler_result)
time = (i - 1) * time_step
solution = EXP(-3d0 * time)
IF (ABS(euler_result(i) - solution) > threshold) THEN
WRITE(*,*) euler_result(i), solution
check_result = .FALSE.
END IF
END DO
END FUNCTION
END PROGRAM euler
```

```
package main
import (
"fmt"
"math"
)
func forwardEuler(timeStep float64, n int) []float64 {
result := make([]float64, n)
result[0] = 1
for x := 1; x < n; x++ {
result[x] = result[x-1] - 3*result[x-1]*timeStep
}
return result
}
func check(result []float64, threshold, timeStep float64) bool {
approx := true
for x := 0.; int(x) < len(result); x++ {
solution := math.Exp(-3. * x * timeStep)
if math.Abs(result[int(x)]-solution) > threshold {
fmt.Println(result[int(x)], solution)
approx = false
}
}
return approx
}
func main() {
timeStep, threshold := .01, .01
n := 100
result := forwardEuler(timeStep, n)
if check(result, threshold, timeStep) {
fmt.Println("All values within threshold")
} else {
fmt.Println("Value(s) not within threshold")
}
}
```

```
import math
fn forward_euler(timestep f64, n int) []f64 {
mut res := [f64(0.0)].repeat(n)
res[0] = f64(1)
for x := 1; x < n; x++ {
res[x] = res[x-1] - 3.0*res[x-1]*timestep
}
return res
}
fn check(result []f64, threshold, timestep f64) bool {
mut approx := true
for x := 0; x < result.len; x++ {
solution := math.exp(-3.0 * f64(x) * timestep)
if math.abs(result[x]-solution) > threshold {
tmp := result[x]
println("There is a mismatch: abs($tmp-$solution) > $threshold!")
approx = false
}
}
return approx
}
fn main() {
timestep := .01
threshold := .01
n := 100
result := forward_euler(timestep, n)
if check(result, threshold, timestep) {
println("All values within threshold")
} else {
println("Value(s) not within threshold")
}
}
```

```
.intel_syntax noprefix
.section .rodata
three: .double -3.0
fabs_const:
.long 4294967295
.long 2147483647
.long 0
.long 0
inital_val: .double 1.0
threshold: .double 0.01
timestep: .double 0.01
error_fmt: .string "%f %f\n"
fmt: .string "%d\n"
.section .text
.global main
.extern printf
.extern exp
# rdi - array size
# rsi - array ptr
# xmm0 - timestep
solve_euler:
movsd xmm1, inital_val
lea rax, [rsi + 8 * rdi + 8] # Set to end of the array
solve_euler_loop:
movsd xmm3, three # Set to -3.0
mulsd xmm2, xmm1 # xmm2 = -3.0 * array[i-1] * timestep
mulsd xmm2, xmm0
subsd xmm1, xmm2 # xmm1 = xmm1 - xmm2
movsd QWORD PTR [rsi], xmm1
add rsi, 8
cmp rsi, rax # Test if we have gone through the array
jne solve_euler_loop
solve_euler_return:
ret
# rdi - array size
# rsi - array ptr
# xmm0 - timestep
# xmm1 - threshold
# RET rax - success code 0 if sucess else 1
check_result:
push r12
push r13
xor rax, rax # Return code is 0
xor r12, r12 # The index is set to 0
mov r13, rdi # Moving array size to free rdi for printf
movsd xmm2, xmm0 # Moving timestep to free xmm0 for exp
jmp loop_check
results_loop:
cvtsi2sd xmm0, r12 # Making int to a double
movsd xmm3, three # Calculating exp(-3.0 * i * timestep)
mulsd xmm0, xmm3
mulsd xmm0, xmm2
call exp
movsd xmm3, QWORD PTR [rsi + r12 * 8] # Calculating abs(array[i] - xmm0)
subsd xmm2, xmm3
movq xmm3, fabs_const
andpd xmm0, xmm3
comisd xmm0, xmm1 # Check if abs(...) > threshold
jbe if_false
mov rdi, OFFSET error_fmt # If true print out array[i] and solution
mov rax, 1
call printf
mov rax, 1 # and set sucess code to failed (rax = 1)
if_false:
add r12, 1
loop_check:
cmp r12, r13 # Check if index is less the array size
jle results_loop
pop r13
pop r12
ret
main:
push rbp
sub rsp, 800 # Making double array[100]
mov rdi, 100
mov rsi, rsp
movsd xmm0, timestep
call solve_euler # Calling solve_euler
mov rdi, 100
mov rsi, rsp
movsd xmm0, timestep
movsd xmm1, threshold
call check_result # Check if results are correct
mov rdi, OFFSET fmt
mov rsi, rax
xor rax, rax
call printf # Print out success code
add rsp, 800 # Deallocating array
pop rbp
xor rax, rax
ret
```

```
public class ForwardEuler {
private static double[] solveEuler(double timestep, int n) {
double[] eulerResult = new double[n];
//Setting the initial condition
eulerResult[0] = 1;
for(int i = 1; i < eulerResult.length; i++) {
eulerResult[i] = eulerResult[i - 1] - (3 * eulerResult[i - 1] * timestep);
}
return eulerResult;
}
private static boolean checkResult(double[] eulerResult, double threshold, double timestep) {
boolean isApprox = true;
for(int i = 0; i < eulerResult.length; i++) {
double time = i * timestep;
double solution = Math.exp(-3 * time);
if(Math.abs(eulerResult[i] - solution) > threshold) {
System.out.println(eulerResult[i] + " " + solution);
isApprox = false;
}
}
return isApprox;
}
public static void main(String[] args) {
double timestep = 0.1;
int n = 100;
double threshold = 0.1;
double[] eulerResult = solveEuler(timestep, n);
boolean isApprox = checkResult(eulerResult, threshold, timestep);
System.out.println(isApprox);
}
}
```

```
import math
proc solveEuler(timestep: float, n: int): seq[float] =
var res = newSeq[float](n)
res[0] = 1.0
for i in 1 .. n - 1:
res[i] = res[i - 1] - 3 * res[i - 1] * timestep
return res
proc check(res: seq[float], timestep, threshold: float): bool =
var approx: bool = true;
for i in 0 .. len(res) - 1:
let solution: float = exp(-3.0 * float(i) * timestep)
if abs(res[i]) - solution > threshold:
echo res[i]
echo solution
approx = false
return approx
const
timestep: float = 0.1
n: int = 100
threshold: float = 0.1
eulerResult: seq[float] = solveEuler(timestep, n)
approx: bool = check(eulerResult, threshold, timestep)
echo approx
```

```
;;;; Forward euler implementation in Common Lisp
(defun solve-euler (timestep n)
"Returns a function where y'(t) = -3t and y(0) = 0 using the forward euler method"
(loop
with result = (make-array n :initial-element 1)
for i from 1 upto (1- n) do
(setf (svref result i) (- (svref result (1- i)) (* 3 (svref result (1- i)) timestep)))
finally (return result)))
(defun approximatep (result threshold timestep)
"Checks the result from the solve-euler function"
(loop
with approximatep = t
with solution = 0
for i from 0 upto (1- (length result)) do
(setf solution (exp (* (- 3) i timestep)))
(when (> (- (svref result i) solution) threshold)
(setf approximatep nil)
(format t "~d ~d~%" (svref result i) solution))
finally (return approximatep)))
(defvar timestep 0.01)
(defvar n 100) ; number of steps
(defvar threshold 0.01)
(defvar result (solve-euler timestep n))
(defvar approximatep (approximatep result threshold timestep))
(format t "~:[Value(s) not in threshold~;All values within threshold~]~%" approximatep)
```

## License

##### Code Examples

The code examples are licensed under the MIT license (found in LICENSE.md).

##### Text

The text of this chapter was written by James Schloss and is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License.

##### Images/Graphics

- The image "FEerror" was created by James Schloss and is licenced under the Creative Commons Attribution-ShareAlike 4.0 International License.
- The image "FEinstability" was created by James Schloss and is licenced under the Creative Commons Attribution-ShareAlike 4.0 International License.

##### Pull Requests

After initial licensing (#560), the following pull requests have modified the text or graphics of this chapter:

- none