running north

slowing down

estimated position after three minutes

First

Second

Third

Fourth

Fifth

Sixth

Seventh

show actual

actual position after three minutes

t = 0.12 (slider from 0 to 3, step 0.01)
A = (0, 1)
list2 = Sequence(y = i, i, -10, 10)
list1 = Sequence(x = i, i, -10, 10)
runnorth = false
c(t) = 1
L(t) = 1 + 2 * t
Q(t) = 1 + 2 * t - t^(2) / 4
slowdown = false
fapprox = Function(If[runnorth, If[slowdown, Q, L], c], 0, 3)
B: (0, fapprox(3))
C: (0, fapprox(t))
maxt = 3
miny = 0.5
maxy = 7.5
D: (t, fapprox(t))
final(x) = fapprox(3)
actual = Function(1 + 2 * t - t^(2) / 4 - t^(3) / 10 + t^(4) / 40, 0, 3)
E: (0, actual(t))
F: (t, actual(t))
d = false
text11 = RotateText("Broadway", 1.5707963267948966)
text12 = RotateText("Western", 1.5707963267948966)
text10 = RotateText("Park", 1.5708)
text8 = RotateText("Main", 1.5708)
text9 = RotateText("Pleasant", 1.5708)
text13 = RotateText("Church", 1.5707963267948966)
text14 = RotateText("Lake", 1.5707963267948966)
text15 = RotateText("Elm", 1.5707963267948966)
G: (0, actual(3))
actualfinal(x) = actual(3)