home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STCHIS.TST < prev    next >
Encoding:
Text File  |  1984-09-01  |  529 b   |  25 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STCHIS */
  4.  
  5.         main()
  6.  
  7.         {
  8.         float chi2,r[3];
  9.         int llc,m,n,idf;
  10.  
  11.         static float x[3][2]={15.,21.,
  12.                               76.,51.,
  13.                               21., 9.};
  14.  
  15.         printf("Test Results from STCHIS\n\n");
  16.  
  17.         llc = 2;
  18.         m = 3;
  19.         n = 2;
  20.  
  21.         stchis(llc,m,n,x,&chi2,&idf,r);
  22.  
  23.          printf("CHI2 = %15.7f  IDF = %4d\n",chi2,idf);
  24.        }
  25.