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