# 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. Attachments:
6 Replies
Sort By:
Posted 3 months ago
 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.
Posted 3 months ago
 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.
 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.
 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}]