ConstarinedMin Question
- To: mathgroup at smc.vnet.net
- Subject: [mg30904] ConstarinedMin Question
- From: Moranresearch at aol.com
- Date: Sun, 23 Sep 2001 02:16:52 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Why want this run? I don't undestand the error message. Thank you.
In[28]:=
c = {6.128, 6.129, 6.129,
6.130, 6.130, 6.130,
6.131, 6.130};
In[29]:=
d = {0.221, 0.452, 0.660, 0.890,
1.092, 1.320, 1.523,
1.748};
In[30]:=
f1[i_, j_] :=
Sum[Abs[Sqrt[(c[[1]] + i)^2 - j*d[[n]]^2] - c[[n]]], {n, 1, Length[c]}]
In[31]:=
ConstrainedMin[f1[i, j], {i < .1, j < 2}, {i, j}]