Zerfälle pro min

Altersbestimmung mit der C-14-Methode:
In 1g Kohlenstoff aus “frischem” Holz/Gewebe/Knochen 
gibt es 13.56 Zerfälle C-14 pro min.
C-14 zerfällt mit der Halbwertszeit 5730 Jahre.

Beispiel: Wenn in einer 1g-Probe-Kohlenstoff aus einem
archäologischen Fund 5.8 Zerfälle pro min gemssen werden, 
dann ist die Probe ca. 7020 Jahre alt (Wert c).

z = 5.8 (slider from 0 to 13.56, step 0.01)
A4 = 3
A3 = 2
A2 = 1
A1 = 0
B2: (A2 * 5730)
B1 = 0
C1 = 13.56
C2: C1 / 2
C3: C2 / 2
C4: C3 / 2
C5: C4 / 2
C6: C5 / 2
C7: C6 / 2
B3: (A3 * 5730)
B4: (A4 * 5730)
A5 = 4
A6 = 5
A7 = 6
B5: (A5 * 5730)
B6: (A6 * 5730)
B7: (A7 * 5730)
A: (B1, C1)
B: (B2, C2)
C: (B3, C3)
D: (B4, C4)
E: (B5, C5)
F: (B6, C6)
G: (B7, C7)
L1: {A, B, C, D, E, F, G}
f = FitGrowth(L1)
H: (0, z)
a = Line(H, xAxis)
I = Intersect(f, a, (7020.5814979877605, 5.8))
b = Line(I, yAxis)
J = Intersect(b, xAxis)
c = Segment(H, I)
d = Segment(I, J)