daten =
{{1, 0.1}, {2, 0.075}, {3, 0}, {4, 0.025}, {5, 0.05}, {6, 0.025}, {7,
0}, {8, 0.2}, {9, 0}, {10, 0.025}}
p0 = Mean[{Mean@#} & /@ Partition[Last /@ daten, 2]]
n = 40
\[Omega] = 1.64485
\[Kappa] = 2.78215
Wo = p0 + \[Omega]*Sqrt[1/n*p0*(1 - p0)]
Ko = p0 + \[Kappa]*Sqrt[1/n*p0*(1 - p0)]
p1 = ListLinePlot[{daten}, Mesh -> All, MeshStyle -> Black,
PlotRange -> {0, 0.225}]
p2 = Plot[{Wo, Ko, p0}, {x, 0, 10},
PlotStyle -> {{Dashed, Red}, {Dotted, Orange}, {Full, Green}},
PlotRange -> {0, 0.225}]
p3 = Graphics[{Red, Thick, Dashed, Circle[{8, 0.2}, {0.25, 0.01}]}]]
Show[p1, p2, p3]
{{1, 0.1}, {2, 0.075}, {3, 0}, {4, 0.025}, {5, 0.05}, {6, 0.025}, {7,
0}, {8, 0.2}, {9, 0}, {10, 0.025}}
p0 = Mean[{Mean@#} & /@ Partition[Last /@ daten, 2]]
n = 40
\[Omega] = 1.64485
\[Kappa] = 2.78215
Wo = p0 + \[Omega]*Sqrt[1/n*p0*(1 - p0)]
Ko = p0 + \[Kappa]*Sqrt[1/n*p0*(1 - p0)]
p1 = ListLinePlot[{daten}, Mesh -> All, MeshStyle -> Black,
PlotRange -> {0, 0.225}]
p2 = Plot[{Wo, Ko, p0}, {x, 0, 10},
PlotStyle -> {{Dashed, Red}, {Dotted, Orange}, {Full, Green}},
PlotRange -> {0, 0.225}]
p3 = Graphics[{Red, Thick, Dashed, Circle[{8, 0.2}, {0.25, 0.01}]}]]
Show[p1, p2, p3]