t_D = 90 (slider from -5 to 100, step 0.05)
A: 80
f(x) = (A * 0.5^(x / t_D))
rob = 12 (slider from 0 to 400, step 1)
B: (rob, f(rob))
a = Line(B, xAxis)
BM: (rob, y(B) / 2)
b = Line(BM, xAxis)
C = Intersect(f, b, (102, 36.46889954232867))
c = Segment(B, BM)
B0: (rob, 0)
d = Segment(BM, B0)
e = Segment(BM, C)