home *** CD-ROM | disk | FTP | other *** search
/ PC Open 11 / pcopen11.iso / Zipped / SM34A.ZIP / LIBRARY / COS.LI < prev    next >
Encoding:
Text File  |  1995-04-04  |  130 b   |  6 lines
  1. cos(0) := 1
  2. cos(pi/2) := 0
  3. cos(pi) := -1
  4. cos(2*pi) := 1
  5. cos(z_) := if( iscomplex(z) and numeric==on, (e^(z*i)+e^(-z*i))/2 )
  6.