Return to Answer

deleted 7 characters in body

Source Link

edited Oct 31, 2012 at 22:12

ss = NSolve[Thread[e == 0], Variables@e, WorkingPrecision -> 50];
Select[Abs /@ Join @@ (e /. ss // Chop), # > 10^-9 &]
(*
 {}
*)

ss = NSolve[Thread[e == 0], Variables@e, WorkingPrecision -> 50];
Select[Abs /@ Join @@ (e /. ss // Chop), # > 10^-9 &]
(*
 {}
*)

ss = NSolve[Thread[e == 0], Variables@e, WorkingPrecision -> 50];
Select[Abs /@ Join @@ (e /. ss ), # > 10^-9 &]
(*
 {}
*)

Source Link

created Oct 31, 2012 at 22:04

ss = NSolve[Thread[e == 0], Variables@e, WorkingPrecision -> 50];
Select[Abs /@ Join @@ (e /. ss // Chop), # > 10^-9 &]
(*
 {}
*)