行列表卡方检验CASIO fx-4800P,4850P实用程序

前几天上传了这个检验的fx 4500PA/5800P/CG20CN这个程序,程序是类似的。首先是编写的5800P程序,后根据这个程序的结构又编写了CG20CN、4500PA程序以,已上传。今天又编写了4800P和4850P程序,上传供大家参考使用。

行×列表卡方检验CASIO fx-4800P/4850P实用程序

说明：1.此程序适用于任何行和任何列的行×列表的卡方检验，简单实用。

2.下列程序输入CASIO fx-4800P/4850P计算器后，按行输入行×列表内实数A即可，输入完后即可显示χ²值。

Mcl

R"R"

C"C"

X=R+1:Y=C+1

Defm XY

I=0:M=0

Lbl 0:Isz I

Lbl 1:Isz M

{A}

Z[M]=A

Z[IC+I]=Z[IC+I]+ Z[M]

M≠IY-1=>Goto 1

Isz M

M≠RY=>Goto 0

I=0:M=0:K=0

Lbl 2:Isz I

Lbl 3:Isz M:Isz K

Z[RY+K]=Z[RY+K]+Z[M]

M≠IY=>Goto 3

K=0

M≠RY=>Goto 2

I=0:M=0:K=0

Lbl 4:Isz I

Lbl 5:Isz M:Isz K

W=W+Z[M]²/Z[IY]/Z[RY+K]

K≠C=>Goto 5

Isz M:K=0

M≠RY=>Goto 4

Z[XY](W-1: "X²="W