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