Re: AW: FindMinimum Version5.0

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,


schreiben Sie doch einfach


f[x_?NumericQ,y_?NumericQ]:=z/. g[x,y]

FindMinimum[f[x,y],{{x,x0,x1},{y,y0,y1}}]

oder

Off[ReplaceAll::reps]
FindMinimum[z/.g[x,y],{{x,x0,x1},{y,y0,y1}}]
On[ReplaceAll::reps]

Gruss
  Jens

"Schlosser Reinhard, Prof. Dr." wrote:
> 
> 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.