| 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. |
|
