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