home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / ROOT.LI < prev    next >
Encoding:
Text File  |  1993-10-16  |  212 b   |  7 lines
  1. #    root(x,n) gives all of roots of x in n order. The first of root
  2. #    is the P.V.
  3. #    e.g. root(4,2) gives [2,-2]    # square root of 4
  4. #    See also: sqrt
  5.  
  6. root(x_, n_) := [list(x^(1/n)*e^(2*k*pi*i/n), k,0,n-1,1)]
  7.