home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / PLYDIV.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  947 b   |  38 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  PLYDIV */
  4.  
  5.         main()
  6.  
  7.         {
  8.         int *fp,i,ndp,nds,ndq,ndr;
  9.         static float p[8]={1.,0.,3.,-2.,0.,0.,-1.,1.},
  10.                      s[4]={1.,2.,0.,-1.};
  11.         float q[8],r[8];
  12.  
  13.         ndp = 7;
  14.         nds = 3;
  15.  
  16.         plydiv(p,s,ndp,nds,q,r,&ndq,&ndr);
  17.  
  18.         *fp=fopen("PRN:","w");                 /* open the printer */
  19.  
  20.         fprintf(*fp,"Test Results from PLYDIV\n\n");
  21.          printf("Test Results from PLYDIV\n\n");
  22.  
  23.         fprintf(*fp,"  NDQ: %3d   NDR:  %3d\n",ndq,ndr);
  24.          printf("  NDQ: %3d   NDR:  %3d\n",ndq,ndr);
  25.  
  26.         for(i = 0; i <= ndq; i++)
  27.         {
  28.         fprintf(*fp,"%9.5f\n",q[i]);
  29.          printf("%9.5f\n",q[i]);
  30.         }
  31.  
  32.         for(i = 0; i <= ndr; i++)
  33.         {
  34.         fprintf(*fp,"%9.5f\n",r[i]);
  35.          printf("%9.5f\n",r[i]);
  36.         }
  37.      }
  38.