home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 471 / rccl126 < prev    next >
Text File  |  1987-03-02  |  867b  |  59 lines
  1. main(argc,argv)
  2. char **argv;
  3. {
  4.     int i, n = 1;
  5.     double d = 1.;
  6.     float f = 1.;
  7.  
  8.     double t1, t2, lt, cputim_();       /* fortran cc .. -lU77 */
  9.     double fact = 1000000.;
  10.  
  11.     i = atoi(*(argv+1));
  12.     while(i--)
  13.         n *= 10;
  14.  
  15.     i = n;
  16.     t1 = cputim_();
  17.     while (i--) {
  18.     }
  19.     t2 = cputim_();
  20.  
  21.     lt = (t2 - t1) * fact;
  22.     printf("ordinary memory access instruction %2.2f micro sec\n",
  23.     lt / (n * 5));
  24.  
  25.     i = n;
  26.     t1 = cputim_();
  27.     while(i--) {
  28.         cos(0.707);
  29.     }
  30.     t2 = cputim_();
  31.  
  32.     printf(
  33.     "cos %2.2f micro sec\n",
  34.     ((t2 - t1) * fact - lt) / n);
  35.  
  36.     i = n;
  37.     t1 = cputim_();
  38.     while(i--) {
  39.         sin(0.707);
  40.     }
  41.     t2 = cputim_();
  42.  
  43.     printf(
  44.     "sin %2.2f micro sec\n",
  45.     ((t2 - t1) * fact - lt) / n);
  46.  
  47.     i = n;
  48.     t1 = cputim_();
  49.     while(i--) {
  50.         atan2(3., 2.);
  51.     }
  52.     t2 = cputim_();
  53.  
  54.     printf(
  55.     "atan2 %2.2f micro sec\n",
  56.     ((t2 - t1) * fact - lt) / n);
  57.  
  58. }
  59.