home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug172.arc / APL-Z.LBR / ACOS.ACO next >
Text File  |  1979-12-31  |  256b  |  12 lines
  1.       Gr^acos b
  2. ;10[ ~+1#b{/err
  3. ;20[ ~+0%b{/zero
  4. ;30[ r^atan++1*b-b{P0.5{=b
  5. ;40[ ~0
  6. ;50[ zero>r^O0.5
  7. ;60[ ~0
  8. ;70[ err>Kdomain errorK
  9. ;80[ ~
  10.       G
  11.