home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / RE.LI < prev    next >
Encoding:
Text File  |  1995-06-01  |  118 b   |  5 lines
  1. re(a_+b_) := re(a)+re(b)
  2. re(a_-b_) := re(a)-re(b)
  3. re(a_*b_) := re(a)*re(b)-im(a)*im(b)
  4. re(x_) := if(isreal(x), x)
  5.