Re: NMinimize-Ungleichungen,Nebenbedingungen

[Hubert Gollek <gollek@XXXXXXX.de>]

Wie lautet Ihre Funktion funktion[a,b,c]?
Mit einer quadratischen Funktion funktioniert es doch
(zur Kontrolle habe ich den Extrempunkt vorgegeben und vergleiche
mit dem Resultat von 'FindMinimum'):

Needs["NumericalMath`NMinimize`"]

rr := Random[Real]/10;
vars = {a, b, c};
extrempunkt = {113, 83, 13}/100;
anfangswerteFuerFindMinimum =
  Thread[{a0, b0, c0} = (extrempunkt // N) + {rr, rr, rr}]
ff[a_, b_, c_] := (64 + (vars - extrempunkt).(vars - extrempunkt))^(1/2);
ff[a, b, c] // Expand
nm = NMinimize[{ff[a, b, c],
      0 <= a <= 1000 && 0 <= b <= 1000 && b <= a && 0 <= c <= 0.5}, {a, b,

      c}]
ff[a, b, c] /. (nm[[2]])

fm = FindMinimum[ff[a, b, c], {a, a0}, {b, b0}, {c, c0}]
ff[a, b, c] /. (fm[[2]])

Andreas Kabutke schrieb:

> Hallo Liste,
>
> ich möchte mit NMinimize eine Optimierung von drei Variablen
> durchführen. Dabei gebe ich für jede Variable eine Bereich an.
> Allerdings sind die Bereiche zweier Variablen identisch, wobei der Wert
> der Ersten Variablen immer kleiner wie der der Zweiten sein muß!
>
> 0<a<1000
> 0<b<1000
> b<a
> 0<c<0.5}
>
> NMinimize[{funktion[a,b,c], 0<a<1000  && 0<b<1000 && b<a &&
> 0<c<0.5},{a,b,c}]
>
> Mein Problem ist nun, daß ich die ersten drei Ungleichungen in keiner
> Mathematica verständlichen Weiße angeben kann. Es entstehen immer
> komplexe bzw. irgendwelche nicht berechenbaren Werte.
>
> Ich hoffe, irgendwer kann mir bei diesem Problem helfen.
>
> MfG
>
> Andreas Kabutke
>
> ______________________________________________
> Dipl.-Min. Andreas Kabutke
>
> Humboldt University Berlin
> Institute of Physical and Theoretical Chemistry
> Brook-Taylor-Str. 2, 12489 Berlin,
>
> Tel.: ++49-30 - 2093 5556
> Fax: ++49-30 - 2093 5559
> E-Mail:  a.kabutke@XXXXXXX.de

--
Hubert Gollek
Humboldt-University, Inst. of Mathematics,
10099 Berlin, Germany, Sitz: Rudower Chaussee 25
Tel.: (049)(030) 2093 1819