AW: FindMinimum Version5.0

["Schlosser Reinhard, Prof. Dr." <reinhard.schlosser@XXXXXXX.de>]

Hallo Herr Kuska,

der Tip: g[x_?NumericQ,y_?NumericQ]

hat geholfen. Jetzt erhalte ich in wenigen Sekunden auch mit Version 5.0 die
Minimalstelle.
Der einzige Unterschied zu Version 4.1 liegt darin, daß nach Aufruf von

FindMinimum[z/.g[x,y],{{x,x0,x1},{y,y0,y1}}]

Mathematica 5.0 mit

ReplaceAll::reps:
{g[x,y]} is neither a list of replacement rules nor a valid dispatch table,
and so cannot be used for replacing. Mehr ...

antwortet. Soll ich das ignorieren, da die ausgegebene Minimalstelle

{1.1,{x->2.2,y->3.3}}

richtig ist oder haben Sie dazu noch einen Tip?

Die Funktion f[x,y,z] habe ich nicht explitit angeschrieben,
da es sich um ein polynominales Gleichungssystem (7 Gleichungen)
mit 7 abhängigen Variablen und 2 freien Variablen x und y handelt.
Die Variable z ist eine der 7 abhängigen Variablen,
die ich als Funktion von x und y minimieren möchte.

Vielen Dank!

Reinhard Schlosser

> -----Ursprüngliche Nachricht-----
> Von:  Jens-Peer Kuska [SMTP:kuska@XXXXXXX.de]
> Gesendet am:  Donnerstag, 8. Januar 2004 11:08
> An:   Schlosser Reinhard, Prof. Dr.
> Cc:   Deutsche Mathematica News Group
> Betreff:      Re: FindMinimum Version5.0
> 
> Hallo,
> 
> also um das richtig beantworten zu k"onnen,
> brauche ich schon f[x,y,z], sonst kann ich nichts
> testen.
> 
> Es ist aber so, dass durch eine Fehler im 
> Mathematica 5.0 wird das Argument  von FindMinimum[]
> ausversehen ausgewertet wird. um das zu verhindern sollten 
> Sie die Definition von g[] in
> 
> g[x_?NumericQ,y_?NumericQ]:=NSolve[{f[x,y,z]==0},{z}]
> 
> "andern.
> 
> Was bei Ihne passiert, ist, das der Versuch g[] mit 
> symbolischen x und y auszuwerten NSolve[] dazu bringt
> eine vermutlich sehr grosses teilweise symbolisches
> Ergebnis zu erzeugen. Das sagt mir zumindest meine
> Kristallkugel, die ich bei unvolst"andigen Problem-
> beschreibungen immer benutze.
> 
> Gruss
>   Jens
> 
> "Schlosser Reinhard, Prof. Dr." wrote:
> > 
> > Liebe Liste,
> > 
> > ich benutze FindMinimum. Mit Mathematica Version 4.0 läuft alles
> bestens.
> > Nach ein paar Sekunden erhalte ich das richtige Ergebnis.
> > Version 5.0 bricht nach einigen Minuten mit der Fehlermeldung
> > 
> > No more memory available.
> > Mathematica kernel has shut down.
> > Try quitting other applications and then retry.
> > 
> > ab. Die folgenden Zeilen zeigen meine Eingabe.
> > Die Funktion f läßt sich leider explizit nicht nach z auflösen.
> > 
> > g[x_,y_]:=NSolve[{f[x,y,z]==0},{z}]
> > 
> > (*Version:"4.1 for Microsoft Windows"*)
> > FindMinimum[z/.g[x,y],{x,{x0,x1}},{y,{y0,y1}}]
> > 
> > (*Version:"5.0 for Microsoft Windows"*)
> > FindMinimum[z/.g[x,y],{{x,x0,x1},{y,y0,y1}}]
> > 
> > Ich bitte um dringend um Hilfe.