home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STANV1.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  873 b   |  34 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STANV1 */
  4.  
  5.         main()
  6.  
  7.     {
  8.         int *fp,i,m,n;
  9.         static int k[5]={5,5,5,5,5};
  10.         static float x[20]={56.,55.,62.,59.,60.,64.,61.,50.,55.,56.,
  11.                             45.,46.,45.,39.,43.,42.,39.,45.,43.,41.};
  12.         float av[10],f;
  13.  
  14.         m = 4;
  15.         n = 20;
  16.  
  17.        stanv1(n,m,k,x,&f,av);
  18.  
  19.         *fp=fopen("PRN:","w");             /* open the printer */
  20.  
  21.         fprintf(*fp,"Test Results from STANV1\n");
  22.          printf("Test Results from STANV1\n\n");
  23.  
  24.          fprintf(*fp,"      f = %15.8f\n",f);
  25.           printf(   "      f = %15.8f\n",f);
  26.  
  27.         for(i = 0; i <= 9; i++)
  28.         {
  29.          fprintf(*fp," av[%d] = %15.8f \n",i,av[i]);
  30.           printf(   " av[%d] = %15.8f \n",i,av[i]);
  31.         }
  32.      }
  33.  
  34.