impfwirk

Studiengröße

Impfgruppe

Infizierte der Impfgruppe

Infizierte der Placebogruppe

max. Infiziertenanteil

Keine sinnvolle Wirkung!

n = 40000 (slider from 0 to 50000, step 1)
i = 20800 (slider from 0 to n, step 1)
j: n - i
k: 40
l: 320
wirk: 1 - k / i / (l / j)
Eingabefeld1 = Textfield(n)
Eingabefeld2 = Textfield(i)
Eingabefeld3 = Textfield(k)
Eingabefeld4 = Textfield(l)
Text2: "Placebogruppe " + j + ""
Text3: "Anteil Infizierter " + (k / i) + ""
Text4: "Anteil Infizierter " + (l / j) + ""
maxanteilinf = 0.1 (slider from 0 to 1, step 0.01)
Text1: "Wirksamkeit ≈ " + (If[wirk > 0.05, wirk]) + ""