Forum / Betriebswirtschaftliche Optimierung / 1. Hausübung
EDIT: siehe hier!
Alles außer d und e haben wir gleich, bei d und e haben wir jedoch keinen Ansatz Habt ihr da eine Hilfestellung für uns?
Unser Lösungsansatz für (d) und (e)
EDIT: siehe hier!
Ich hätte es auch soweit fertig im R programmiert nur versteh ich die Angabe bei a) nicht! Wenn es keine Ergierationierung bzw Einschränkung durch den Bestand gibt weiß ich nicht was das Ergebnis einschränken könnte! Wäre auch sehr hilfreichwenn mir jemand zeigen könnte wie man das dann im R löst! :-)
ich komm auf keines eurer ergebnisse :( habt ihr irgendeine händische durchrechnung oder ähnliches?
bei a) um einen faktor 1000 mehr GE b) AS=99.900 UM=76.655 c) AS=99.9 GE UM=127,76 GE
bei d) hab ich jetzt nicht weitergemacht weil ich mich nüsse auskenn... :-/
Wie funktioniert a? hab bei b,c und g das gleiche rausbekommen. mein d und e stimmen nicht.
R-Code Lösungsansätze
Profit-, Gradient- und Hesse-Matrix-Funktionen sollten kein Problem darstellen, also hier unsere Ansätze für a, b, c, d, e und g.
1 (a)
StartSol <- matrix(c(10))
extremaMenge_1 <- findCandidate(StartSol,gradient_1,hesse_1)
extremaMenge_2 <- findCandidate(StartSol,gradient_2,hesse_2)
extremaGewinn_1 <- gewinnFunktion_1(extremaMenge_1)
extremaGewinn_2 <- gewinnFunktion_2(extremaMenge_2)\n~~~
AS = 1224.745 EH, UM = 1125 EH
AS = 23484.69 GE, UM = 35937.5 GE
1 (b)
~~~\ngewinnTatsaechlich_1 <- function() {
return(gewinnFunktion_1(1000))
}
gewinnTatsaechlich_2 <- function() {
return(gewinnFunktion_2(600))
}\n~~~
AS = 20000 GE, UM = 19400 GE
1 (c)
~~~\nmehrkosten_1 <- function(){
return(gewinnFunktion_1(1001)-gewinnFunktion_1(1000))
}
mehrkosten_2 <- function(){
return(gewinnFunktion_2(601)-gewinnFunktion_2(600))
}\n~~~
AS = 29.93998 GE/EH, UM = 62.94 GE/EH
1 (d)
~~~\nwechselEinheitenMoeglich <- round(as.numeric(polyroot(c(-33,0.24,-0.00006))),2)
wechselEinheiten <- wechselEinheitenMoeglich[which(wechselEinheitenMoeglich < 1000)
preis_1 <- 90-0.00006*(1000-wechselEinheiten)*(1000-wechselEinheiten)
preis_2 <- 135-0.12*(600+wechselEinheiten)\n~~~
Einheiten: 142.58 EH, AS = 45.88986 GE/EH, UM = 45.8904 GE/EH
1 (e)
~~~\nploynom <- round(as.numeric(polyroot(c(147,-0.12,-0.00006))),2)
verbundMenge_1 <- ploynom[which(ploynom > 0)]
verbundMenge_2 <- 1600-verbundMenge_1
verbundGewinn_1 <- gewinnFunktion_1(verbundMenge_1)verbundGewinn_2 <- gewinnFunktion_2(verbundMenge_2)\n~~~
AS = 857.42 EH, UM = 742.58 EH
AS = 14560.83 GE, UM = 27162.8 GE
1 (g)
~~~\nmengeMoeglich_1 <- round(
as.numeric(polyroot(c(90-45.89,0.0,-0.00006))),2)
mengeMoeglich_2 <- round(
as.numeric(polyroot(c(135-45.89,-0.12))),2)
menge_1 <- mengeMoeglich_1[which(mengeMoeglich_1 > 0)]
menge_2 <- mengeMoeglich_2[which(mengeMoeglich_2 > 0)]
gewinn_1 <- gewinnFunktion_1(menge_1)
gewinn_2 <- gewinnFunktion_2(menge_2)\n~~~
AS = 857.42 EH, UM = 742.58 EH
AS = 14560.83 GE, UM = 27162.8 GE
Kommentare habe ich absichtlich gelöscht, da die Lösungsansätze ohne ihnen ohnehin nicht gewertet werden und kopieren des Codes somit sinnlos wird.
Sind nur unsere Ansätze, keine Gewähr auf Richtigkeit etc. Ich wäre sehr dankbar wenn ihr weiter mit uns vergleichen und ggf. auch euren Code posten würdet!
Lg. Alex
danke für deine ansätze alex!! ich geb mal gas...hab noch 1,5 std^^...mal schaun was ich zammbring
Florian @Maverick43
Wirtschaftsingenieur... · Technische Universit...
Kenn mich ab Punkt c nicht mehr aus, generell ist die Fragestellung etwas unpräzise.....hat schon jemand die Hausübung gemacht bzw. kann mir jemand weiterhelfen?