home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / NAMULL.TST < prev    next >
Encoding:
Text File  |  1984-08-31  |  1.1 KB  |  49 lines
  1.         /* General form test program for scientific functions */
  2.  
  3.         /* Routine Tested:  NAMULL */
  4.  
  5.         main()
  6.  
  7.        {
  8.         int *fp,i,max,n;
  9.         static float root[6]={0.,-4.,1.5,0.,0.,0.};
  10.         float eps;
  11.  
  12.         n = 3;
  13.         eps = .000001;
  14.         max = 40;
  15.  
  16.         namull(root,&n,eps,max);
  17.  
  18.         *fp=fopen("PRN:","w");                /* open the printer */
  19.  
  20.         fprintf(*fp,"Test Results from NAMULL\n\n");
  21.          printf("Test Results from NAMULL\n\n");
  22.         fprintf(*fp,"  N = %d\n\n",n);
  23.          printf(   "  N = %d\n\n",n);
  24.  
  25.         for(i = 0; i <= 5; i+=2)
  26.         {
  27.         fprintf(*fp,"   %15.7f   %15.7f\n",root[i],root[i+1]);
  28.          printf(   "   %15.7f   %15.7f\n",root[i],root[i+1]);
  29.         }
  30.        }
  31.  
  32.     value(rt,fprt)
  33.  
  34.        float rt[],fprt[];
  35.        {
  36.         static float a[4]={1.,1.,-9.,25.},
  37.                      b[4]={0.,7.,0.,5.};
  38.         float rt0,rt1,fprt0,fprt1;
  39.         int nd;
  40.  
  41.         nd = 3;
  42.         rt0 = rt[0];
  43.         rt1 = rt[1];
  44.         cxpoev(rt0,rt1,nd,a,b,&fprt0,&fprt1);
  45.         fprt[0] = fprt0;
  46.         fprt[1] = fprt1;
  47.        }
  48.  
  49.