用于开发税务票据管理的软件

源代码在线查看: chstwo.txt

软件大小: 36519 K
上传用户: jill
关键词: 软件
下载地址: 免注册下载 普通下载 VIP

相关代码

				procedure CHSTWO(BINS1, BINS2:array of real;
				                         NBINS, KNSTRN:integer;var DF, CHSQ, PROB:real);
				var
				    J:integer;
				begin
				    DF:=NBINS - 1 - KNSTRN;
				    CHSQ:=0; 
				    For J:=1 To NBINS do
				    begin
				        If (BINS1[J] = 0) And (BINS2[J] = 0)  Then
				          DF:=DF - 1 
				        Else
				          CHSQ:=CHSQ + Sqr(BINS1[J] - BINS2[J]) / (BINS1[J] + BINS2[J]);
				    end; 
				    PROB:=GAMMQ(0.5 * DF, 0.5 * CHSQ);
				end;			

相关资源