📄 chsone.txt
字号:
Sub CHSONE(BINS(), EBINS(), NBINS, KNSTRN, DF, CHSQ, PROB)
DF = NBINS - 1 - KNSTRN
CHSQ = 0#
For J = 1 To NBINS
If EBINS(J) <= 0# Then
Print " bad expected number"
Exit Sub
End If
CHSQ = CHSQ + (BINS(J) - EBINS(J)) ^ 2 / EBINS(J)
Next J
PROB = GAMMQ(0.5 * DF, 0.5 * CHSQ)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -