home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STCHI2.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  570 b   |  27 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STCHI2 */
  4.  
  5.         main()
  6.  
  7.         {
  8.         float a,b,c,d,chi2;
  9.         int *fp;
  10.  
  11.         *fp=fopen("PRN:","w");                /* open the printer */
  12.         fprintf(*fp,"Test Results from STCHI2\n\n");
  13.         printf("Test Results from STCHI2\n\n");
  14.  
  15.         a = 6.;
  16.         b = 0.;
  17.         c = 1.;
  18.         d = 3.;
  19.  
  20.         stchi2(a,b,c,d,&chi2);
  21.  
  22.  
  23.         fprintf(*fp,"CHI2 = %15.7f\n",chi2);
  24.          printf("CHI2 = %15.7f\n",chi2);
  25.  
  26.         }
  27.