home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / FACTOR.(X) < prev    next >
Text File  |  1993-10-06  |  182b  |  5 lines
  1. #    factor(poly, x) factors poly with respect to x
  2. #    e.g. factor(x^4-4, x) gives (-2+x)(2+x)
  3.  
  4. factor(y_, x_) := block(root:=right(solve(y=0,x)), prod(x-root[j], j,1,order(y,x),1))
  5.