n

β

p von

p bis

p

h von

h bis

*σ

exakt

Näherung

Abschätzung

h

exakt

Abschätzung

Konfidenz

Prognose

veränderbar

σ

ß

n

1. n, h, c vorgeben
2. p variieren (mit Spur)

c=

h = 0.5 (slider from 0.05 to 0.95, step 0.01)
p: 0
n = 100 (slider from 10 to 400, step 5)
B9: p
G4: 0.954499736103643
A = (0, 0)
B = (1, 0)
f = Segment(A, B)
B4: h
h_1: B4
c = 1.96 (slider from 1 to 5, step 0.001)
c_{1}: c
u_1: (c_{1}^(2) / ((2 * n)) + h - (c_{1} * sqrt(c_{1}^(2) / 4 / n^(2) + ((h * (1 - h))) / n))) / (c_{1}^(2) / n + 1)
o_1: (c_{1}^(2) / ((2 * n)) + h + (c_{1} * sqrt(c_{1}^(2) / 4 / n^(2) + (h * (1 - h) / n)))) / (c_{1}^(2) / n + 1)
r_o: o_1 - h_1
f_+(x) = x + (c_{1} * sqrt(((x * (1 - x))) / n))
f_-(x) = x - (c_{1} * sqrt(((x * (1 - x))) / n))
U: (u_1, h)
O: (o_1, h)
rH: (0, B4)
OO: (1, h)
i = Segment(rH, OO)
j = Segment(U, O)
PP: (1, 0)
k = Segment(A, PP)
Wk: (B9, 0)
l = Segment((x(Wk), 0), (x(Wk), 1))
m = Segment((x(Wk), f_-(x(Wk))), (x(Wk), f_+(x(Wk))))
B5: u_1
B6: o_1
B11: f_+(B9)
B10: f_-(B9)
C2: c_{1}
C5: f_-(B4)
C6: f_+(B4)
B1: n
D6: B4 + C2 / 2 / sqrt(B1)
D5: B4 - C2 / 2 / sqrt(B1)
C10: B9 - C2 / 2 / sqrt(B1)
C11: B9 + C2 / 2 / sqrt(B1)
F3: 1
G3: 0.682689492137087
F4: 2
F5: 3
G5: 0.997300203936741
d(x) = If[0 < x < 1, x]
laplace_u: 0.5 - sqrt(0.25 - 9 / B1)
laplace_o: 0.5 + sqrt(0.25 - 9 / B1)
relH: (y(rH), x(rH))
w_+(x) = If[0 < x < 410, B9 + (C2 * sqrt(((B9 * (1 - B9))) / x))]
w_-(x) = If[0 < x < 410, B9 - (C2 * sqrt(((B9 * (1 - B9))) / x))]
g = Segment((B1, w_-(B1)), (B1, w_+(B1)))
ff_-(x) = If[laplace_u < x < laplace_o, x - (c_{1} * sqrt(((x * (1 - x))) / n))]
H: (n, h)
C: (p, h)
P_2: (p, 0)
panzeigen = If(f_-(p) < h < f_+(p), true, false)
P_1: (0, p)
spurein = true
Eingabefeld1 = Textfield(n)
w(x) = If[0 < x < 410, B9]
hfg(x) = If[0 < x < 410, h]
Text3: "c=" + c_{1} + ""
β: Normal[0, 1, c] - Normal[0, 1, (-c)]
Eingabefeld2 = Textfield(c)
Text5: "β= " + β + ""
ff_+(x) = If[laplace_u < x < laplace_o, x + (c * sqrt(((x * (1 - x))) / n))]
Text2 = LaTeX(h, true, true)
Text4 = LaTeX(p, true, true)