Ausserdem wuerde ich gerne die Parameter einer mehrdimensionalen
Funktion als Liste schreiben. Die Eingabe
FindMinimum[Funktion,{Parameter[[1]],Startwert1},...
{Parameter[[n]],Startwertn},...]
erzeugt jewdoch die Fehlermeldung:
Tag Part in Parameter[[1]] is protected.
Gibt es hier einen Ausweg?
Gruss
Martin Hammer
Eine Moeglichkeit ist die Definition einer eigenen Funktion z.B. :
In[1]:=
$Version
Out[1]=
"Solaris 3.0 (August 21, 1997)"
In[2]:=
Parameter={a,b}
Out[2]=
{a,b}
In[3]:=
Startwerte={1,2}
Out[3]=
{1,2}
In[4]:=
ff=Parameter.Parameter
Out[4]=
\!\(a\^2 + b\^2\)
In[5]:=
FM[ff_,{z__}]:=FindMinimum[ff,z]
In[6]:=
FM[ff,{Parameter,Startwerte}//Transpose]
Out[6]=
\!\({1.41994962939782105`*^-28, {a \[Rule] 5.32907051820075139`*^-15,
b \[Rule] 1.06581410364015027`*^-14}}\)
Mit freundlichen Gruessen
Hans-Joachim Spitzer
P.S. auf die Beantwortung der ersten Frage bin ich auch gespannt. Wolfram sollte allgemein die implementierten
Algorithmen besser dokumentieren.
|