| Author |
Comment/Response |
Bill Simpson
|
 08/26/12 3:11pm
In Response To 'Re: Re: A problem of NSolve'
---------
Simpler cleaner code, but all my concerns remain.
deleteduplicatesolutions[allsols_] := Module[{uniqsols, sols},
uniqsols={}; sols=allsols;
While[sols≠{},
AppendTo[uniqsols, First[sols]];
sols=Select[Rest[sols], Norm[#-First[sols]]>10^-3 &]];
uniqsols];
x=0,y=0,z=0 will always be an exact solution.
URL: , |
|
