Wahrscheinlichkeit p

Anzahl 

n =

Linksseitiger Test

Rechtsseitiger Test

Signifikanzniveau

Zweiseitiger Test

Normalverteilung

p

p = 0.73 (slider from 0 to 1, step 0.01)
n: 100
textfield2 = Textfield(n)
α_1 = 0.175 (slider from 0 to 0.5, step 0.005)
li: InverseBinomial[n, p, α_1] - 1
a = BarChart(-0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n])
Abl_{li} = BarChart(-0.5, li + 0.5, Sequence[((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, li])
re: InverseBinomial[n, p, 1 - α_1] + 1
Abl_{re} = BarChart(re - 0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, re, n])
g = false
h = false
li_2: InverseBinomial[n, p, α_1 / 2] - 1
re_2: InverseBinomial[n, p, 1 - α_1 / 2] + 1
Ablehn_{re, zwei} = BarChart(re_2 - 0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, re_2, n])
Ablehn_{li, zwei} = BarChart(-0.5, li_2 + 0.5, Sequence[((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, li_2])
b = false
Text4: "P = " + Abl_{li}
Text5: "P = " + Abl_{re}
Text6: "P = " + Ablehn_{li, zwei}
A: (li, 0)
B: (re, 0)
C: (li_2, 0)
D: (re_2, 0)
Text8: "Intervall [0 ; " + (x(A)) + "]"
Text10: "Intervall [0 ; " + (x(C)) + "]"
Text11: "Intervall [" + ((x(D) * " ; ")) + n + "]"
Text9: "Intervall [" + (x(B)) + "; " + n + "]"
Text7: "P = " + Ablehn_{re, zwei} + ""
μ: (n * p)
σ: sqrt(((n * p) * (1 - p)))
xmin: μ - (5 * σ)
xmax: μ + (5 * σ)
li_2normal = InverseNormal(μ, σ, α_1 / 2)
f = Normal(μ, σ, x, false)
c = Integral(f, 0, li_2normal)
re_2normal: μ + μ - li_2normal
d = Integral(f, re_2normal, n)
f_-(x) = (-f(x))
d_- = Integral(f_-, re_2normal, n)
linormal = InverseNormal((n * p), sqrt(((n * p) * (1 - p))), α_1)
renormal: μ + μ - linormal
i = Integral(f_-, renormal, n)
L_1 = Sequence(((Binomial[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n)
L_0 = Sequence(k, k, 0, n)
A1: 0
A2: 1
A3: 2
A4: 3
A5: 4
A6: 5
A7: 6
A8: 7
A9: 8
A10: 9
A11: 10
A12: 11
A13: 12
A14: 13
A15: 14
A16: 15
A17: 16
A18: 17
A19: 18
A20: 19
A21: 20
A22: 21
A23: 22
A24: 23
A25: 24
A26: 25
A27: 26
A28: 27
A29: 28
A30: 29
A31: 30
A32: 31
A33: 32
A34: 33
A35: 34
A36: 35
A37: 36
A38: 37
A39: 38
A40: 39
A41: 40
A42: 41
A43: 42
A44: 43
A45: 44
A46: 45
A47: 46
A48: 47
A49: 48
A50: 49
A51: 50
A52: 51
A53: 52
A54: 53
A55: 54
A56: 55
A57: 56
A58: 57
A59: 58
A60: 59
A61: 60
A62: 61
A63: 62
A64: 63
A65: 64
A66: 65
A67: 66
A68: 67
A69: 68
A70: 69
A71: 70
A72: 71
A73: 72
A74: 73
A75: 74
A76: 75
A77: 76
A78: 77
A79: 78
A80: 79
A81: 80
A82: 81
A83: 82
A84: 83
A85: 84
A86: 85
A87: 86
A88: 87
A89: 88
A90: 89
A91: 90
A92: 91
A93: 92
A94: 93
A95: 94
A96: 95
A97: 96
A98: 97
A99: 98
A100: 99
A101: 100
A102: 101
A103: 102
A104: 103
A105: 104
A106: 105
A107: 106
A108: 107
A109: 108
A110: 109
A111: 110
A112: 111
A113: 112
A114: 113
A115: 114
A116: 115
A117: 116
A118: 117
A119: 118
A120: 119
A121: 120
A122: 121
A123: 122
A124: 123
A125: 124
A126: 125
A127: 126
A128: 127
A129: 128
A130: 129
A131: 130
A132: 131
A133: 132
A134: 133
A135: 134
A136: 135
A137: 136
A138: 137
A139: 138
A140: 139
A141: 140
A142: 141
A143: 142
A144: 143
A145: 144
A146: 145
A147: 146
A148: 147
A149: 148
A150: 149
A151: 150
A152: 151
A153: 152
A154: 153
A155: 154
A156: 155
A157: 156
A158: 157
A159: 158
A160: 159
A161: 160
A162: 161
A163: 162
A164: 163
A165: 164
A166: 165
A167: 166
A168: 167
A169: 168
A170: 169
A171: 170
A172: 171
A173: 172
A174: 173
A175: 174
A176: 175
A177: 176
A178: 177
A179: 178
A180: 179
A181: 180
A182: 181
A183: 182
A184: 183
A185: 184
A186: 185
A187: 186
A188: 187
A189: 188
A190: 189
A191: 190
A192: 191
A193: 192
A194: 193
A195: 194
A196: 195
A197: 196
A198: 197
A199: 198
A200: 199
A201: 200
Text12 = If(A1 ≤ n, BinomialDist[n, p, A1, true])
Text13 = If(A2 ≤ n, BinomialDist[n, p, A2, true])
B1 = If(A1 ≤ n, BinomialDist[n, p, A1, true], 1)
"" = If(A2 ≤ n, BinomialDist[n, p, A2, true], 1)
B3 = If(A3 ≤ n, BinomialDist[n, p, A3, true], 1)
B4 = If(A4 ≤ n, BinomialDist[n, p, A4, true], 1)
B5 = If(A5 ≤ n, BinomialDist[n, p, A5, true], 1)
B6 = If(A6 ≤ n, BinomialDist[n, p, A6, true], 1)
B7 = If(A7 ≤ n, BinomialDist[n, p, A7, true], 1)
B8 = If(A8 ≤ n, BinomialDist[n, p, A8, true], 1)
B9 = If(A9 ≤ n, BinomialDist[n, p, A9, true], 1)
B10 = If(A10 ≤ n, BinomialDist[n, p, A10, true], 1)
B11 = If(A11 ≤ n, BinomialDist[n, p, A11, true], 1)
B12 = If(A12 ≤ n, BinomialDist[n, p, A12, true], 1)
B13 = If(A13 ≤ n, BinomialDist[n, p, A13, true], 1)
B14 = If(A14 ≤ n, BinomialDist[n, p, A14, true], 1)
B15 = If(A15 ≤ n, BinomialDist[n, p, A15, true], 1)
B16 = If(A16 ≤ n, BinomialDist[n, p, A16, true], 1)
B17 = If(A17 ≤ n, BinomialDist[n, p, A17, true], 1)
B18 = If(A18 ≤ n, BinomialDist[n, p, A18, true], 1)
B19 = If(A19 ≤ n, BinomialDist[n, p, A19, true], 1)
B20 = If(A20 ≤ n, BinomialDist[n, p, A20, true], 1)
B21 = If(A21 ≤ n, BinomialDist[n, p, A21, true], 1)
B22 = If(A22 ≤ n, BinomialDist[n, p, A22, true], 1)
B23 = If(A23 ≤ n, BinomialDist[n, p, A23, true], 1)
B24 = If(A24 ≤ n, BinomialDist[n, p, A24, true], 1)
B25 = If(A25 ≤ n, BinomialDist[n, p, A25, true], 1)
B26 = If(A26 ≤ n, BinomialDist[n, p, A26, true], 1)
B27 = If(A27 ≤ n, BinomialDist[n, p, A27, true], 1)
B28 = If(A28 ≤ n, BinomialDist[n, p, A28, true], 1)
B29 = If(A29 ≤ n, BinomialDist[n, p, A29, true], 1)
B30 = If(A30 ≤ n, BinomialDist[n, p, A30, true], 1)
B31 = If(A31 ≤ n, BinomialDist[n, p, A31, true], 1)
B32 = If(A32 ≤ n, BinomialDist[n, p, A32, true], 1)
B33 = If(A33 ≤ n, BinomialDist[n, p, A33, true], 1)
B34 = If(A34 ≤ n, BinomialDist[n, p, A34, true], 1)
B35 = If(A35 ≤ n, BinomialDist[n, p, A35, true], 1)
B36 = If(A36 ≤ n, BinomialDist[n, p, A36, true], 1)
B37 = If(A37 ≤ n, BinomialDist[n, p, A37, true], 1)
B38 = If(A38 ≤ n, BinomialDist[n, p, A38, true], 1)
B39 = If(A39 ≤ n, BinomialDist[n, p, A39, true], 1)
B40 = If(A40 ≤ n, BinomialDist[n, p, A40, true], 1)
B41 = If(A41 ≤ n, BinomialDist[n, p, A41, true], 1)
B42 = If(A42 ≤ n, BinomialDist[n, p, A42, true], 1)
B43 = If(A43 ≤ n, BinomialDist[n, p, A43, true], 1)
B44 = If(A44 ≤ n, BinomialDist[n, p, A44, true], 1)
B45 = If(A45 ≤ n, BinomialDist[n, p, A45, true], 1)
B46 = If(A46 ≤ n, BinomialDist[n, p, A46, true], 1)
B47 = If(A47 ≤ n, BinomialDist[n, p, A47, true], 1)
B48 = If(A48 ≤ n, BinomialDist[n, p, A48, true], 1)
B49 = If(A49 ≤ n, BinomialDist[n, p, A49, true], 1)
B50 = If(A50 ≤ n, BinomialDist[n, p, A50, true], 1)
B51 = If(A51 ≤ n, BinomialDist[n, p, A51, true], 1)
B52 = If(A52 ≤ n, BinomialDist[n, p, A52, true], 1)
B53 = If(A53 ≤ n, BinomialDist[n, p, A53, true], 1)
B54 = If(A54 ≤ n, BinomialDist[n, p, A54, true], 1)
B55 = If(A55 ≤ n, BinomialDist[n, p, A55, true], 1)
B56 = If(A56 ≤ n, BinomialDist[n, p, A56, true], 1)
B57 = If(A57 ≤ n, BinomialDist[n, p, A57, true], 1)
B58 = If(A58 ≤ n, BinomialDist[n, p, A58, true], 1)
B59 = If(A59 ≤ n, BinomialDist[n, p, A59, true], 1)
B60 = If(A60 ≤ n, BinomialDist[n, p, A60, true], 1)
B61 = If(A61 ≤ n, BinomialDist[n, p, A61, true], 1)
B62 = If(A62 ≤ n, BinomialDist[n, p, A62, true], 1)
B63 = If(A63 ≤ n, BinomialDist[n, p, A63, true], 1)
B64 = If(A64 ≤ n, BinomialDist[n, p, A64, true], 1)
B65 = If(A65 ≤ n, BinomialDist[n, p, A65, true], 1)
B66 = If(A66 ≤ n, BinomialDist[n, p, A66, true], 1)
B67 = If(A67 ≤ n, BinomialDist[n, p, A67, true], 1)
B68 = If(A68 ≤ n, BinomialDist[n, p, A68, true], 1)
B69 = If(A69 ≤ n, BinomialDist[n, p, A69, true], 1)
B70 = If(A70 ≤ n, BinomialDist[n, p, A70, true], 1)
B71 = If(A71 ≤ n, BinomialDist[n, p, A71, true], 1)
B72 = If(A72 ≤ n, BinomialDist[n, p, A72, true], 1)
B73 = If(A73 ≤ n, BinomialDist[n, p, A73, true], 1)
B74 = If(A74 ≤ n, BinomialDist[n, p, A74, true], 1)
B75 = If(A75 ≤ n, BinomialDist[n, p, A75, true], 1)
B76 = If(A76 ≤ n, BinomialDist[n, p, A76, true], 1)
B77 = If(A77 ≤ n, BinomialDist[n, p, A77, true], 1)
B78 = If(A78 ≤ n, BinomialDist[n, p, A78, true], 1)
B79 = If(A79 ≤ n, BinomialDist[n, p, A79, true], 1)
B80 = If(A80 ≤ n, BinomialDist[n, p, A80, true], 1)
B81 = If(A81 ≤ n, BinomialDist[n, p, A81, true], 1)
B82 = If(A82 ≤ n, BinomialDist[n, p, A82, true], 1)
B83 = If(A83 ≤ n, BinomialDist[n, p, A83, true], 1)
B84 = If(A84 ≤ n, BinomialDist[n, p, A84, true], 1)
B85 = If(A85 ≤ n, BinomialDist[n, p, A85, true], 1)
B86 = If(A86 ≤ n, BinomialDist[n, p, A86, true], 1)
B87 = If(A87 ≤ n, BinomialDist[n, p, A87, true], 1)
B88 = If(A88 ≤ n, BinomialDist[n, p, A88, true], 1)
B89 = If(A89 ≤ n, BinomialDist[n, p, A89, true], 1)
B90 = If(A90 ≤ n, BinomialDist[n, p, A90, true], 1)
B91 = If(A91 ≤ n, BinomialDist[n, p, A91, true], 1)
B92 = If(A92 ≤ n, BinomialDist[n, p, A92, true], 1)
B93 = If(A93 ≤ n, BinomialDist[n, p, A93, true], 1)
B94 = If(A94 ≤ n, BinomialDist[n, p, A94, true], 1)
B95 = If(A95 ≤ n, BinomialDist[n, p, A95, true], 1)
B96 = If(A96 ≤ n, BinomialDist[n, p, A96, true], 1)
B97 = If(A97 ≤ n, BinomialDist[n, p, A97, true], 1)
B98 = If(A98 ≤ n, BinomialDist[n, p, A98, true], 1)
B99 = If(A99 ≤ n, BinomialDist[n, p, A99, true], 1)
B100 = If(A100 ≤ n, BinomialDist[n, p, A100, true], 1)
B101 = If(A101 ≤ n, BinomialDist[n, p, A101, true], 1)
B102 = If(A102 ≤ n, BinomialDist[n, p, A102, true], 1)
B103 = If(A103 ≤ n, BinomialDist[n, p, A103, true], 1)
B104 = If(A104 ≤ n, BinomialDist[n, p, A104, true], 1)
B105 = If(A105 ≤ n, BinomialDist[n, p, A105, true], 1)
B106 = If(A106 ≤ n, BinomialDist[n, p, A106, true], 1)
B107 = If(A107 ≤ n, BinomialDist[n, p, A107, true], 1)
B108 = If(A108 ≤ n, BinomialDist[n, p, A108, true], 1)
B109 = If(A109 ≤ n, BinomialDist[n, p, A109, true], 1)
B110 = If(A110 ≤ n, BinomialDist[n, p, A110, true], 1)
B111 = If(A111 ≤ n, BinomialDist[n, p, A111, true], 1)
B112 = If(A112 ≤ n, BinomialDist[n, p, A112, true], 1)
B113 = If(A113 ≤ n, BinomialDist[n, p, A113, true], 1)
B114 = If(A114 ≤ n, BinomialDist[n, p, A114, true], 1)
B115 = If(A115 ≤ n, BinomialDist[n, p, A115, true], 1)
B116 = If(A116 ≤ n, BinomialDist[n, p, A116, true], 1)
B117 = If(A117 ≤ n, BinomialDist[n, p, A117, true], 1)
B118 = If(A118 ≤ n, BinomialDist[n, p, A118, true], 1)
B119 = If(A119 ≤ n, BinomialDist[n, p, A119, true], 1)
B120 = If(A120 ≤ n, BinomialDist[n, p, A120, true], 1)
B121 = If(A121 ≤ n, BinomialDist[n, p, A121, true], 1)
B122 = If(A122 ≤ n, BinomialDist[n, p, A122, true], 1)
B123 = If(A123 ≤ n, BinomialDist[n, p, A123, true], 1)
B124 = If(A124 ≤ n, BinomialDist[n, p, A124, true], 1)
B125 = If(A125 ≤ n, BinomialDist[n, p, A125, true], 1)
B126 = If(A126 ≤ n, BinomialDist[n, p, A126, true], 1)
B127 = If(A127 ≤ n, BinomialDist[n, p, A127, true], 1)
B128 = If(A128 ≤ n, BinomialDist[n, p, A128, true], 1)
B129 = If(A129 ≤ n, BinomialDist[n, p, A129, true], 1)
B130 = If(A130 ≤ n, BinomialDist[n, p, A130, true], 1)
B131 = If(A131 ≤ n, BinomialDist[n, p, A131, true], 1)
B132 = If(A132 ≤ n, BinomialDist[n, p, A132, true], 1)
B133 = If(A133 ≤ n, BinomialDist[n, p, A133, true], 1)
B134 = If(A134 ≤ n, BinomialDist[n, p, A134, true], 1)
B135 = If(A135 ≤ n, BinomialDist[n, p, A135, true], 1)
B136 = If(A136 ≤ n, BinomialDist[n, p, A136, true], 1)
B137 = If(A137 ≤ n, BinomialDist[n, p, A137, true], 1)
B138 = If(A138 ≤ n, BinomialDist[n, p, A138, true], 1)
B139 = If(A139 ≤ n, BinomialDist[n, p, A139, true], 1)
B140 = If(A140 ≤ n, BinomialDist[n, p, A140, true], 1)
B141 = If(A141 ≤ n, BinomialDist[n, p, A141, true], 1)
B142 = If(A142 ≤ n, BinomialDist[n, p, A142, true], 1)
B143 = If(A143 ≤ n, BinomialDist[n, p, A143, true], 1)
B144 = If(A144 ≤ n, BinomialDist[n, p, A144, true], 1)
B145 = If(A145 ≤ n, BinomialDist[n, p, A145, true], 1)
B146 = If(A146 ≤ n, BinomialDist[n, p, A146, true], 1)
B147 = If(A147 ≤ n, BinomialDist[n, p, A147, true], 1)
B148 = If(A148 ≤ n, BinomialDist[n, p, A148, true], 1)
B149 = If(A149 ≤ n, BinomialDist[n, p, A149, true], 1)
B150 = If(A150 ≤ n, BinomialDist[n, p, A150, true], 1)
B151 = If(A151 ≤ n, BinomialDist[n, p, A151, true], 1)
B152 = If(A152 ≤ n, BinomialDist[n, p, A152, true], 1)
B153 = If(A153 ≤ n, BinomialDist[n, p, A153, true], 1)
B154 = If(A154 ≤ n, BinomialDist[n, p, A154, true], 1)
B155 = If(A155 ≤ n, BinomialDist[n, p, A155, true], 1)
B156 = If(A156 ≤ n, BinomialDist[n, p, A156, true], 1)
B157 = If(A157 ≤ n, BinomialDist[n, p, A157, true], 1)
B158 = If(A158 ≤ n, BinomialDist[n, p, A158, true], 1)
B159 = If(A159 ≤ n, BinomialDist[n, p, A159, true], 1)
B160 = If(A160 ≤ n, BinomialDist[n, p, A160, true], 1)
B161 = If(A161 ≤ n, BinomialDist[n, p, A161, true], 1)
B162 = If(A162 ≤ n, BinomialDist[n, p, A162, true], 1)
B163 = If(A163 ≤ n, BinomialDist[n, p, A163, true], 1)
B164 = If(A164 ≤ n, BinomialDist[n, p, A164, true], 1)
B165 = If(A165 ≤ n, BinomialDist[n, p, A165, true], 1)
B166 = If(A166 ≤ n, BinomialDist[n, p, A166, true], 1)
B167 = If(A167 ≤ n, BinomialDist[n, p, A167, true], 1)
B168 = If(A168 ≤ n, BinomialDist[n, p, A168, true], 1)
B169 = If(A169 ≤ n, BinomialDist[n, p, A169, true], 1)
B170 = If(A170 ≤ n, BinomialDist[n, p, A170, true], 1)
B171 = If(A171 ≤ n, BinomialDist[n, p, A171, true], 1)
B172 = If(A172 ≤ n, BinomialDist[n, p, A172, true], 1)
B173 = If(A173 ≤ n, BinomialDist[n, p, A173, true], 1)
B174 = If(A174 ≤ n, BinomialDist[n, p, A174, true], 1)
B175 = If(A175 ≤ n, BinomialDist[n, p, A175, true], 1)
B176 = If(A176 ≤ n, BinomialDist[n, p, A176, true], 1)
B177 = If(A177 ≤ n, BinomialDist[n, p, A177, true], 1)
B178 = If(A178 ≤ n, BinomialDist[n, p, A178, true], 1)
B179 = If(A179 ≤ n, BinomialDist[n, p, A179, true], 1)
B180 = If(A180 ≤ n, BinomialDist[n, p, A180, true], 1)
B181 = If(A181 ≤ n, BinomialDist[n, p, A181, true], 1)
B182 = If(A182 ≤ n, BinomialDist[n, p, A182, true], 1)
B183 = If(A183 ≤ n, BinomialDist[n, p, A183, true], 1)
B184 = If(A184 ≤ n, BinomialDist[n, p, A184, true], 1)
B185 = If(A185 ≤ n, BinomialDist[n, p, A185, true], 1)
B186 = If(A186 ≤ n, BinomialDist[n, p, A186, true], 1)
B187 = If(A187 ≤ n, BinomialDist[n, p, A187, true], 1)
B188 = If(A188 ≤ n, BinomialDist[n, p, A188, true], 1)
B189 = If(A189 ≤ n, BinomialDist[n, p, A189, true], 1)
B190 = If(A190 ≤ n, BinomialDist[n, p, A190, true], 1)
B191 = If(A191 ≤ n, BinomialDist[n, p, A191, true], 1)
B192 = If(A192 ≤ n, BinomialDist[n, p, A192, true], 1)
B193 = If(A193 ≤ n, BinomialDist[n, p, A193, true], 1)
B194 = If(A194 ≤ n, BinomialDist[n, p, A194, true], 1)
B195 = If(A195 ≤ n, BinomialDist[n, p, A195, true], 1)
B196 = If(A196 ≤ n, BinomialDist[n, p, A196, true], 1)
B197 = If(A197 ≤ n, BinomialDist[n, p, A197, true], 1)
B198 = If(A198 ≤ n, BinomialDist[n, p, A198, true], 1)
B199 = If(A199 ≤ n, BinomialDist[n, p, A199, true], 1)
B200 = If(A200 ≤ n, BinomialDist[n, p, A200, true], 1)
B201 = If(A201 ≤ n, BinomialDist[n, p, A201, true], 1)
B2 = If(A2 ≤ n, BinomialDist[n, p, A2, true], 1)
e = Integral(f_-, -0.5, linormal)
c_- = Integral(f_-, -0.5, li_2normal)
j = false
Eingabefeld1 = Textfield(p)
α_0 = Textfield(α_1)
Text16: "zweiseitig links       bino: X≤ " + li_2 + " / norm X≤  " + li_2normal + " 
einseitig   links       bino: X≤  " + li + " / norm X≤  " + linormal + " 
einseitig   rechts    bino: X≥ " + re + " / norm X≥~ " + renormal + "
zweiseitig rechts    bino: X≥ " + re_2 + " / norm X≥  " + re_2normal + ""