一、卡方检验的特点卡方检验是对样本的频数分布所来自的总体分布是否服从某种理论分布或某种假设分布所作的假设检验。即根据样本的频数分布来推断总体的分布。它属于自由分布的非参数检验。它可以处理一个因素分为多种类别,或多种因素各有多种类别的资料。所以,凡是可以应用比率进行检验的资料,都可以用卡方检验。二、卡方检验的统计量卡方检验统计量的基本形式为公式(10.1)。χ2值有以下几个特点:(1)χ2值具有可加性。(2)χ2值永远是正值。(3)χ2值的大小随实际频数与理论频数差的大小而变化。卡方分布函数--------------------------------------------------------------------------------10 CLS : SCREEN 2, 0: PRINT " 卡方分布函数"20 INPUT "自由度 F1="; F130 INPUT "卡方值 ="; K40 P1 = 3.14159265259#50 X1 = K / 2: M = F1 / 260 IF INT(M) = M THEN 14070 U = SQR(K)80 GOSUB 25090 P = P * 2 - 1100 D = SQR(X1 / P1) * EXP(-X1)110 IF M = .5 THEN 200120 FOR I = .5 TO M - 1125 P = P - D / I: D = X1 / I * D127 NEXT I130 GOTO 200140 P = 1 - EXP(-X1)150 D = X1 * EXP(-X1)160 IF M = 1 THEN 200170 FOR I = 1 TO M - 1180 P = P - D / I: D = X1 / I * D190 NEXT I200 D = D / K210 PRINT "*分布函数值 P("; K; ","; F1; ")="; P220 PRINT "*密度函数值 D("; K; ","; F1; ")="; D225 PRINT "-----------------------------------------"226 PRINT "是否再运行一次(Y/N)"; : INPUT K$227 IF K$ = "Y" OR K$ = "y" THEN 10228 IF K$ = "N" OR K$ = "n" THEN 230229 GOTO 226230 'CHAIN "LSC10",130235 END240 REM 正态分布函数250 Y = ABS(U) / SQR(2)260 E1 = (((((4.30683E-05 * Y + 2.765672E-04) * Y + 1.520143E-04) * Y + .0092705272#) * Y + .0422820123#) * Y + 7.052307839999999D-02) * Y + 1270 E2 = E1 * E1 * E1 * E1280 E = 1 - 1 / E2 / E2 / E2 / E2290 P = (1 + E) / 2300 RETURN 你可以到百度网页中找一下,在下也是在网上找的,应该是一个很麻烦的问题
|