Zeit

Anzahl

b berechnen und anzeigen

Anfangswert

Halbwertszeit

a anzeigen

t_H = 1 (slider from 0 to 25, step 0.01)
n_0 = 1000 (slider from -5 to 3500, step 1)
a = 650 (slider from 0 to 5000, step 10)
b = 0.12 (slider from -1 to 1, step 0.001)
f(x) = (a * exp((b * x)))
A2 = 0
B2: n_0
A3: A2 + t_H
B3: B2 / 2
A4: A3 + t_H
B4: B3 / 2
A5: A4 + t_H
B5: B4 / 2
A6: A5 + t_H
B6: B5 / 2
A7: A6 + t_H
B7: B6 / 2
A8: A7 + t_H
B8: B7 / 2
A9: A8 + t_H
B9: B8 / 2
A10: A9 + t_H
B10: B9 / 2
A11: A10 + t_H
B11: B10 / 2
A12: A11 + t_H
B12: B11 / 2
A13: A12 + t_H
B13: B12 / 2
A14: A13 + t_H
B14: B13 / 2
A15: A14 + t_H
B15: B14 / 2
A16: A15 + t_H
B16: B15 / 2
A: (A2, B2)
B: (A3, B3)
C: (A4, B4)
D: (A5, B5)
E: (A6, B6)
F: (A7, B7)
G: (A8, B8)
H: (A9, B9)
I: (A10, B10)
J: (A11, B11)
K: (A12, B12)
L: (A13, B13)
M: (A14, B14)
N: (A15, B15)
O: (A16, B16)
c = PolyLine({A, B, C, D, E, F, G, H, I, J, K, L, M, N, O})
d = false
Text2_1: "f(x)=a  \cdot e^{b \cdot x} = " + (LaTeX[(a * exp((b * x)))]) + ""
loes = Function(f, 0, 16)
Text1: "b = \frac {\ln (0.5)} {t_H} =  " + (LaTeX[log(0.5) / t_H]) + ""
P = (-5.32, 1434.1081802071453)
Q = (-5.26, 114.12001434008855)
R = (-0.72, 110.31601386208551)
S = (-0.72, 1434.1081802071453)
Vieleck1, p, q, r, s = Polygon(P, Q, R, S)
e = false
Text4: "a = n_0 = " + (LaTeX[n_0]) + ""