Lösungen / Statistik 1/13

1.

Remove["Global`*"]

A ⋂ B = {},   A ⋃ B = Ω
X= Ereignis Schwarzfahrer zu ergreifen = événement de trouver un sans billet
a = P(X|A),  b = P(X|B)
aA=P(A);    bB=P(B);    xX=P(X)
X=(A⋂X)⋃(B⋂X);   (A⋂X)⋂(B⋂X)={};
P(X)=P(A⋂X)+P(B⋂X);
P(A⋂X) = P(A) P(X|A);
P(B⋂X) = P(B) P(X|B);

a = 0.1;  b = 0.02;
aA = 4000/(4000 + 2000);  
    bB = 2000/(4000 + 2000);
xX = aA * a  +  bB * b

2.

Remove["Global`*"]

c=P(X|C);  cC=P(C);
P(C⋂X)=P(X)*P(C|X)=P(C)*P(X|C)
d=P(C|X)= P(C)*P(X|C)/P(X)= P(C)*P(X|C)/(P(A⋂X)+P(B⋂X)+P(C⋂X))
= P(C)*P(X|C)/( P(A) P(X|A)+ P(B) P(X|B)+ P(C) P(X|C))
=cC * c /(aA * a + bB * b + cC * c)

aA = 4000/(1000 + 4000 + 2000);
bB = 2000/(1000 + 4000 + 2000);
cC = 1000/(1000 + 4000 + 2000);
a = 0.1;  b = 0.02;
c = 0.015;

d = cC*c/(aA*a + bB*b + cC*c)

3.

Antworten vergleiche angegebene Skripte oder
http://rowicus.ch/Wir/ProblemsSolutBachelor/Statistik/StatistikFragenZuVerteilungen.pdf

4.

Remove["Global`*"]

p = 0.3;
q = 1 - p;
B[n_, k_, p_] := 
      Binomial[n, k] p^k  (1 - p)^(n - k)

a

B[10, 4, 0.3]

b

h[x_] := Sign[(Sign[x] + 1)/2];
P[x_] := B[10, x, 0.3];
t[x_] := x;
F[x_] := 
        Sum[P[k] h[x - t[k]], {k, 1, 6}];
F[x]

Plot[F[x], {x, -1, 8}];

F[4.5] - F[3.5]

B[10, 4, 0.3] == F[4.5] - F[3.5]

5.

Remove["Global`*"]

n = 20;
p = 2/10;
q = 1 - p;
B[n_, k_, p_] := 
        Binomial[n, k] p^k  (1 - p)^(n - k);

a

P[x ≤   5]

P[x ≥ 5] = 1 - P[x ≤ 4] = 1 - B[n,4,p] - B[n,3,p] - B[n,2,p] - B[n,1,p] - B[n,0,p]

1 - B[n, 4, p] - B[n, 3, p] - B[n, 2, p] - B[n, 1, p] - 
        B[n, 0, p]  //  N

b

EW =  n p  // N

StAbw  =  Sqrt[n p q]  // N

6.

Remove["Global`*"]

Beim Bernoulli-Experiment war B[n,k,p] die Anzahl der erfolgreichen Versuche bei insgesamt n Versuchen. Bei welchen Versuchnummern die Erfolge eintreffen wird ausser Acht gelassen. Die Kombinationen (Binomialkoeffizienten) in der Formel zeigen an, dass man allle Möglichkeiten auswählt.

Beim geometrischen Modell dagegen fragt man nach der Chance bis zum 1. Misserfollg beim k-ten Versuch. Die dazugehörige Wahrscheinlichkeit ist somit
P[ X = k ] = p p p p ...  .  p q  =  
        (p^((k - 1))) (1 - p)

Sum[p^(k - 1) (1 - p), {k, 1, n}] // Simplify

n = 20;
p = 9/10;
B[n_, p_] :=  1 - (p^n);

P[ X > 20] = 1 - P[ X ≤ 20]

a

B[n, p]  // N

b

1 - B[n, p]  // N

c

EW =  1/p  // N

StAbw  =  Sqrt[1/p^2 - 1/p]  // N

7.

Remove["Global`*"]

H[n1_, n2_, m_, k_] := 
      Binomial[n1, k] Binomial[n2, m - k]/Binomial[n1 + n2, m]

a

n1 = 4;
n2 = 26;
m = 5;

H[n1, n2, m, 2]  // N

b

b1

n1 = 3;
n2 = 100 - 3;
m = 10;

H[n1, n2, m, 0]  // N

b2

n1 = 3;
n2 = 100 - 3;
m = 10;

H[n1, n2, m, 1]  // N

b3

n1 = 3;
n2 = 100 - 3;
m = 10;

H[n1, n2, m, 2]  // N

b4

n1 = 3;
n2 = 100 - 3;
m = 10;

H[n1, n2, m, 3]  // N

b5

n1 = 3;
n2 = 100 - 3;
m = 10;

EW =  m n1/(n1 + n2)  // N

StAbw  =  
      Sqrt[EW (1 - 
                n1/(n1 + n2)) ((n1 + n2 - m)/(n1 + n2 - 
                    1))]  // N