VBA GRG Solver Lagrange Ansatz
04.12.2021 11:40:59
Joshua
hier einmal mein Problem und Lösungsvorschlag: https://www.herber.de/bbs/user/149577.zip
Ich versuche die Aufgabe mit Hilfe von Visual Basic und dem nichtlinearen GRG Solver zu lösen. Ohne das aktivieren meines erstellten Makros, sprich über die händische Ausführung des Solvers, komme ich auf die richtige Lösung. Also denke ich mal, das der Fehler in meinem Code liegen wird.
Die optimale Lösung wäre:
x1= 550
x2= 250
x3= 550
x4= 1.100
G= 111.125
Mein Makro erfüllt zwar bei Ausführung die Nebenbedingung aber das Ergebnis ist noch nicht optimal!
Hier mal mein VBA Code:
Sub SolverNotLinear()
SolverReset
SolverOptions Precision:=0.0001
SolverOK MaxMinVal:=1
SolverOK SetCell:=Range("D20")
SolverOK Engine:=1
SolverOK ByChange:=Range("D26:D29")
SolverAdd CellRef:=Range("D21"), relation:=2, FormulaText:=Range("H9")
SolverSolve userfinish:=True
SolverFinish KeepFinal:=1, ReportArray:=Array(1, 2)
End Sub
>Und gibt es eine Möglichkeit mir λ in dieser Arbeitsmappe anzuzeigen? Also das man quasi mit in den Code einbaut, dass λ aus dem Sensitivitätsbericht in diese Arbeitsmappe importiert wird?
Viele Grüße
Joshua