VB常用数值算法集 内含有解线性代数方程组

				Sub CHSONE(BINS(), EBINS(), NBINS, KNSTRN, DF, CHSQ, PROB)
				    DF = NBINS - 1 - KNSTRN
				    CHSQ = 0#
				    For J = 1 To NBINS
				        If EBINS(J) 				            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