行×列表的卡方检验的CASIO fx-CG20CN实用程序(1)

行×列表的卡方检验的CASIO fx-CG20CN实用程序(1）

说明：1.此程序适用于任何行和任何列的行×列表的卡方检验，简单实用。
2.下列程序输入CASIO fx-CG20CN计算器后，按行输入行×列表内实数A即可，输入完后即可显示X2值。
3.下列程序也可以直接传到CASIO fx-CG20CN中使用，但应该先把这些汉字删掉，另存为文件名为RXC1TEST(最多8个字符,第二个字符X代表乘号)、编码（E）为ANSI才能使用(因此文档用Unicode编码存档的，所以要改回ANSI编码)。




'ProgramMode:RUN
Norm 2:Fix 2
"Row"?->R
"Column"?->C
R+1->X:C+1->Y
0->I
Lbl 0:Isz I
R->Dim List I
I<>C=>Goto 0
0->M:0->I
Lbl 1:Isz M
Lbl 2:Isz I
"Ar"?->List I[M]
I<>C=>Goto 2
0->I
M<>R=>Goto 1
0->I
Lbl 3:Isz I
Sum List I->List I[X]
I<>C=>Goto 3
X->Dim List Y
0->I
Lbl 4:Isz I
List I+List Y->List Y
I<>C=>Goto 4
0->M:0->I:0->W
Lbl 5:Isz M
Lbl 6:Isz I
List I[M]^<2>/List Y[M]/List I[X]+W->W
I<>C=>Goto 6
0->I
M<>R=>Goto 5
"_x^2_=":List Y[X](W-1Disps"END"