Cleanup of poly an numeric modules

Removed some test code
This commit is contained in:
Robert Persson 2013-07-02 20:55:27 +02:00
commit d1a90c6ec6
2 changed files with 0 additions and 63 deletions

View file

@ -371,41 +371,3 @@ proc roots*(p:TPoly,tol=1.0e-9,zerotol=1.0e-6,mergetol=1.0e-12):seq[float]=
addRoot(p,res,x0,x1,tol,zerotol,mergetol)
return res
when isMainModule:
var ply=initPoly(1.0,-6.0,5.0,2.0)
var ply2 =initPoly(4.0,5.0,6.0)
echo ply
echo ply2
echo ply2-ply
var rts=ply.roots
if rts!=nil:
for i in rts:
echo formatFloat(i,ffDefault,0)
discard readLine(stdin)