Δείξε τον χρόνο ημιζωής

c = 0.2 (slider from -2 to 2, step 0.1)
Q_0 = 2 (slider from 0.1 to 5, step 0.1)
Q = If(x ≥ 0, Q_0 * ℯ^(c * x))
A: (0, Q_0 / 2)
a = Line(A, xAxis)
B = Intersect(Q, a, (6.931471805599451, 1.4500000000000002))
C: (x(B), 0)
u = Vector(B, C)
halflifetime: x(B)
halflife: Q_0 / 2
text2: "" + halflife + ""
v = Vector(A, B)
text3: "" + halflifetime + ""
b = false
text1: "Ο νόμος της εκθετικής μεταβολής
$ Q(t)=Q_0 e^{ct}$
$Q(t)=" + (LaTeX[Q_0]) + " e^{" + (LaTeX[c]) + "t}$"