stoppur-zwischenzeiten

Start

Stopp

Zwischenzeit

Stoppuhr

LOGplot

<-mittel

D = (139.4289828681346, -0.013907101171628956)
klassenbreite = 10 (slider from 0.1 to 20, step 0.02)
Listezwischenzeiten: {11.014, 24.426, 42.441, 50.356, 64.016, 89.296, 93.056, 97.613, 102.791, 120.16, 122.476, 138.991, 146.405, 151.316, 160.016, 165.166, 189.496, 218.375, 219.296, 225.346, 233.356, 239.796, 283.086, 288.896, 318.491, 331.65, 334.366, 345.505, 373.246, 397.955, 403.436, 411.641, 421.576, 446.411, 461.165, 467.766, 481.081, 498.575, 558.796, 594.665, 632.201, 640.686, 644.706, 651.616, 670.936, 699.756, 725.565, 728.295, 737.336, 747.745, 769.305, 774.011, 846.785, 851.305, 867.405, 900.706, 936.035, 949.555, 958.175, 998.13, 1000.4, 1013.585, 1035.05, 1046.316, 1057.165, 1069.165, 1080.898, 1095.155, 1098.545, 1103.055, 1126.615, 1137.825, 1153.935, 1162.934, 1167.524, 1178.215, 1190.96, 1200.724, 1208.263, 1221.215, 1228.855, 1233.8, 1244.095, 1308.635, 1315.695, 1324.505, 1338.606, 1367.105, 1385.655, 1388.325, 1407.455, 1419.474, 1423.24, 1431.015, 1437.424, 1446.945, 1453.474, 1460.625, 1500.55, 1503.824, 1516.22, 1542.005, 1548.675, 1569.165, 1576.734, 1632.965, 1715.734, 1735.195, 1780.494, 1786.494, 1800.024, 1818.535, 1822.044, 1849.743, 1852.064, 1856.353, 1858.424, 1872.284, 1884.454, 1907.509, 1914.844, 1926.129, 1929.059, 1988.403, 2004.239, 2027.404, 2165.194, 2173.843, 2178.103, 2209.346, 2219.469, 2233.934, 2237.664, 2276.294}
Listewartezeiten = If(Length[Listezwischenzeiten] ≥ 2, Sequence[Listezwischenzeiten(i + 1) - Listezwischenzeiten(i), i, 1, Length[Listezwischenzeiten] - 1], {})
Lt: (Listezwischenzeiten * 1000)
Zeit_0: {84, 48, 58, 13, 27, 1, 2022, "Jänner", "Donnerstag", 5}
t = 53 (slider from 0 to 100, step 1)
Zeit_t: {599, 28, 1, 23, 6, 2, 2022, "Februar", "Sonntag", 1}
ms_0: Element[Zeit_0, 1] + (Element[Zeit_0, 2] * 1000) + (Element[Zeit_0, 3] * 60000) + ((Element[Zeit_0, 4] * 3600) * 1000)
ms_t: Element[Zeit_t, 1] + (Element[Zeit_t, 2] * 1000) + (Element[Zeit_t, 3] * 60000) + ((Element[Zeit_t, 4] * 3600) * 1000)
msΔ: ms_t - ms_0
Stunden = Div(msΔ, 3600000)
Minuten = Div(Mod[msΔ, 3600000], 60000)
Sekunden = Div(Mod[Mod[msΔ, 3600000], 60000], 1000)
Millisekunden = Mod(Mod[Mod[msΔ, 3600000], 60000], 1000)
msms = Last("00" + Millisekunden, 3)
mm = Last("00" + Minuten, 2)
ss = Last("00" + Sekunden, 2)
hh = Last("00" + Stunden, 2)
Liste1: {hh, mm, ss, msms}
Liste2: {"Stunden", "Minuten", "Sekunden", "Millisekunden"}
Zähler = 135
Liste2b = Join({{"Zwischenzeiten"}, Liste2})
j = 1 (slider from -5 to 5, step 1)
Stoppuhr: true
Uhr: "{" + (LaTeX[TableText[{Liste2, Liste1}, "_|c"]]) + "}"
Lms = Sequence(Mod[Mod[Mod[Lt(i), 86400000], 60000], 1000], i, 1, Length[Lt])
Lmin = Sequence(Div[Mod[Lt(i), 86400000], 60000], i, 1, Length[Lt])
Ls = Sequence(Div[Mod[Mod[Lt(i), 86400000], 60000], 1000], i, 1, Length[Lt])
Lh = Sequence(Div[Lt(i), 86400000], i, 1, Length[Lt])
Tabzz = Sequence({i, Lh(i), Lmin(i), Ls(i), Lms(i)}, i, Max[Zähler - 5, 1], Zähler - 1)
l1 = Append(Liste2b, Tabzz)
ZZ = Sequence(If[i ≟ 0, Liste2b, Tabzz(i)], i, 0, Length[Tabzz])
Zwischenzeiten = TableText(ZZ, "_|c")
leereListe = Sequence("", i, 1, 300)
klas = Classes(Listewartezeiten, 0, klassenbreite)
Wartezeitenverteilung = Histogram(klas, Listewartezeiten, true, 1 / Length[Listewartezeiten])
μ = mean(Listewartezeiten)
λ: 1 / μ
f(x) = If[x > 0, (λ * exp((-((λ * x)))))]
eqplot = Sequence(CountIf[x ≥ Listewartezeiten(i), Listewartezeiten], i, 1, Length[Listewartezeiten])
eqplot2: eqplot / Length[Listewartezeiten]
eqplot3: (Listewartezeiten, ln(eqplot2))
eq(x) = If[0 ≤ x < Max[Listewartezeiten], (-((λ * x)))]
a = false
A = Point(xAxis)
B = Point(yAxis)
l2: ((x(A) * Listezwischenzeiten / Max[Listezwischenzeiten]), y(B))
Start: (0, y(D))
Zeitpunkte = Segment((x(Start), y(D)), (x(D), y(D)))
A1: 11.014
A2: 24.426
B1: 17.032
B2: 13.412
A3: 42.441
B3: 18.015
A4: 50.356
B4: 7.915
A5: 64.016
B5: 13.66
A6: 89.296
B6: 25.28
A7: 93.056
B7: 3.76
A8: 97.613
B8: 4.557
A9: 102.791
B9: 5.178
A10: 120.16
B10: 17.369
A11: 122.476
B11: 2.316
A12: 138.991
B12: 16.515
A13: 146.405
B13: 7.414
A14: 151.316
B14: 4.911
A15: 160.016
B15: 8.7
A16: 165.166
B16: 5.15
A17: 189.496
B17: 24.33
A18: 218.375
B18: 28.879
A19: 219.296
B19: 0.921
A20: 225.346
B20: 6.05
A21: 233.356
B21: 8.01
A22: 239.796
B22: 6.44
A23: 283.086
B23: 43.29
A24: 288.896
B24: 5.81
A25: 318.491
B25: 29.595
A26: 331.65
B26: 13.159
A27: 334.366
B27: 2.716
A28: 345.505
B28: 11.139
A29: 373.246
B29: 27.741
A30: 397.955
B30: 24.709
A31: 403.436
B31: 5.481
A32: 411.641
B32: 8.205
A33: 421.576
B33: 9.935
A34: 446.411
B34: 24.835
A35: 461.165
B35: 14.754
A36: 467.766
B36: 6.601
A37: 481.081
B37: 13.315
A38: 498.575
B38: 17.494
A39: 558.796
B39: 60.221
A40: 594.665
B40: 35.869
A41: 632.201
B41: 37.536
A42: 640.686
B42: 8.485
A43: 644.706
B43: 4.02
A44: 651.616
B44: 6.91
A45: 670.936
B45: 19.32
A46: 699.756
B46: 28.82
A47: 725.565
B47: 25.809
A48: 728.295
B48: 2.73
A49: 737.336
B49: 9.041
A50: 747.745
B50: 10.409
A51: 769.305
B51: 21.56
A52: 774.011
B52: 4.706
A53: 846.785
B53: 72.774
A54: 851.305
B54: 4.52
A55: 867.405
B55: 16.1
A56: 900.706
B56: 33.301
A57: 936.035
B57: 35.329
A58: 949.555
B58: 13.52
A59: 958.175
B59: 8.62
A60: 998.13
B60: 39.955
A61: 1000.4
B61: 2.27
A62: 1013.585
B62: 13.185
A63: 1035.05
B63: 21.465
A64: 1046.316
B64: 11.266
A65: 1057.165
B65: 10.849
A66: 1069.165
B66: 12
A67: 1080.898
B67: 11.733
A68: 1095.155
B68: 14.257
A69: 1098.545
B69: 3.39
A70: 1103.055
B70: 4.51
A71: 1126.615
B71: 23.56
A72: 1137.825
B72: 11.21
A73: 1153.935
B73: 16.11
A74: 1162.934
B74: 8.999
A75: 1167.524
B75: 4.59
A76: 1178.215
B76: 10.691
A77: 1190.96
B77: 12.745
A78: 1200.724
B78: 9.764
A79: 1208.263
B79: 7.539
A80: 1221.215
B80: 12.952
A81: 1228.855
B81: 7.64
A82: 1233.8
B82: 4.945
A83: 1244.095
B83: 10.295
A84: 1308.635
B84: 64.54
A85: 1315.695
B85: 7.06
A86: 1324.505
B86: 8.81
A87: 1338.606
B87: 14.101
A88: 1367.105
B88: 28.499
A89: 1385.655
B89: 18.55
A90: 1388.325
B90: 2.67
A91: 1407.455
B91: 19.13
A92: 1419.474
B92: 12.019
A93: 1423.24
B93: 3.766
A94: 1431.015
B94: 7.775
A95: 1437.424
B95: 6.409
A96: 1446.945
B96: 9.521
A97: 1453.474
B97: 6.529
A98: 1460.625
B98: 7.151
A99: 1500.55
B99: 39.925
A100: 1503.824
B100: 3.274
A101: 1516.22
B101: 12.396
A102: 1542.005
B102: 25.785
A103: 1548.675
B103: 6.67
A104: 1569.165
B104: 20.49
A105: 1576.734
B105: 7.569
A106: 1632.965
B106: 56.231
A107: 1715.734
B107: 82.769
A108: 1735.195
B108: 19.461
A109: 1780.494
B109: 45.299
A110: 1786.494
B110: 6
A111: 1800.024
B111: 13.53
A112: 1818.535
B112: 18.511
A113: 1822.044
B113: 3.509
A114: 1849.743
B114: 27.699
A115: 1852.064
B115: 2.321
A116: 1856.353
B116: 4.289
A117: 1858.424
B117: 2.071
A118: 1872.284
B118: 13.86
A119: 1884.454
B119: 12.17
A120: 1907.509
B120: 23.055
A121: 1914.844
B121: 7.335
A122: 1926.129
B122: 11.285
A123: 1929.059
B123: 2.93
A124: 1988.403
B124: 59.344
A125: 2004.239
B125: 15.836
A126: 2027.404
B126: 23.165
A127: 2165.194
B127: 137.79
A128: 2173.843
B128: 8.649
A129: 2178.103
B129: 4.26
A130: 2209.346
B130: 31.243
A131: 2219.469
B131: 10.123
A132: 2233.934
B132: 14.465
A133: 2237.664
B133: 3.73
A134: 2276.294
B134: 38.63
l3: (x(Start) + ((x(D) - x(Start)) * Listezwischenzeiten / Max[Listezwischenzeiten]), y(D))
Text3 = LaTeX(μ, true, true)
Text4 = LaTeX(λ, true, true)
sechstel: Max[Listezwischenzeiten] / 6
b = Percentile(Listezwischenzeiten, 1 / 6)
h1 = CountIf(x < sechstel, Listezwischenzeiten)
wuerfeln = Sequence(CountIf[((i - 1) * sechstel) < x ≤ (i * sechstel), Listezwischenzeiten], i, 1, 6)
radeln = Sequence((i, Element[Listezwischenzeiten, i]), i, 1, Zähler)
delta: x(D) - x(Start)
radeln1 = Sequence((x(Start) + i / delta, (1 / y(D) * Element[Listezwischenzeiten, i])), i, 1, Zähler)
Text2: "" + (Zähler - 1) + ""
σ = stdev(Listewartezeiten)
Text5 = LaTeX(σ, true, true)
Text6: "Häufigkeiten: " + wuerfeln + ""