home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / TAB2.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  1.6 KB  |  59 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  TAB2 */
  4.  
  5.         main()
  6.  
  7.         {
  8.         int *fp,i,j,k,lca,no,nix,niy,iop;
  9.         static float x[11]={1.,3.,5.,7.,9.,11.,13.,15.,17.,19.,21.},
  10.                      y[11]={2.,4.,6.,8.,10.,12.,14.,16.,18.,20.,22.};
  11.         float freq[56],bux,blx,buy,bly,sumx,sumy,xm,ym,sdx,sdy;
  12.  
  13.         no = 11;
  14.         nix = 8;
  15.         niy = 7;
  16.         blx = 5.5;
  17.         bly = 2.5;
  18.         buy = 17.5;
  19.         iop = 1;
  20.         lca = 8;
  21.  
  22.         tab2(x,y,bux,blx,nix,buy,bly,niy,lca,&sumx,&sumy,&xm,&ym,&sdx,
  23.              &sdy,no,freq,iop);
  24.  
  25.  
  26.         *fp=fopen("PRN:","w");             /* open the printer */
  27.  
  28.         fprintf(*fp,"Test Results from TAB2\n\n");
  29.          printf("Test Results from TAB2\n\n");
  30.  
  31.         fprintf(*fp," SUMX = %12.7f\n",sumx);
  32.          printf(   " SUMX = %12.7f\n",sumx);
  33.         fprintf(*fp," SUMY = %12.7f\n",sumy);
  34.          printf(   " SUMY = %12.7f\n",sumy);
  35.         fprintf(*fp,"   XM = %12.7f\n",xm);
  36.          printf(   "   XM = %12.7f\n",xm);
  37.         fprintf(*fp,"   YM = %12.7f\n",ym);
  38.          printf(   "   YM = %12.7f\n",ym);
  39.         fprintf(*fp,"  SDX = %12.7f\n",sdx);
  40.          printf(   "  SDX = %12.7f\n",sdx);
  41.         fprintf(*fp,"  SDY = %12.7f\n",sdy);
  42.          printf(   "  SDY = %12.7f\n",sdy);
  43.  
  44.         k = 0;
  45.         for(i = 1; i <= niy; i++)
  46.         {
  47.          for(j = 1; j <= nix; j++)
  48.          {
  49.           fprintf(*fp," %3.1f",freq[k]);
  50.           printf(    " %3.1f",freq[k]);
  51.           k++;
  52.          }
  53.           fprintf(*fp,"\n");
  54.           printf(    "\n");
  55.         }
  56.  
  57.       }
  58.  
  59.