Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'How to solve this set of equation?' topicStudent Support Forum > General > "How to solve this set of equation?"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
jf
11/05/12 1:40pm

Solve is designed for polynomial equations. FindRoot can give numerical results as long as all parameters have numerical values.

"e" was not given a constant value, or specified as a free parameter to solve for. Give it a constant value. (There are not enough equations to solve for seven variables.)

In[6]:= With[{l = 0.344, m = 0.224, n = 0.134, e = 0.1},
FindRoot[{a*Cos[x] + b*Cos[y] == l, a*Cos[x + Pi/6] + b*Cos[z] == m,
a*Cos[x + Pi/3] + b*Cos[k] == n, a*Sin[x] - e == b*Sin[y],
a*Sin[x + Pi/6] - e == b*Sin[z], a*Sin[x + Pi/3] - e == b*Sin[k]},
{{x, 1}, {y, 1}, {z, 0.7}, {k, 0}, {a, 0.5}, {b, 0.5}}] ]

Out[6]= {x -> 1.16296, y -> 0.378683, z -> 0.444204, k -> 0.281331, a -> 0.220185,
b -> 0.27624}



URL: ,

Subject (listing for 'How to solve this set of equation?')
Author Date Posted
How to solve this set of equation? Georgy 11/05/12 11:25am
Re: How to solve this set of equation? jf 11/05/12 1:40pm
Re: How to solve this set of equation? Bill Simpson 11/05/12 1:44pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic