Forum / Betriebswirtschaftliche Optimierung / 1. Hü

gunman +1

Danke Ago, und wie geht dann der Plot?

Ago ±0

Bevor ich jetzt anfange die Hesse Matrix zu erklären (habe leider momentan keine Zeit) hier noch ein paar Losungen für Hesse Matrix... Plot Code habe ich nicht, braucht man auch nicht!

Lösung C)

gradient <- function(x) {return(matrix(c(100-2/100x[1,1]+x[3,1],100100/110-2/110x[2,1]+x[3,1],1x[1,1]+1*x[2,1]-4981)))}

hesse <- function(x) {return(matrix(c(-2/100,0,1,0,-2/110,1,1,1,0),nrow=3))} StartSol <- matrix(c(0,0,0)) soll <- findCandidate(StartSol)

Lösung e,f)

gradient <- function(x)

{return(matrix(c(100-2/100x[1,1]+x[5,1],100-2/100x[2,1]+x[5,1],100100/105-2/105x[3,1]+x[5,1],100100/110-2/110x[4,1]+x[5,1],x[1,1]+x[2,1]+x[3,1]+x[4,1]-8380)))}

hesse <- function(x) {return(matrix(c(-2/100,0,0,0,1,0,-2/100,0,0,1,0,0,-2/105,0,1,0,0,0,-2/110,1,1,1,1,1,0),nrow=5))} StartSol <- matrix(c(0,0,0,0,0)) soll <- findCandidate(StartSol)

Michele ±0

Brauchst nicht, danke trotzdem, haben die geänderte Hessematrix aus Wikipedia angenommen, war allerdings nicht die Richtige. Wenn man es so annimmt wie es in den Folien steht, dann passts.

Ago ±0

"Michele" - Alles klar, freut mich dass ich etwas helfen könnte - Falls ich noch irgendwie helfen kann, fragt schnell, in 15 min bin ich nicht mehr erreichbar....

Lukas ±0

f) Woher weiß ich in welche Richtung R ausgetauscht wird?!

Anamarija ±0

Hallo,

Könnte vielleicht jemand e.) posten bzw. ist das gleich wie g.)?

Danke!

Michele ±0

wie du schon beim R-code vom Ago siehst, ist e) gleich wie f) zu lösen, allerdings fallen keine Kosten/Gewinn beim Kauf/Verkauf von Rohstoffen an!

Sorry, die Kommentarfunktion ist geschlossen.