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.