home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / MOVEAV.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  918 b   |  33 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  MOVEAV */
  4.  
  5.         main()
  6.  
  7.     {
  8.         int *fp,i,l,n;
  9.         static float a[38]={430.,426.,422.,419.,414.,413.,412.,409.,411.,
  10.                             417.,422.,430.,438.,441.,447.,455.,461.,453.,
  11.                             448.,449.,454.,463.,470.,472.,476.,481.,493.,
  12.                             487.,491.,492.,485.,486.,482.,479.,479.,476.,
  13.                             472.,470.};
  14.         float b[38];
  15.  
  16.         l = 11;
  17.         n = 38;
  18.  
  19.        moveav(a,n,l,b);
  20.  
  21.         *fp=fopen("PRN:","w");             /* open the printer */
  22.  
  23.         fprintf(*fp,"Test Results from MOVEAV\n");
  24.          printf("Test Results from MOVEAV\n\n");
  25.  
  26.         for(i = 0; i <= n-1; i++)
  27.         {
  28.         fprintf(*fp,"    %15.10f  \n",b[i]);
  29.          printf(   "    %15.10f  \n",b[i]);
  30.         }
  31.      }
  32.  
  33.