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