Wk. mit der p_1 bezweifelt wird, falls p_2 gilt

f = Segment((0, 0), (1, 0))
P_1 = Point(f)
P_2 = Point(f)
n = 610 (slider from 10 to 30000, step 1)
p_1: x(P_1)
p_2: x(P_2)
p_1links: p_1 - (2 * sqrt((p_1 * (1 - p_1) / n)))
p_1rechts: p_1 + (2 * sqrt((p_1 * (1 - p_1) / n)))
P_1l: (p_1links, 0)
P_1r: (p_1rechts, 0)
pbezweiflep_1: Normal[p_2, sqrt(((p_2 * (1 - p_2))) / n), p_1links, true] + 1 - Normal[p_2, sqrt(((p_2 * (1 - p_2))) / n), p_1rechts, true]
W: (p_2, pbezweiflep_1)
A1: 0
A2: 0.01
A3 = 0.02
A4 = 0.03
A5 = 0.039999999999999994
A6 = 0.04999999999999999
A7 = 0.059999999999999984
A8 = 0.06999999999999998
A9 = 0.07999999999999997
A10 = 0.08999999999999997
A11 = 0.09999999999999996
A12 = 0.10999999999999996
A13 = 0.11999999999999995
A14 = 0.12999999999999995
A15 = 0.13999999999999996
A16 = 0.14999999999999997
A17 = 0.15999999999999998
A18 = 0.16999999999999998
A19 = 0.18
A20 = 0.19
A21 = 0.2
A23 = 0.22000000000000003
A24 = 0.23000000000000004
A25 = 0.24000000000000005
A26 = 0.25000000000000006
A27 = 0.26000000000000006
A28 = 0.2700000000000001
A29 = 0.2800000000000001
A30 = 0.2900000000000001
A31 = 0.3000000000000001
A32 = 0.3100000000000001
A33 = 0.3200000000000001
A34 = 0.3300000000000001
A35 = 0.34000000000000014
A36 = 0.35000000000000014
A37 = 0.36000000000000015
A38 = 0.37000000000000016
A39 = 0.38000000000000017
A40 = 0.3900000000000002
A41 = 0.4000000000000002
A42 = 0.4100000000000002
A43 = 0.4200000000000002
A44 = 0.4300000000000002
A45 = 0.4400000000000002
A46 = 0.45000000000000023
A47 = 0.46000000000000024
A48 = 0.47000000000000025
A49 = 0.48000000000000026
A50 = 0.49000000000000027
A51 = 0.5000000000000002
A52 = 0.5100000000000002
A53 = 0.5200000000000002
A54 = 0.5300000000000002
A55 = 0.5400000000000003
A56 = 0.5500000000000003
A57 = 0.5600000000000003
A58 = 0.5700000000000003
A59 = 0.5800000000000003
A60 = 0.5900000000000003
A61 = 0.6000000000000003
A62 = 0.6100000000000003
A63 = 0.6200000000000003
A64 = 0.6300000000000003
A65 = 0.6400000000000003
A66 = 0.6500000000000004
A67 = 0.6600000000000004
A68 = 0.6700000000000004
A69 = 0.6800000000000004
A70 = 0.6900000000000004
A71 = 0.7000000000000004
A72 = 0.7100000000000004
A73 = 0.7200000000000004
A74 = 0.7300000000000004
A75 = 0.7400000000000004
A76 = 0.7500000000000004
A77 = 0.7600000000000005
A78 = 0.7700000000000005
A79 = 0.7800000000000005
A80 = 0.7900000000000005
A81 = 0.8000000000000005
A82 = 0.8100000000000005
A83 = 0.8200000000000005
A84 = 0.8300000000000005
A85 = 0.8400000000000005
A86 = 0.8500000000000005
A87 = 0.8600000000000005
A88 = 0.8700000000000006
A89 = 0.8800000000000006
A90 = 0.8900000000000006
A91 = 0.9000000000000006
A92 = 0.9100000000000006
A93 = 0.9200000000000006
A94 = 0.9300000000000006
A95 = 0.9400000000000006
A96 = 0.9500000000000006
A97 = 0.9600000000000006
A98 = 0.9700000000000006
A99 = 0.9800000000000006
A100 = 0.9900000000000007
A101 = 1.0000000000000007
A22 = 0.21000000000000002
B30: Normal[A30, sqrt((A30 * (1 - A30) / n)), p_1links] + 1 - Normal[A30, sqrt((A30 * (1 - A30) / n)), p_1rechts]
B31: Normal[A31, sqrt((A31 * (1 - A31) / n)), p_1links] + 1 - Normal[A31, sqrt((A31 * (1 - A31) / n)), p_1rechts]
B32: Normal[A32, sqrt((A32 * (1 - A32) / n)), p_1links] + 1 - Normal[A32, sqrt((A32 * (1 - A32) / n)), p_1rechts]
B33: Normal[A33, sqrt((A33 * (1 - A33) / n)), p_1links] + 1 - Normal[A33, sqrt((A33 * (1 - A33) / n)), p_1rechts]
B34: Normal[A34, sqrt((A34 * (1 - A34) / n)), p_1links] + 1 - Normal[A34, sqrt((A34 * (1 - A34) / n)), p_1rechts]
B35: Normal[A35, sqrt((A35 * (1 - A35) / n)), p_1links] + 1 - Normal[A35, sqrt((A35 * (1 - A35) / n)), p_1rechts]
B36: Normal[A36, sqrt((A36 * (1 - A36) / n)), p_1links] + 1 - Normal[A36, sqrt((A36 * (1 - A36) / n)), p_1rechts]
B37: Normal[A37, sqrt((A37 * (1 - A37) / n)), p_1links] + 1 - Normal[A37, sqrt((A37 * (1 - A37) / n)), p_1rechts]
B38: Normal[A38, sqrt((A38 * (1 - A38) / n)), p_1links] + 1 - Normal[A38, sqrt((A38 * (1 - A38) / n)), p_1rechts]
B39: Normal[A39, sqrt((A39 * (1 - A39) / n)), p_1links] + 1 - Normal[A39, sqrt((A39 * (1 - A39) / n)), p_1rechts]
B40: Normal[A40, sqrt((A40 * (1 - A40) / n)), p_1links] + 1 - Normal[A40, sqrt((A40 * (1 - A40) / n)), p_1rechts]
B41: Normal[A41, sqrt((A41 * (1 - A41) / n)), p_1links] + 1 - Normal[A41, sqrt((A41 * (1 - A41) / n)), p_1rechts]
B42: Normal[A42, sqrt((A42 * (1 - A42) / n)), p_1links] + 1 - Normal[A42, sqrt((A42 * (1 - A42) / n)), p_1rechts]
B43: Normal[A43, sqrt((A43 * (1 - A43) / n)), p_1links] + 1 - Normal[A43, sqrt((A43 * (1 - A43) / n)), p_1rechts]
B44: Normal[A44, sqrt((A44 * (1 - A44) / n)), p_1links] + 1 - Normal[A44, sqrt((A44 * (1 - A44) / n)), p_1rechts]
B45: Normal[A45, sqrt((A45 * (1 - A45) / n)), p_1links] + 1 - Normal[A45, sqrt((A45 * (1 - A45) / n)), p_1rechts]
B46: Normal[A46, sqrt((A46 * (1 - A46) / n)), p_1links] + 1 - Normal[A46, sqrt((A46 * (1 - A46) / n)), p_1rechts]
B47: Normal[A47, sqrt((A47 * (1 - A47) / n)), p_1links] + 1 - Normal[A47, sqrt((A47 * (1 - A47) / n)), p_1rechts]
B48: Normal[A48, sqrt((A48 * (1 - A48) / n)), p_1links] + 1 - Normal[A48, sqrt((A48 * (1 - A48) / n)), p_1rechts]
B49: Normal[A49, sqrt((A49 * (1 - A49) / n)), p_1links] + 1 - Normal[A49, sqrt((A49 * (1 - A49) / n)), p_1rechts]
B50: Normal[A50, sqrt((A50 * (1 - A50) / n)), p_1links] + 1 - Normal[A50, sqrt((A50 * (1 - A50) / n)), p_1rechts]
B51: Normal[A51, sqrt((A51 * (1 - A51) / n)), p_1links] + 1 - Normal[A51, sqrt((A51 * (1 - A51) / n)), p_1rechts]
B52: Normal[A52, sqrt((A52 * (1 - A52) / n)), p_1links] + 1 - Normal[A52, sqrt((A52 * (1 - A52) / n)), p_1rechts]
B53: Normal[A53, sqrt((A53 * (1 - A53) / n)), p_1links] + 1 - Normal[A53, sqrt((A53 * (1 - A53) / n)), p_1rechts]
B54: Normal[A54, sqrt((A54 * (1 - A54) / n)), p_1links] + 1 - Normal[A54, sqrt((A54 * (1 - A54) / n)), p_1rechts]
B55: Normal[A55, sqrt((A55 * (1 - A55) / n)), p_1links] + 1 - Normal[A55, sqrt((A55 * (1 - A55) / n)), p_1rechts]
B56: Normal[A56, sqrt((A56 * (1 - A56) / n)), p_1links] + 1 - Normal[A56, sqrt((A56 * (1 - A56) / n)), p_1rechts]
B57: Normal[A57, sqrt((A57 * (1 - A57) / n)), p_1links] + 1 - Normal[A57, sqrt((A57 * (1 - A57) / n)), p_1rechts]
B58: Normal[A58, sqrt((A58 * (1 - A58) / n)), p_1links] + 1 - Normal[A58, sqrt((A58 * (1 - A58) / n)), p_1rechts]
B59: Normal[A59, sqrt((A59 * (1 - A59) / n)), p_1links] + 1 - Normal[A59, sqrt((A59 * (1 - A59) / n)), p_1rechts]
B60: Normal[A60, sqrt((A60 * (1 - A60) / n)), p_1links] + 1 - Normal[A60, sqrt((A60 * (1 - A60) / n)), p_1rechts]
B61: Normal[A61, sqrt((A61 * (1 - A61) / n)), p_1links] + 1 - Normal[A61, sqrt((A61 * (1 - A61) / n)), p_1rechts]
B62: Normal[A62, sqrt((A62 * (1 - A62) / n)), p_1links] + 1 - Normal[A62, sqrt((A62 * (1 - A62) / n)), p_1rechts]
B63: Normal[A63, sqrt((A63 * (1 - A63) / n)), p_1links] + 1 - Normal[A63, sqrt((A63 * (1 - A63) / n)), p_1rechts]
B64: Normal[A64, sqrt((A64 * (1 - A64) / n)), p_1links] + 1 - Normal[A64, sqrt((A64 * (1 - A64) / n)), p_1rechts]
B65: Normal[A65, sqrt((A65 * (1 - A65) / n)), p_1links] + 1 - Normal[A65, sqrt((A65 * (1 - A65) / n)), p_1rechts]
B66: Normal[A66, sqrt((A66 * (1 - A66) / n)), p_1links] + 1 - Normal[A66, sqrt((A66 * (1 - A66) / n)), p_1rechts]
B67: Normal[A67, sqrt((A67 * (1 - A67) / n)), p_1links] + 1 - Normal[A67, sqrt((A67 * (1 - A67) / n)), p_1rechts]
B68: Normal[A68, sqrt((A68 * (1 - A68) / n)), p_1links] + 1 - Normal[A68, sqrt((A68 * (1 - A68) / n)), p_1rechts]
B69: Normal[A69, sqrt((A69 * (1 - A69) / n)), p_1links] + 1 - Normal[A69, sqrt((A69 * (1 - A69) / n)), p_1rechts]
B70: Normal[A70, sqrt((A70 * (1 - A70) / n)), p_1links] + 1 - Normal[A70, sqrt((A70 * (1 - A70) / n)), p_1rechts]
B71: Normal[A71, sqrt((A71 * (1 - A71) / n)), p_1links] + 1 - Normal[A71, sqrt((A71 * (1 - A71) / n)), p_1rechts]
B72: Normal[A72, sqrt((A72 * (1 - A72) / n)), p_1links] + 1 - Normal[A72, sqrt((A72 * (1 - A72) / n)), p_1rechts]
B73: Normal[A73, sqrt((A73 * (1 - A73) / n)), p_1links] + 1 - Normal[A73, sqrt((A73 * (1 - A73) / n)), p_1rechts]
B74: Normal[A74, sqrt((A74 * (1 - A74) / n)), p_1links] + 1 - Normal[A74, sqrt((A74 * (1 - A74) / n)), p_1rechts]
B75: Normal[A75, sqrt((A75 * (1 - A75) / n)), p_1links] + 1 - Normal[A75, sqrt((A75 * (1 - A75) / n)), p_1rechts]
B76: Normal[A76, sqrt((A76 * (1 - A76) / n)), p_1links] + 1 - Normal[A76, sqrt((A76 * (1 - A76) / n)), p_1rechts]
B77: Normal[A77, sqrt((A77 * (1 - A77) / n)), p_1links] + 1 - Normal[A77, sqrt((A77 * (1 - A77) / n)), p_1rechts]
B78: Normal[A78, sqrt((A78 * (1 - A78) / n)), p_1links] + 1 - Normal[A78, sqrt((A78 * (1 - A78) / n)), p_1rechts]
B79: Normal[A79, sqrt((A79 * (1 - A79) / n)), p_1links] + 1 - Normal[A79, sqrt((A79 * (1 - A79) / n)), p_1rechts]
B80: Normal[A80, sqrt((A80 * (1 - A80) / n)), p_1links] + 1 - Normal[A80, sqrt((A80 * (1 - A80) / n)), p_1rechts]
B81: Normal[A81, sqrt((A81 * (1 - A81) / n)), p_1links] + 1 - Normal[A81, sqrt((A81 * (1 - A81) / n)), p_1rechts]
B82: Normal[A82, sqrt((A82 * (1 - A82) / n)), p_1links] + 1 - Normal[A82, sqrt((A82 * (1 - A82) / n)), p_1rechts]
B83: Normal[A83, sqrt((A83 * (1 - A83) / n)), p_1links] + 1 - Normal[A83, sqrt((A83 * (1 - A83) / n)), p_1rechts]
B84: Normal[A84, sqrt((A84 * (1 - A84) / n)), p_1links] + 1 - Normal[A84, sqrt((A84 * (1 - A84) / n)), p_1rechts]
B85: Normal[A85, sqrt((A85 * (1 - A85) / n)), p_1links] + 1 - Normal[A85, sqrt((A85 * (1 - A85) / n)), p_1rechts]
B86: Normal[A86, sqrt((A86 * (1 - A86) / n)), p_1links] + 1 - Normal[A86, sqrt((A86 * (1 - A86) / n)), p_1rechts]
B87: Normal[A87, sqrt((A87 * (1 - A87) / n)), p_1links] + 1 - Normal[A87, sqrt((A87 * (1 - A87) / n)), p_1rechts]
B88: Normal[A88, sqrt((A88 * (1 - A88) / n)), p_1links] + 1 - Normal[A88, sqrt((A88 * (1 - A88) / n)), p_1rechts]
B89: Normal[A89, sqrt((A89 * (1 - A89) / n)), p_1links] + 1 - Normal[A89, sqrt((A89 * (1 - A89) / n)), p_1rechts]
B90: Normal[A90, sqrt((A90 * (1 - A90) / n)), p_1links] + 1 - Normal[A90, sqrt((A90 * (1 - A90) / n)), p_1rechts]
B91: Normal[A91, sqrt((A91 * (1 - A91) / n)), p_1links] + 1 - Normal[A91, sqrt((A91 * (1 - A91) / n)), p_1rechts]
B92: Normal[A92, sqrt((A92 * (1 - A92) / n)), p_1links] + 1 - Normal[A92, sqrt((A92 * (1 - A92) / n)), p_1rechts]
B93: Normal[A93, sqrt((A93 * (1 - A93) / n)), p_1links] + 1 - Normal[A93, sqrt((A93 * (1 - A93) / n)), p_1rechts]
B94: Normal[A94, sqrt((A94 * (1 - A94) / n)), p_1links] + 1 - Normal[A94, sqrt((A94 * (1 - A94) / n)), p_1rechts]
B95: Normal[A95, sqrt((A95 * (1 - A95) / n)), p_1links] + 1 - Normal[A95, sqrt((A95 * (1 - A95) / n)), p_1rechts]
B96: Normal[A96, sqrt((A96 * (1 - A96) / n)), p_1links] + 1 - Normal[A96, sqrt((A96 * (1 - A96) / n)), p_1rechts]
B97: Normal[A97, sqrt((A97 * (1 - A97) / n)), p_1links] + 1 - Normal[A97, sqrt((A97 * (1 - A97) / n)), p_1rechts]
B98: Normal[A98, sqrt((A98 * (1 - A98) / n)), p_1links] + 1 - Normal[A98, sqrt((A98 * (1 - A98) / n)), p_1rechts]
B99: Normal[A99, sqrt((A99 * (1 - A99) / n)), p_1links] + 1 - Normal[A99, sqrt((A99 * (1 - A99) / n)), p_1rechts]
B100: Normal[A100, sqrt((A100 * (1 - A100) / n)), p_1links] + 1 - Normal[A100, sqrt((A100 * (1 - A100) / n)), p_1rechts]
B2: Normal[A2, sqrt((A2 * (1 - A2) / n)), p_1links] + 1 - Normal[A2, sqrt((A2 * (1 - A2) / n)), p_1rechts]
B3: Normal[A3, sqrt((A3 * (1 - A3) / n)), p_1links] + 1 - Normal[A3, sqrt((A3 * (1 - A3) / n)), p_1rechts]
B4: Normal[A4, sqrt((A4 * (1 - A4) / n)), p_1links] + 1 - Normal[A4, sqrt((A4 * (1 - A4) / n)), p_1rechts]
B5: Normal[A5, sqrt((A5 * (1 - A5) / n)), p_1links] + 1 - Normal[A5, sqrt((A5 * (1 - A5) / n)), p_1rechts]
B6: Normal[A6, sqrt((A6 * (1 - A6) / n)), p_1links] + 1 - Normal[A6, sqrt((A6 * (1 - A6) / n)), p_1rechts]
B7: Normal[A7, sqrt((A7 * (1 - A7) / n)), p_1links] + 1 - Normal[A7, sqrt((A7 * (1 - A7) / n)), p_1rechts]
B8: Normal[A8, sqrt((A8 * (1 - A8) / n)), p_1links] + 1 - Normal[A8, sqrt((A8 * (1 - A8) / n)), p_1rechts]
B9: Normal[A9, sqrt((A9 * (1 - A9) / n)), p_1links] + 1 - Normal[A9, sqrt((A9 * (1 - A9) / n)), p_1rechts]
B10: Normal[A10, sqrt((A10 * (1 - A10) / n)), p_1links] + 1 - Normal[A10, sqrt((A10 * (1 - A10) / n)), p_1rechts]
B11: Normal[A11, sqrt((A11 * (1 - A11) / n)), p_1links] + 1 - Normal[A11, sqrt((A11 * (1 - A11) / n)), p_1rechts]
B12: Normal[A12, sqrt((A12 * (1 - A12) / n)), p_1links] + 1 - Normal[A12, sqrt((A12 * (1 - A12) / n)), p_1rechts]
B13: Normal[A13, sqrt((A13 * (1 - A13) / n)), p_1links] + 1 - Normal[A13, sqrt((A13 * (1 - A13) / n)), p_1rechts]
B14: Normal[A14, sqrt((A14 * (1 - A14) / n)), p_1links] + 1 - Normal[A14, sqrt((A14 * (1 - A14) / n)), p_1rechts]
B15: Normal[A15, sqrt((A15 * (1 - A15) / n)), p_1links] + 1 - Normal[A15, sqrt((A15 * (1 - A15) / n)), p_1rechts]
B16: Normal[A16, sqrt((A16 * (1 - A16) / n)), p_1links] + 1 - Normal[A16, sqrt((A16 * (1 - A16) / n)), p_1rechts]
B17: Normal[A17, sqrt((A17 * (1 - A17) / n)), p_1links] + 1 - Normal[A17, sqrt((A17 * (1 - A17) / n)), p_1rechts]
B18: Normal[A18, sqrt((A18 * (1 - A18) / n)), p_1links] + 1 - Normal[A18, sqrt((A18 * (1 - A18) / n)), p_1rechts]
B19: Normal[A19, sqrt((A19 * (1 - A19) / n)), p_1links] + 1 - Normal[A19, sqrt((A19 * (1 - A19) / n)), p_1rechts]
B20: Normal[A20, sqrt((A20 * (1 - A20) / n)), p_1links] + 1 - Normal[A20, sqrt((A20 * (1 - A20) / n)), p_1rechts]
B21: Normal[A21, sqrt((A21 * (1 - A21) / n)), p_1links] + 1 - Normal[A21, sqrt((A21 * (1 - A21) / n)), p_1rechts]
B22: Normal[A22, sqrt((A22 * (1 - A22) / n)), p_1links] + 1 - Normal[A22, sqrt((A22 * (1 - A22) / n)), p_1rechts]
B23: Normal[A23, sqrt((A23 * (1 - A23) / n)), p_1links] + 1 - Normal[A23, sqrt((A23 * (1 - A23) / n)), p_1rechts]
B24: Normal[A24, sqrt((A24 * (1 - A24) / n)), p_1links] + 1 - Normal[A24, sqrt((A24 * (1 - A24) / n)), p_1rechts]
B25: Normal[A25, sqrt((A25 * (1 - A25) / n)), p_1links] + 1 - Normal[A25, sqrt((A25 * (1 - A25) / n)), p_1rechts]
B26: Normal[A26, sqrt((A26 * (1 - A26) / n)), p_1links] + 1 - Normal[A26, sqrt((A26 * (1 - A26) / n)), p_1rechts]
B27: Normal[A27, sqrt((A27 * (1 - A27) / n)), p_1links] + 1 - Normal[A27, sqrt((A27 * (1 - A27) / n)), p_1rechts]
B28: Normal[A28, sqrt((A28 * (1 - A28) / n)), p_1links] + 1 - Normal[A28, sqrt((A28 * (1 - A28) / n)), p_1rechts]
B29: Normal[A29, sqrt((A29 * (1 - A29) / n)), p_1links] + 1 - Normal[A29, sqrt((A29 * (1 - A29) / n)), p_1rechts]
L_1: {(A2, B2), (A3, B3), (A4, B4), (A5, B5), (A6, B6), (A7, B7), (A8, B8), (A9, B9), (A10, B10), (A11, B11), (A12, B12), (A13, B13), (A14, B14), (A15, B15), (A16, B16), (A17, B17), (A18, B18), (A19, B19), (A20, B20), (A21, B21), (A22, B22), (A23, B23), (A24, B24), (A25, B25), (A26, B26), (A27, B27), (A28, B28), (A29, B29), (A30, B30), (A31, B31), (A32, B32), (A33, B33), (A34, B34), (A35, B35), (A36, B36), (A37, B37), (A38, B38), (A39, B39), (A40, B40), (A41, B41), (A42, B42), (A43, B43), (A44, B44), (A45, B45), (A46, B46), (A47, B47), (A48, B48), (A49, B49), (A50, B50), (A51, B51), (A52, B52), (A53, B53), (A54, B54), (A55, B55), (A56, B56), (A57, B57), (A58, B58), (A59, B59), (A60, B60), (A61, B61), (A62, B62), (A63, B63), (A64, B64), (A65, B65), (A66, B66), (A67, B67), (A68, B68), (A69, B69), (A70, B70), (A71, B71), (A72, B72), (A73, B73), (A74, B74), (A75, B75), (A76, B76), (A77, B77), (A78, B78), (A79, B79), (A80, B80), (A81, B81), (A82, B82), (A83, B83), (A84, B84), (A85, B85), (A86, B86), (A87, B87), (A88, B88), (A89, B89), (A90, B90), (A91, B91), (A92, B92), (A93, B93), (A94, B94), (A95, B95), (A96, B96), (A97, B97), (A98, B98), (A99, B99), (A100, B100)}
g(x) = 1 - ((0.5 * (1 + erf((p_1rechts - x) / sqrt((2 * ((x * (1 - x))) / n))))) - (0.5 * (1 + erf((p_1links - x) / sqrt((2 * ((x * (1 - x))) / n))))))
h(x) = 0.954
A = Intersect(g, h, (0.0016437582046548234, 0.9540001092451762))
B = Intersect(g, h, p_1, 1)
Q_2: (p_2, g(p_2))
p_2links: p_2 - (2 * sqrt((p_2 * (1 - p_2) / n)))
p_2rechts: p_2 + (2 * sqrt((p_2 * (1 - p_2) / n)))
P_2l: (p_2links, 0)
P_2r: (p_2rechts, 0)
i = Segment(P_1l, P_1r)
j = Segment(P_2l, P_2r)