home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / TAB1.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  1.3 KB  |  46 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  TAB1 */
  4.  
  5.         main()
  6.  
  7.         {
  8.         int *fp,i,no,ni,iop;
  9.         static float a[21]={-10.,-9.,-8.,-6.,-5.,-4.,-3.,-2.,-1.,0.,
  10.                               1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.};
  11.         float freq[7],bl,bh,vmin,vmax,total,vmean,stdev;
  12.  
  13.         no = 21;
  14.         ni = 7;
  15.         bl = -6.5;
  16.         bh = 5.8;
  17.         iop = 1;
  18.  
  19.         tab1(no,a,ni,bl,bh,&vmin,&vmax,&total,&vmean,&stdev,freq,iop);
  20.  
  21.  
  22.         *fp=fopen("PRN:","w");             /* open the printer */
  23.  
  24.         fprintf(*fp,"Test Results from TAB1\n\n");
  25.          printf("Test Results from TAB1\n\n");
  26.  
  27.         fprintf(*fp," VMIN = %f\n",vmin);
  28.          printf(" VMIN = %f\n",vmin);
  29.         fprintf(*fp," VMAX = %f\n",vmax);
  30.          printf(" VMAX = %f\n",vmax);
  31.         fprintf(*fp," TOTAL = %f\n",total);
  32.          printf(" TOTAL = %f\n",total);
  33.         fprintf(*fp," VMEAN = %f\n",vmean);
  34.          printf(" VMEAN = %f\n",vmean);
  35.         fprintf(*fp," STDEV = %f\n",stdev);
  36.          printf(" STDEV = %f\n",stdev);
  37.  
  38.         for(i = 0; i <= 6; i++)
  39.         {
  40.         fprintf(*fp," FREQ[%d] = %f\n",i,freq[i]);
  41.          printf(   " FREQ[%d] = %f\n",i,freq[i]);
  42.         }
  43.  
  44.         }
  45.  
  46.