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
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 |
kg |
|
|
cd |
kg/s |
|
|
dt |
s |
|
|
|
|
|
|
t |
vnum(m/s) vanal(m/s) |
|
|
0 |
0 |
0 |
|
2 |
16.53092 |
16.40498 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|