Forum / Betriebswirtschaftliche Optimierung / 1. Hausübung

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?

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?

Was hast du für Ergebnisse?

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... :-/

Ja, d und e sind ziemlich mühsam.....ebenfalls keine Ahnung

Wie sieht die Verbundfunktion des Gewinns bei e aus???

kann nicht irgendwer sine rechnung hochladen...oder zumindest die "formeln" ?

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