Test
Test Preliminary Definitions
The
Probability distribution,
is given by
,
where
is the lower boundary and
is the upper boundary.
>
Digits := 20; z := 'z';
Ccd := (a,b,df) -> (((1/2)^(df/2))/GAMMA(df/2))*int((zeta^(df/2-1)*exp(-z/2)),z=a..b);
> Ccd(0,19.023,9);
> evalf(%);
Test
>
A := [[1,2],[5,10]];
n := A[1,1] + A[1,2] + A[2,1] + A[2,2];
F := [[0,0],[0,0]]:
F[1,1] := (A[1,1] + A[1,2])*(A[1,1] + A[2,1])/(n-A[2,2]):
F[1,2] := (A[1,1] + A[1,2])*(A[1,2] + A[2,2])/n:
F[2,1] := (A[2,1] + A[2,2])*(A[1,1] + A[2,1])/n:
F[2,2] := (A[2,1] + A[2,2])*(A[1,2] + A[2,2])/n:
F;
>
>