home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 1
/
BUGCD1996_0708.ISO
/
pc
/
aplic
/
mercury
/
poly.eka
< prev
next >
Wrap
Text File
|
1992-11-03
|
278b
|
13 lines
; Demo of polynomial root finder.
; Finds all real and complex roots of a polynomial.
; Find roots to x^3 - x^2 - x - 1 = 0.
f(x) := POLY(x,1,-1,-1,-1)
SOLVE f
; Find 10-th roots of unity, solutions to x^10 = 1.
g(x) := POLY(x,1,0,0,0,0,0,0,0,0,0,-1)
; SOLVE g