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