a max

t max

a(t) = 25 * (ℯ^(-0.1 * t) - ℯ^(-0.4 * t))
f = Function(a, 0, 25)
A = Max(a, 0, 25)
b = OrthogonalLine(A, xAxis)
c = OrthogonalLine(A, yAxis)
B = Intersect(xAxis, b)
C = Intersect(yAxis, c)
d = Segment(A, B)
e = Segment(C, A)
g = LineBisector(d)
D = Intersect(f, e, (4.6209806950351915, 11.811759842764374))
h = OrthogonalLine(D, xAxis)
E = Intersect(h, xAxis)
i = Segment(E, D)