Option Explicit

Function Euler(dt, ti, tf, yi, m, cd)

Dim h As Single, t As Single, y As Single, dydt As Single

t = ti

y = yi

h = dt

Do

If t + dt > tf Then

h = tf - t

End If

dydt = dy(t, y, m, cd)

y = y + dydt * h

t = t + h

If t >= tf Then Exit Do

Loop

Euler = y

 

End Function

 

Function dy(t, v, m, cd)

Const g As Single = 9.8

dy = g - (cd / m) * v

End Function

 

Parachutist Problem

 

 

 

 

 

 

m

68.1

 kg

 

cd

12.5

kg/s

 

dt

0.1

s

 

 

 

 

 

t

vnum(m/s) vanal(m/s)

 

0

0

0

 

2

16.53092

16.40498