| Author |
Comment/Response |
yehuda
|
 09/21/12 3:07pm
Use FindRoot in place of NSolve
and modify a little bit you writing style
rhs = {.0983367, .0929156, .0874946};
sol = Table[FindRoot[.5*Log10[c] + .0983367*c == r, {c, 1}], {r, rhs}]
This return the results
{{c -> 1.}, {c -> 0.982918}, {c -> 0.96604}}
and check them with
Abs[(.5*Log10[c] + .0983367*c /. sol) - rhs]
to get
{0., 1.38778*10^-17, 4.02456*10^-16}
Which prove to be accurate enough
yehuda
URL: , |
|
