home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / 8087TEST.C next >
Encoding:
Text File  |  1985-02-16  |  210 b   |  20 lines

  1. double angle;
  2. main()
  3. {
  4. float i = 0.0;
  5.  
  6.  
  7.  
  8.     for (angle = i; angle < 3.1416; angle += 0.1) {
  9.         prsin(angle);
  10.     }
  11.  
  12. }
  13.  
  14. prsin(d)
  15. double d;
  16. {
  17.     printf("%lf\n",asin(sin(asin(sin(asin(sin(d)))))));
  18. }
  19.  
  20.