2
> restart:
0,7, - 0,3. , 29 .
P1 - , , 10
P2 - , , 10
P3 - , , 10
P=P1*P2*P3+(-P1)*P2*P3+1*(-P2)*P3+P1*P2*(-P3)
> P:=0.7*0.7*0.7+0.3*0.7*0.7+0.7*0.3*0.7+0.7*0.7*0.3;
2. p=0.2. , 0,9 ?
> P1:=1-0.9:
> P2:=1-0.2:
> p:=ln(P1)/ln(P2);
3. . :
) ;
> P_a:=1-(5/6)^10:
> evalf(P_a);
) .
> P_b:=binomial(10,1)* 0.5^1 * 0.5^9:
> evalf(P_b);
4. 1%. , 200 :
) ;
> P_a:=binomial(200,4)* 0.01^4 * 0.99^196;
) .
> P_b:=binomial(200,10)* 0.01^10 * 0.99^190;
5. Ur r=0,1,2...30 N=50.
> N:=50:
> for r from 0 to 30 do
U(r):=evalf(binomial(2*N-r,N)*(1/2^(2*N-r)))
End do;
500 500 . , , .
> str:=1:
> P_1:=(str^0*exp(-1))/0!+(str^1*exp(-1))/1!+(str^2*exp(-1))/2!:
> P:=1-P_1:
> evalf(P);
7. 10000 . 0,00001 . :
) ;
> P:=binomial(10000,2)*(0.00001^2)*(0.99999^9998);
) .
> P_q:=10000*0.00001;
> P_qq:=((P_q^0)*exp(-P_q))/0!+((P_q^1)*exp(-P_q))/1!;
> P:=1-P_qq;
8. 3000 . , , 0,001. , k=0,1,2,...,10 .
> p:=3000*0.001;
> for k from 0 to 10 do
> u(k):=evalf(((p^k)*exp(-p))/k!)
> end do;
9. :
) n=10,p=0.1,k=0,1,2...10;
> n:=10:
> p:=0.1:
> plot([seq([k,stats[statevalf,pf,binomiald[n,p]](k)],k=0..10)]);
|
|
) l=0.5 l=1,k=0,1,2,...10;
> l:=0.5:
> k:=0..10:
> plot([seq([k,stats[statevalf,pf,poisson[l]](k)],k=0..10)]);
> l:=1:
> k:=0..10:
> plot([seq([k,stats[statevalf,pf,poisson[l]](k)],k=0..10)]);
) n1=n2=10,r=5,k=0,1,2,...10;
> N1:=10:
> N2:=10:
> r:=5:
> k:=0..10:
> plot([seq([k,stats[statevalf,pf,hypergeometric[N1, N2, r]](k)],k=0..10)]);
) r=5,p=0.5,k=0,1,2,...10.
> r:=5:
> p:=0.5:
> k:=0..10:
> plot([seq([k,stats[statevalf,pf,negativebinomial[r,p]](k)],k=0..10)]);
> with(stats):
Warning, these names have been redefined: anova, describe, fit, importdata, random, statevalf, statplots, transform
10. ( ) :
) a=1, b=5; a=-3,b=-1;
Warning, these names have been redefined: anova, describe, fit, importdata, random, statevalf, statplots, transform
> plot(statevalf[pdf,discreteuniform[1,5]],colour=green);
Plotting error, empty plot
>
>
) :m=0, q=1; m=0,q=3; m=0,q=10; -4<=x<=4;m=2,q=1;m=2,q=3;m=2,q=10; -2<=x<=6
) : a=0.5,a=1,a=2,0<=x<=5;
) :t=0.5,t=1,t=2,-5<=x<=5;
>
) - : m=1,m=2,m=3,-5<=x<=5;
>
) : k=1,k=2,k=3,-5<=x<=5.
>
11. 30 , :a) ,) ,) ,) , ) - , ) , ) . .
A)
> stats[random,uniform](30);
)
> stats[random,normald](30);
)
> stats[random,exponential[3,9]](30);
)
> stats[random,cauchy[3,9]](30);
)
> stats[random,chisquare[3]](30);
)
> stats[random,studentst[3]](30);
)
> stats[random,poisson[3]](30);