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

Post Reply:
Name:
Email Address:

Please send email when my message is replied to.

Url (optional):
Subject:
Message: view original message?
Attachment (optional):
Please answer this:5+3 =



Original Message (ID '108936') By Bill Simpson:
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.