Various_programs/MCORR.pas at main · Schrausser/Various_programs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#cas
MCORR2():=
BEGIN
STARTAPP("Statistiken_2_Var");
STARTVIEW(−6)
M2=TRN(M1)
L7=M2(1);C1=L7
L7=M2(2);C2=L7
Do2VStats(S1)
Corr▶L1(1)
MeanX▶L3(1);sX▶L4(1)
MeanY▶L3(2);sY▶L4(2)

L7=M2(1);C1=L7
L7=M2(3);C2=L7
Do2VStats(S1)
Corr▶L1(2)
MeanY▶L3(3);sY▶L4(3)

L7=M2(2);C1=L7
L7=M2(3);C2=L7
Do2VStats(S1)
Corr▶L1(3)

C=MCORR(L1(1),L1(2),L1(3))
C▶L2(1)
F=FMCORR(C,NbItem)
F▶L2(2)
1-FISHER_CDF(NbItem,3,F)▶L2(5);
NbItem▶L2(3)
3▶L2(4)
M2=0;L7={};
1▶M2(1,1);L1(3)▶M2(1,2)
L1(3)▶M2(2,1);1▶M2(2,2)
L1(1)▶M3(1,1)
L1(2)▶M3(2,1)
M4=M21*M3
M4(1,1)*(L4(1)/L4(2))▶L5(1)
M4(2,1)*(L4(1)/L4(3))▶L5(2)
L3(1)-(L5(1)*L3(2)+L5(2)*L3(3))▶L6(1)
#y=b1x1+b2x2+a
"L5(1)*X+L5(2)*Y+L6(1)"▶FZ1
STARTAPP("Arbeitsblatt");
"R"▶A1;L2(1)▶B1;"r1c"▶C1;L1(1)▶D1
"F"▶A2;L2(2)▶B2;"r2c"▶C2;L1(2)▶D2
"df1"▶A3;L2(3)▶B3;"b1"▶C3;M4(1,1)▶D3
"df2"▶A4;L2(4)▶B4;"b2"▶C4;M4(2,1)▶D4
"p"▶A5;1-L2(5)▶B5;"bc1"▶C5;L5(1)▶D5
"α₂"▶A6;L2(5)▶B6;"bc2"▶C6;L5(2)▶D6
"ac"▶C7;L6(1)▶D7
RETURN (L2);
END;
#end