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 CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Bill Simpson
11/05/12 1:44pm

Is this enough?

In[1]:= l=0.344;m=0.224;n=0.134;
NMinimize[
(a*Cos[x]+b*Cos[y]-l)^2+
(a*Cos[x+Pi/6]+b*Cos[z]-m)^2+
(a*Cos[x+Pi/3]+b*Cos[k]-n)^2+
(a*Sin[x]-b*Sin[y]-e)^2+
(a*Sin[x+Pi/6]-b*Sin[z]-e)^2+
(a*Sin[x+Pi/3]-b*Sin[k]-e)^2,
{x,y,z,k,a,b,e}]

Out[4]= {0.00006720740841142569,
{a -> 32.53629824420023,
b -> -32.206208222497935,
e -> 0.3018839671069794,
k -> -0.9965748113037984,
x -> -0.04904083618801273,
y -> 0.05892591995035758,
z -> -0.4693973303504669}}

That finishes in a fraction of a second.

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 CommentHelp | Reply To Comment | Reply To Topic