Lösungen/Solutions/F2S2Ue/Ex11

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A=Anhang/Annexe/Appendice

Ueb/Ex 2      W

Remove["Global`@*"]

a

lHyp[nN_, n_, p_, c_] := 
      Sum[Binomial[p nN, m] 
          Binomial[nN (1 - p), n - m]/Binomial[nN, n], {m, 0, 
          c}]

uN = 10000

Plot[lHyp[uN, 50, mM/uN, 2], {mM, 0, uN}, 
        PlotRange -> {0, 1}];

Plot[lHyp[uN, 50, mM/uN, 5], {mM, 0, uN}, 
        PlotRange -> {0, 1}];

Plot[lHyp[uN, 50, mM/uN, 7], {mM, 0, uN}, 
        PlotRange -> {0, 1}];

b

1

β = Table[lHyp[uN, 50, p, 7], {p, 0.1, 0.3, 0.05}]

Table[lHyp[uN, 50, 0.2, k], {k, 2, 7}]

2

M = uN * 0.2

3

lHyp[uN, 50, 0.2, 2]

lHyp[uN, 50, N[2000/10000], 2]

4

1 - lHyp[uN, 50, 0.2, 2]

5

lHyp[uN, 50, 0.3, 2]

c

1

Table[lHyp[uN, 50, 0.1, k], {k, 2, 7}]

α = Table[1 - lHyp[uN, 50, 0.1, k], {k, 2, 7}]

2

M = uN * 0.1

3

lHyp[uN, 50, 0.1, 7]

lHyp[uN, 50, N[1000/10000], 7]

4

1 - lHyp[uN, 50, 0.1, 7]

5

1 - lHyp[uN, 50, 0.05, 7]