reset

imtrichter

boxenlänge L

standardabw

h näher bei p

verkürzungsfaktor

verh-standabweichung

Stelle

max

q3

median

q1

min

Punkte

Boxen

trichter

komplett im Trichter

n = 400 (slider from 100 to 1600, step 10)
n1: round(n / 16)
xwerte = Sequence(1, n)
p = 0.5 (slider from 0.1 to 0.9, step 0.05)
wurm = Sequence(If[random() < p, 1, 0], i, 1, n)
wurmrh = Sequence(Sum[wurm, i] / i, i, 1, n)
ywerte: wurmrh
punkte = Sequence((Element[xwerte, i], Element[ywerte, i]), i, 1, n)
P = Element(punkte, n1)
Liste1: {}
o(x) = If[1 ≤ x ≤ (1.1 * n), p + (2 * sqrt((p * (1 - p) / x)))]
u(x) = If[1 ≤ x ≤ (1.1 * n), p - (2 * sqrt((p * (1 - p) / x)))]
wurmflop = Sequence(If[u(i) < Element[wurmrh, i] < o(i), 0, 1], i, 1, n)
wurmimtrichter = If(Sum[wurmflop] ≟ 0, 1, 0)
listewurmtrichter: {1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0}
komplettimtrichter = Sum(listewurmtrichter)
Simulationen = Length(listewurmtrichter)
rh100: (Sum[wurmflop, 100] * 0.01)
rh400: (Sum[wurmflop, 400] * 0.0025)
n2: round(n / 4)
Q = Element(punkte, n2)
data1: {0.56, 0.36, 0.68, 0.52, 0.64, 0.6, 0.68, 0.6, 0.4, 0.52, 0.64, 0.52, 0.56, 0.44, 0.56, 0.6, 0.64, 0.6, 0.52, 0.56, 0.4, 0.48, 0.44, 0.6, 0.6, 0.52, 0.4, 0.6, 0.68, 0.56, 0.48, 0.6, 0.48, 0.4, 0.52, 0.52, 0.52, 0.64, 0.52, 0.64, 0.52, 0.48, 0.32, 0.48, 0.36, 0.4, 0.36, 0.48, 0.44, 0.52, 0.6, 0.52, 0.32, 0.44, 0.48, 0.36, 0.52, 0.36, 0.64, 0.72, 0.68, 0.36, 0.52, 0.48, 0.48, 0.68, 0.56, 0.68, 0.44, 0.68, 0.44, 0.48, 0.44, 0.56, 0.64, 0.48, 0.4, 0.52, 0.56, 0.48, 0.52, 0.56, 0.64, 0.68, 0.44, 0.4, 0.36, 0.6, 0.56, 0.6, 0.44, 0.4, 0.72, 0.44, 0.44, 0.6, 0.48, 0.44, 0.52, 0.44, 0.64, 0.44, 0.4, 0.56, 0.52, 0.48, 0.56, 0.68, 0.44, 0.32, 0.44, 0.48, 0.48, 0.32, 0.48, 0.56, 0.44, 0.56, 0.52, 0.44, 0.44, 0.48, 0.44, 0.56, 0.56, 0.64, 0.48, 0.52, 0.4, 0.52, 0.48, 0.48, 0.6, 0.32, 0.52, 0.44, 0.36, 0.48, 0.48, 0.44, 0.4, 0.48, 0.52, 0.36, 0.28, 0.52, 0.44, 0.52, 0.52, 0.52, 0.44, 0.56, 0.32, 0.4, 0.56, 0.6, 0.6, 0.56, 0.52, 0.44, 0.4, 0.48, 0.52, 0.2, 0.72, 0.44, 0.44, 0.52, 0.36, 0.68, 0.48, 0.44, 0.48, 0.48, 0.6, 0.52, 0.4, 0.56, 0.4, 0.64, 0.56, 0.48, 0.52, 0.56, 0.44, 0.48, 0.44, 0.28, 0.52, 0.52, 0.56, 0.56, 0.52, 0.56, 0.56, 0.52, 0.32, 0.32, 0.52, 0.56, 0.52, 0.52, 0.52, 0.6, 0.48, 0.36, 0.4, 0.48, 0.56, 0.44, 0.4, 0.4, 0.4, 0.44, 0.64, 0.4, 0.52, 0.52, 0.6, 0.4, 0.6, 0.48, 0.6, 0.44, 0.4, 0.52, 0.4, 0.48, 0.56, 0.4, 0.36, 0.52, 0.48, 0.32, 0.56, 0.56, 0.64, 0.56, 0.44, 0.48, 0.48, 0.6, 0.4, 0.36, 0.52, 0.2, 0.6, 0.36, 0.48, 0.56, 0.4, 0.52, 0.48, 0.48, 0.32, 0.4, 0.44, 0.72, 0.4, 0.44, 0.48, 0.6, 0.48, 0.6, 0.52}
data2: {0.43, 0.41, 0.57, 0.49, 0.52, 0.55, 0.5, 0.55, 0.4, 0.44, 0.53, 0.44, 0.54, 0.51, 0.46, 0.57, 0.59, 0.53, 0.49, 0.5, 0.48, 0.47, 0.39, 0.42, 0.53, 0.55, 0.56, 0.41, 0.63, 0.46, 0.55, 0.57, 0.45, 0.42, 0.5, 0.52, 0.48, 0.43, 0.5, 0.56, 0.5, 0.53, 0.43, 0.46, 0.48, 0.48, 0.48, 0.52, 0.51, 0.52, 0.53, 0.53, 0.45, 0.44, 0.48, 0.38, 0.39, 0.48, 0.57, 0.48, 0.53, 0.44, 0.49, 0.55, 0.48, 0.51, 0.55, 0.52, 0.48, 0.58, 0.45, 0.47, 0.45, 0.55, 0.61, 0.52, 0.48, 0.58, 0.52, 0.45, 0.47, 0.54, 0.56, 0.51, 0.55, 0.45, 0.4, 0.52, 0.56, 0.54, 0.54, 0.4, 0.6, 0.47, 0.43, 0.5, 0.56, 0.45, 0.45, 0.45, 0.51, 0.51, 0.44, 0.44, 0.51, 0.5, 0.54, 0.56, 0.46, 0.46, 0.45, 0.51, 0.49, 0.43, 0.47, 0.49, 0.53, 0.48, 0.52, 0.47, 0.5, 0.51, 0.5, 0.51, 0.51, 0.54, 0.43, 0.53, 0.52, 0.5, 0.47, 0.5, 0.56, 0.55, 0.5, 0.45, 0.48, 0.46, 0.56, 0.45, 0.57, 0.54, 0.47, 0.48, 0.41, 0.5, 0.46, 0.56, 0.41, 0.55, 0.49, 0.6, 0.44, 0.46, 0.51, 0.61, 0.56, 0.49, 0.54, 0.47, 0.49, 0.57, 0.58, 0.51, 0.6, 0.45, 0.44, 0.4, 0.44, 0.58, 0.51, 0.5, 0.52, 0.53, 0.46, 0.52, 0.43, 0.6, 0.46, 0.47, 0.55, 0.47, 0.49, 0.42, 0.54, 0.5, 0.53, 0.48, 0.48, 0.45, 0.59, 0.49, 0.46, 0.5, 0.54, 0.55, 0.4, 0.37, 0.54, 0.58, 0.54, 0.45, 0.53, 0.48, 0.53, 0.43, 0.45, 0.4, 0.52, 0.41, 0.48, 0.48, 0.47, 0.52, 0.46, 0.5, 0.51, 0.55, 0.61, 0.55, 0.6, 0.5, 0.57, 0.49, 0.48, 0.47, 0.61, 0.48, 0.53, 0.45, 0.54, 0.49, 0.5, 0.44, 0.52, 0.53, 0.53, 0.51, 0.5, 0.55, 0.49, 0.49, 0.5, 0.45, 0.5, 0.35, 0.51, 0.55, 0.46, 0.52, 0.47, 0.45, 0.51, 0.55, 0.46, 0.51, 0.47, 0.54, 0.51, 0.44, 0.49, 0.54, 0.53, 0.56, 0.52}
data: {0.48, 0.505, 0.52, 0.46, 0.5125, 0.515, 0.5, 0.545, 0.475, 0.4675, 0.53, 0.495, 0.5225, 0.49, 0.4875, 0.5575, 0.4975, 0.545, 0.4775, 0.515, 0.4825, 0.5175, 0.4875, 0.48, 0.4875, 0.53, 0.5175, 0.4575, 0.5525, 0.495, 0.4925, 0.5225, 0.4875, 0.505, 0.5125, 0.5, 0.5, 0.455, 0.525, 0.5025, 0.4925, 0.47, 0.4625, 0.5025, 0.49, 0.505, 0.4575, 0.4825, 0.495, 0.5125, 0.525, 0.5225, 0.4975, 0.515, 0.485, 0.4475, 0.4825, 0.4675, 0.5025, 0.4925, 0.5175, 0.48, 0.53, 0.535, 0.53, 0.5125, 0.5275, 0.525, 0.5025, 0.52, 0.5175, 0.5175, 0.4675, 0.4975, 0.5125, 0.49, 0.455, 0.56, 0.5, 0.4675, 0.49, 0.5125, 0.5125, 0.48, 0.4975, 0.4625, 0.465, 0.5025, 0.5375, 0.5225, 0.4925, 0.4825, 0.5325, 0.495, 0.51, 0.5225, 0.5175, 0.505, 0.5325, 0.5125, 0.48, 0.5375, 0.485, 0.51, 0.51, 0.545, 0.54, 0.5275, 0.475, 0.47, 0.53, 0.535, 0.4975, 0.4675, 0.46, 0.485, 0.4775, 0.525, 0.5025, 0.4875, 0.465, 0.5, 0.4775, 0.4725, 0.455, 0.48, 0.5075, 0.515, 0.505, 0.5175, 0.505, 0.5025, 0.5075, 0.4775, 0.475, 0.46, 0.49, 0.5, 0.49, 0.4925, 0.53, 0.5125, 0.485, 0.4925, 0.5025, 0.54, 0.4875, 0.4975, 0.4975, 0.5, 0.51, 0.535, 0.5025, 0.505, 0.4675, 0.5425, 0.505, 0.4675, 0.4475, 0.4925, 0.4925, 0.5075, 0.5475, 0.4775, 0.5225, 0.46, 0.4875, 0.4875, 0.4725, 0.5, 0.4925, 0.5525, 0.4825, 0.5175, 0.495, 0.505, 0.5175, 0.5275, 0.475, 0.47, 0.5375, 0.5075, 0.5125, 0.4625, 0.53, 0.51, 0.5075, 0.505, 0.4825, 0.495, 0.5125, 0.495, 0.4975, 0.4875, 0.4975, 0.4975, 0.49, 0.445, 0.4925, 0.545, 0.5425, 0.51, 0.52, 0.5075, 0.4725, 0.5125, 0.4625, 0.5025, 0.4925, 0.48, 0.515, 0.49, 0.495, 0.4575, 0.4875, 0.495, 0.5, 0.5125, 0.5575, 0.5025, 0.5075, 0.4675, 0.5375, 0.4825, 0.4725, 0.465, 0.51, 0.505, 0.525, 0.4725, 0.5, 0.5125, 0.4925, 0.4825, 0.4975, 0.4925, 0.4875, 0.4825, 0.515, 0.5025, 0.49, 0.5175, 0.51, 0.4675, 0.4725, 0.47, 0.5175, 0.5025, 0.4925, 0.4975, 0.485, 0.495, 0.5175, 0.5375, 0.5175, 0.4975, 0.48, 0.4875, 0.495, 0.445, 0.505, 0.535, 0.5, 0.515, 0.475}
R = Element(punkte, n)
listeverbessert12: {}
l1: (n1, data1)
B2: n1
C2: n2
D2: n
B3 = Max(data1)
C3 = Max(data2)
D3 = Max(data)
B4 = Q3(data1)
C4 = Q3(data2)
D4 = Q3(data)
B5 = Median(data1)
C5 = Median(data2)
D5 = Median(data)
B6 = Q1(data1)
C6 = Q1(data2)
D6 = Q1(data)
D7 = Min(data)
ypos: 0
B7 = Min(data1)
C7 = Min(data2)
box1 = Segment((n1, B4 + ypos), (n1, B6 + ypos))
antenne1 = Segment((n1, B3 + ypos), (n1, B7 + ypos))
B8: B4 - B6
C8: C4 - C6
D8: D4 - D6
C10 = CountIf(u(n2) ≤ x ≤ o(n2), data2)
D10 = CountIf(u(n) ≤ x ≤ o(n), data)
data1imtrichter = CountIf(u(n1) ≤ x ≤ o(n1), data1)
data2imtrichter = CountIf(u(n1) ≤ x ≤ o(n1), data2)
dataimtrichter = CountIf(u(n1) ≤ x ≤ o(n1), data)
verbesserungen12 = CountIf(x ≟ true, abs(data1 - p) > abs(data2 - p))
verbesserungen23 = CountIf(x ≟ true, abs(data2 - p) > abs(data - p))
verbesserungen13 = CountIf(x ≟ true, abs(data1 - p) > abs(data - p))
l2: (n2, data2)
l: (n, data)
B10 = CountIf(u(n1) ≤ x ≤ o(n1), data1)
E10: komplettimtrichter
B9 = stdevp(data1)
C9 = stdevp(data2)
D9 = stdevp(data)
B11: verbesserungen12
C11: verbesserungen23
D11: verbesserungen13
B12: C8 / B8
C12: D8 / C8
D12: D8 / B8
B13: C9 / B9
C13: D9 / C9
box = Segment((n, D4 + ypos), (n, D6 + ypos))
box2 = Segment((n2, C4 + ypos), (n2, C6 + ypos))
antenne2 = Segment((n2, C3 + ypos), (n2, C7 + ypos))
antenne = Segment((n, D3 + ypos), (n, D7 + ypos))
zeigepunkt = false
zeigebox = true
zeigetrichter = true
m(x) = If[0 ≤ x ≤ (1.1 * n), p]
trichterlegende = TableText(A2:E2, A10:E10, "|_")
Text1: "" + Simulationen + ""
spiegelpunkte = Sequence((Element[ywerte, i], Element[xwerte, i]), i, 1, n)
box1a = BoxPlot(n1, 10, data1)
box2a = BoxPlot(n2, 10, data2)
boxa = BoxPlot(n, 10, data)
boxplotlegende = TableText(A2:D2, A8:D8, A12:D12, A11:D11, "|_")