home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / ROOT.(X) < prev    next >
Text File  |  1993-10-16  |  212b  |  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.