Message Boards Message Boards

GROUPS:

Numerically solving non-linear algebraic equations

Posted 3 months ago
807 Views
|
6 Replies
|
0 Total Likes
|

Hello, I can not solve the system. Can any one help me with that? Thanks.

6 Replies

What kind of solution would you expect from NSolve?

Posted 3 months ago

Hello Daniel Lichtblau ,Thank you for your reply.I expect all solutions of the systems.In my system, S, e, I1, I2 and R are unknowns except the others.I can not see the results since the running of the code does not finish by NSolve and Solve.Thanks.

What I mean, as noted in comments to the MSE x-post, is that it is impossible to return a numeric solution because several parameters are symbolic.

Posted 3 months ago

Please ignore NSolve. Solve does not give any solution,too.

Posted 3 months ago

I wonder if there are no solutions because of the following:

eq = Expand[{f1[S, e, I1, I2, R] == 0,
    f2[S, e, I1, I2, R] == 0,
    f3[S, e, I1, I2, R] == 0,
    f4[S, e, I1, I2, R] == 0,
    f5[S, e, I1, I2, R] == 0}];

Solve[eq[[{1, 2}]], {I1, I2}]
(* {} *)

If there are no solutions for I1 and I2 using just the first two equations, then adding additional equations can't help. Of course, the fact that in the first two equations are both functions of I1+I2 might negate that conclusion.

Posted 3 months ago

Hello, Jim Baldwin; Thank you for your reply. I guess the idea in your mind is the substitution method. By the way, the followings give result:

Solve[eq[[{1, 3}]], {I1, I2}]
Solve[eq[[{1, 4}]], {I1, I2}]
Solve[eq[[{1, 5}]], {I1, I2}]
Solve[eq[[{2, 3}]], {I1, I2}]
Solve[eq[[{2, 4}]], {I1, I2}]
Solve[eq[[{2, 5}]], {I1, I2}]
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract