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