FWHM

a max

1/2 a max

a

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, g, (1.009695975766056, 5.905879921385199))
E = Intersect(f, g, (14.290896678779323, 5.90587992135682))
h = OrthogonalLine(D, xAxis)
i = OrthogonalLine(E, xAxis)
F = Intersect(h, xAxis)
G = Intersect(xAxis, i)
j = Segment(D, F)
k = Segment(D, E)
l = Segment(E, G)
m = OrthogonalLine(D, yAxis)
H = Intersect(yAxis, m)
n = Segment(H, D)
u = Vector(F, G)