home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STEXTN.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  732 b   |  27 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  STEXTN */
  4.  
  5.         main()
  6.  
  7.         {
  8.         static float x[5] = {1. ,2. ,3. , 4. ,  5.},
  9.                      y[5] = {1.6,4.5,3.8,40.2,125.};
  10.         float c,d,aa,bb,rate;
  11.         int *fp,n;
  12.  
  13.         *fp=fopen("PRN:","w");                /* open the printer */
  14.         fprintf(*fp,"Test Results from STEXTN\n\n");
  15.         printf("Test Results from STEXTN\n\n");
  16.  
  17.         n = 5;
  18.         c = 10.;
  19.         d = 0.;
  20.  
  21.         STEXTN(n,c,d,x,y,&aa,&bb,&rate);
  22.  
  23.         fprintf(*fp,"AA = %15.7f BB = %15.7f RATE = %15.7f\n",aa,bb,rate);
  24.          printf("AA = %15.7f BB = %15.7f RATE = %15.7f\n",aa,bb,rate);
  25.  
  26.        }
  27.