DMUG-Archiv 1998

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

Re: FindMinimum

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.



Verweise:
FindMinimum
Martin Hammer, 02.07.1998

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

DMUG-Archiv, http://www.mathematica.ch/dmug-liste.html; Letzte Änderung: 08.09.2003 20:44