# Speeding up Solve or NSolve?

Posted 1 year ago
2240 Views
|
4 Replies
|
0 Total Likes
|
 I have a system of equations which I am trying to solve. ms=500;ma=980;v=92;m=5.5;M=364;m5=0;mp=139; Eq1 = ms^2 == -2 (M^2 - 6 (k1 + k2) (Sqrt[(c + M^2 + 2 m5^2)/(2 (k1 + k2))] + m b/(2 (c + M^2 + 2 m5^2)))^2 + c + 2 m5^2); Eq2 = ma^2 == -2 (M^2 - 2 (3 k1 + k2) (Sqrt[(c + M^2 + 2 m5^2)/(2 (k1 + k2))] + m b/(2 (c + M^2 + 2 m5^2)))^2 - c + 2 m5^2); Eq3 = mp^2 == ( 2 b m)/((b m)/(2 (c + M^2 + 2 m5^2)) + Sqrt[(c + M^2 + 2 m5^2)/( 2 (k1 + k2))]); Eq4 = v == (b m)/(2 (c + M^2 + 2 m5^2)) + Sqrt[(c + M^2 + 2 m5^2)/( 2 (k1 + k2))]; NSolve[{Eq1, Eq2, Eq3, Eq4}, {k1, k2, c, b}] But wolfram was trying to solve it more than 4 hours. Could you tell me what I'm doing wrong?
4 Replies
Sort By:
Posted 1 year ago
 If you have some idea of what the solution is, FindRoot could be a better approach. Also, it's not a good idea to use capital letters as variables, as Mathematica uses capital letters for constants.
Posted 1 year ago
 Please provide the croos-post link to StackExchange so there is less likelihood of replication of effort.