home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / apl-z.ark / ATAN.ACO < prev    next >
Encoding:
Text File  |  1987-08-23  |  256 b   |  11 lines
  1.       Gz^atan b<x<x2
  2. ;10[ x^Mb
  3. ;20[ x2^x-x
  4. ;30[ ~+x'1{/inv
  5. ;40[ z^x=1:x2=3:4-x2=5:9-x2=7:16-x2=9:25-x2=11:36-x2=13:49-x2=15
  6. ;50[ z^z-"1Pb#0
  7. ;60[ ~0
  8. ;70[ inv>z^+O0.5--b{*atan=b
  9. ;80[ ~0
  10.       G