k

P(Xn=k)

p = 0.4 (slider from 0 to 1, step 0.1)
n = 36 (slider from 0 to 100, step 1)
A2 = 0
A3 = 1
A4: 2 * A3 - A2
A5: 2 * A4 - A3
A6: 2 * A5 - A4
A7: 2 * A6 - A5
A8: 2 * A7 - A6
A9: 2 * A8 - A7
A10: 2 * A9 - A8
A11: 2 * A10 - A9
A12: 2 * A11 - A10
A13: 2 * A12 - A11
A14: 2 * A13 - A12
A15: 2 * A14 - A13
A16: 2 * A15 - A14
A17: 2 * A16 - A15
A18: 2 * A17 - A16
A19: 2 * A18 - A17
A20: 2 * A19 - A18
A21: 2 * A20 - A19
A22: 2 * A21 - A20
A23: 2 * A22 - A21
A24: 2 * A23 - A22
A25: 2 * A24 - A23
A26: 2 * A25 - A24
A27: 2 * A26 - A25
A28: 2 * A27 - A26
A29: 2 * A28 - A27
A30: 2 * A29 - A28
A31: 2 * A30 - A29
A32: 2 * A31 - A30
A33: 2 * A32 - A31
A34: 2 * A33 - A32
A35: 2 * A34 - A33
A36: 2 * A35 - A34
A37: 2 * A36 - A35
A38: 2 * A37 - A36
A39: 2 * A38 - A37
A40: 2 * A39 - A38
A41: 2 * A40 - A39
A42: 2 * A41 - A40
A43: 2 * A42 - A41
A44: 2 * A43 - A42
A45: 2 * A44 - A43
A46: 2 * A45 - A44
A47: 2 * A46 - A45
A48: 2 * A47 - A46
A49: 2 * A48 - A47
A50: 2 * A49 - A48
A51: 2 * A50 - A49
A52: 2 * A51 - A50
A53: 2 * A52 - A51
A54: 2 * A53 - A52
A55: 2 * A54 - A53
A56: 2 * A55 - A54
A57: 2 * A56 - A55
A58: 2 * A57 - A56
A59: 2 * A58 - A57
A60: 2 * A59 - A58
A61: 2 * A60 - A59
A62: 2 * A61 - A60
A63: 2 * A62 - A61
A64: 2 * A63 - A62
A65: 2 * A64 - A63
A66: 2 * A65 - A64
A67: 2 * A66 - A65
A68: 2 * A67 - A66
A69: 2 * A68 - A67
B2 = BinomialDist(100, 0.4, A2, false)
A70: 2 * A69 - A68
A71: 2 * A70 - A69
A72: 2 * A71 - A70
A73: 2 * A72 - A71
A74: 2 * A73 - A72
A75: 2 * A74 - A73
A76: 2 * A75 - A74
A77: 2 * A76 - A75
A78: 2 * A77 - A76
A79: 2 * A78 - A77
A80: 2 * A79 - A78
A81: 2 * A80 - A79
A82: 2 * A81 - A80
A83: 2 * A82 - A81
A84: 2 * A83 - A82
A85: 2 * A84 - A83
A86: 2 * A85 - A84
A87: 2 * A86 - A85
A88: 2 * A87 - A86
A89: 2 * A88 - A87
A90: 2 * A89 - A88
A91: 2 * A90 - A89
A92: 2 * A91 - A90
A93: 2 * A92 - A91
A94: 2 * A93 - A92
A95: 2 * A94 - A93
A96: 2 * A95 - A94
A97: 2 * A96 - A95
A98: 2 * A97 - A96
A99: 2 * A98 - A97
A100: 2 * A99 - A98
B3 = BinomialDist(100, 0.4, A3, false)
B4 = BinomialDist(100, 0.4, A4, false)
B5 = BinomialDist(100, 0.4, A5, false)
B6 = BinomialDist(100, 0.4, A6, false)
B7 = BinomialDist(100, 0.4, A7, false)
B8 = BinomialDist(100, 0.4, A8, false)
B9 = BinomialDist(100, 0.4, A9, false)
B10 = BinomialDist(100, 0.4, A10, false)
B11 = BinomialDist(100, 0.4, A11, false)
B12 = BinomialDist(100, 0.4, A12, false)
B13 = BinomialDist(100, 0.4, A13, false)
B14 = BinomialDist(100, 0.4, A14, false)
B15 = BinomialDist(100, 0.4, A15, false)
B16 = BinomialDist(100, 0.4, A16, false)
B17 = BinomialDist(100, 0.4, A17, false)
B18 = BinomialDist(100, 0.4, A18, false)
B19 = BinomialDist(100, 0.4, A19, false)
B20 = BinomialDist(100, 0.4, A20, false)
B21 = BinomialDist(100, 0.4, A21, false)
B22 = BinomialDist(100, 0.4, A22, false)
B23 = BinomialDist(100, 0.4, A23, false)
B24 = BinomialDist(100, 0.4, A24, false)
B25 = BinomialDist(100, 0.4, A25, false)
B26 = BinomialDist(100, 0.4, A26, false)
B27 = BinomialDist(100, 0.4, A27, false)
B28 = BinomialDist(100, 0.4, A28, false)
B29 = BinomialDist(100, 0.4, A29, false)
B30 = BinomialDist(100, 0.4, A30, false)
B31 = BinomialDist(100, 0.4, A31, false)
B32 = BinomialDist(100, 0.4, A32, false)
B33 = BinomialDist(100, 0.4, A33, false)
B34 = BinomialDist(100, 0.4, A34, false)
B35 = BinomialDist(100, 0.4, A35, false)
B36 = BinomialDist(100, 0.4, A36, false)
B37 = BinomialDist(100, 0.4, A37, false)
B38 = BinomialDist(100, 0.4, A38, false)
B39 = BinomialDist(100, 0.4, A39, false)
B40 = BinomialDist(100, 0.4, A40, false)
B41 = BinomialDist(100, 0.4, A41, false)
B42 = BinomialDist(100, 0.4, A42, false)
B43 = BinomialDist(100, 0.4, A43, false)
B44 = BinomialDist(100, 0.4, A44, false)
B45 = BinomialDist(100, 0.4, A45, false)
B46 = BinomialDist(100, 0.4, A46, false)
B47 = BinomialDist(100, 0.4, A47, false)
B48 = BinomialDist(100, 0.4, A48, false)
B49 = BinomialDist(100, 0.4, A49, false)
B50 = BinomialDist(100, 0.4, A50, false)
B51 = BinomialDist(100, 0.4, A51, false)
B52 = BinomialDist(100, 0.4, A52, false)
B53 = BinomialDist(100, 0.4, A53, false)
B54 = BinomialDist(100, 0.4, A54, false)
B55 = BinomialDist(100, 0.4, A55, false)
B56 = BinomialDist(100, 0.4, A56, false)
B57 = BinomialDist(100, 0.4, A57, false)
B58 = BinomialDist(100, 0.4, A58, false)
B59 = BinomialDist(100, 0.4, A59, false)
B60 = BinomialDist(100, 0.4, A60, false)
B61 = BinomialDist(100, 0.4, A61, false)
B62 = BinomialDist(100, 0.4, A62, false)
B63 = BinomialDist(100, 0.4, A63, false)
B64 = BinomialDist(100, 0.4, A64, false)
B65 = BinomialDist(100, 0.4, A65, false)
B66 = BinomialDist(100, 0.4, A66, false)
B67 = BinomialDist(100, 0.4, A67, false)
B68 = BinomialDist(100, 0.4, A68, false)
B69 = BinomialDist(100, 0.4, A69, false)
B70 = BinomialDist(100, 0.4, A70, false)
B71 = BinomialDist(100, 0.4, A71, false)
B72 = BinomialDist(100, 0.4, A72, false)
B73 = BinomialDist(100, 0.4, A73, false)
B74 = BinomialDist(100, 0.4, A74, false)
B75 = BinomialDist(100, 0.4, A75, false)
B76 = BinomialDist(100, 0.4, A76, false)
B77 = BinomialDist(100, 0.4, A77, false)
B78 = BinomialDist(100, 0.4, A78, false)
B79 = BinomialDist(100, 0.4, A79, false)
B80 = BinomialDist(100, 0.4, A80, false)
B81 = BinomialDist(100, 0.4, A81, false)
B82 = BinomialDist(100, 0.4, A82, false)
B83 = BinomialDist(100, 0.4, A83, false)
B84 = BinomialDist(100, 0.4, A84, false)
B85 = BinomialDist(100, 0.4, A85, false)
B86 = BinomialDist(100, 0.4, A86, false)
B87 = BinomialDist(100, 0.4, A87, false)
B88 = BinomialDist(100, 0.4, A88, false)
B89 = BinomialDist(100, 0.4, A89, false)
B90 = BinomialDist(100, 0.4, A90, false)
B91 = BinomialDist(100, 0.4, A91, false)
B92 = BinomialDist(100, 0.4, A92, false)
B93 = BinomialDist(100, 0.4, A93, false)
B94 = BinomialDist(100, 0.4, A94, false)
B95 = BinomialDist(100, 0.4, A95, false)
B96 = BinomialDist(100, 0.4, A96, false)
B97 = BinomialDist(100, 0.4, A97, false)
B98 = BinomialDist(100, 0.4, A98, false)
B99 = BinomialDist(100, 0.4, A99, false)
B100 = BinomialDist(100, 0.4, A100, false)
m: n * p
s: sqrt(n * p * (1 - p))
HistoCentréeRéduite = Histogram(Sequence[(i - 0.5 - m) / s, i, 0, n + 1], Sequence[s * BinomialDist[n, p, k, false], k, 0, n])
b = 39 (slider from 0 to 50, step 1)
a = 17 (slider from 0 to 50, step 1)
ProbaBinomiale: BinomialDist[n, p, b, true] - BinomialDist[n, p, a - 1, true]
DiagBatonsZn = BarChart(Sequence[(i - m) / s, i, 0, n], Sequence[BinomialDist[n, p, k, false], k, 0, n], 0)
f = Normal(0, 1, x)