Forum / Betriebswirtschaftliche Optimierung / Betriebswirtschaftliche Optimierung

Betriebswirtschaftliche Optimierung

So mache jetzt hier einen Thread auf bitte alle die Infos haben und Tipps zu dieser Vo bitte hier posten.

Hat schon jemand angefangen dieses Bsp auszuarbeiten?

Mfg

Markus

Markus ±0

Hab ich richtig verstanden dass wir das so aufbauen sollen wie in Simple newton.R?

Irgendwie tut sich da aber nichts wenn man das in die Konsole reinschreibt?

Hat schon irgendwer versucht das zu lösen?

War jetzt jemand im Tutorium und hat dort mitgeschrieben oder weis ob das noch upgeloadet wird was dort gerechnet wird?

Mfg

Markus ±0

Wie kommt man auf die 0,1 für die Dterminante des letzten Minors? WIe berechnt man das?

Hab schon alles mögliche jetzt versucht bei R wegen des Codes glaub ich geb auf wenn es nicht so viel punkte sind und sonst von euch auch keiner was berichten kann.

War jetzt jemand im Tutorium und hat die dort gerechnetn bsp vielleicht?

Mfg

Incognito ±0

Andere Frage: Muss jeder das Protokoll auf Tuwel hochladen oder reicht es wenn nur einer pro Gruppe es hochladet?

Argishti ±0

hat wer die Lösung mit R geschafft? kann jemand vielleicht seine Lösungen hochladen?

lg

Markus ±0

Hab einiges probiert bin aber auf nichts sinnvolles gekommen. Da sonst sich anscheinend keiner damit beschäftigt hat oder es nicht weitergbt pfeiff ich jetzt drauf!

hast du einen ansatz? vl schaffen wir ja was zu zweit in 2 Stunden gg!

Mfg

Argishti ±0

funktion

open3d() x1<-seq(0,1500,1) x2<-seq(0,1500,1) f<-function(x,y){100x-25x-(1/100)x^2+100y-25*y-(1/100)*y^2} z<-outer(x1,x2,f) persp3d(x1,x2,z,col="lightgreen",xlab="x1",ylab="x2",zlab="f(x1,x2)")

1.Nebenbedingung

xnb1<-seq(0,1500,1) ynb1<-(1500-(1*xnb1)) znb1<-f(xnb1,ynb1) lines3d(xnb1,ynb1,znb1,col="darkblue",lwd=4)

2.Nebenbedingung

xnb2<-seq(0,1500,1) ynb2<-(1500-(2*xnb2)) znb2<-f(xnb2,ynb2) lines3d(xnb2,ynb2,znb2,col="darkred",lwd=4)

#Optimum points3d(1500,750,f(1500,750),size=6)


a <- c(0,-1,-2,-1,(-1/50),0,-2,0,(-1/50)) A <- matrix(a,nrow=3,ncol=3, byrow=FALSE) A [,1] [,2] [,3] [1,] 0 -1.00 -2.00 [2,] -1 -0.02 0.00 [3,] -2 0.00 -0.02


a <- c(0,-1,-2,-1,(-1/50),0,-2,0,(-1/50)) A <- matrix(a,nrow=3,ncol=3, byrow=FALSE) det(A) [1] 0.1

ich hab nur die Funktion und die Nebenbedingungen mit R gezeichnet (das is der erste Teil)! ==> aber das funktioniert nur teilweise! und weiters hab ich die Det mit dem R ausgerechnet!

ich habe keine ahnung wie ich das mit simpleNewton machen soll! (wir wollen ja nicht programmieren lernen Sondern BWO)

lg

Markus ±0

Ja das find ich auch seltsam mit dem R wir hatten doch schon programmieren gg.

Mir zeigt er bei deinem code recht viel fehler an ich versteh das prinzip aber weis auch ned wie wir das in das simple newton packen sollen.

Naja nachdems angeblich dafür nur paar punkte abzug gibt pfeiff ich glaub ich drauf ausser ich hab jetzt noch die eingebung aber ich glaub nicht.

Was machst du mit dem gibst du den ansatz ab?

Mfg

Argishti ±0

du musst am anfang RGL installieren bei R und dann kannst erst den code eingeben! ==> unter Menüpunkt "Pakete" -> "Installiere Pakete") library(rgl)

ja ich gibs einfach so ab schau ma was er dazu schreibt!

Markus ±0

Ok mal schaun ich installier grad rgl obwohl ich schon mal alle installiert habe --> Danke R gg

Ja wüsste nicht wie wir das in R packen sollen. Und vor allem wie wir aus dem dann gescheiter werden. Wir sollten ja mit Hesse und so den scheiss lösen. Wie hastn du das im pdf gemacht ganz normal die funktion optimiert damit hast du für c-f eh alles beantwortet oder?

Mfg

Argishti ±0

ja genau!

funktioniert das jetzt?

Markus ±0

Mein R hat grad irgend ein Problem es installiert des paket ned keine ahnung warum

Hast da du simple newton.R angschaut wie soll das funktioniern da am anfang das muss ja irgendwie gehn? und kann ich das optimum auch berechnen in R oder nur grafisch anzeigen?

Mfg

Argishti ±0

die Antworten auf die Tuwel Fragen!

Markus ±0

Danke!! Hat er schon irgendwas gesagt wegen dem Stoff fürn 1.Test? Weil die Aufgabe 2 ist a schon nachm ersten test abzugeben also teilweise whs nicht mehr stoff!

Mfg

Argishti ±0

hi an alle

wie viel punkte habt ihr auf der HÜ bekommen? bei uns hat er nur 3,5 Punkte gegeben! ich habe aber 1zu1 die gleichen Antworten wie heir im forum!

danke im Voraus

Norbert ±0

haben 7 Punkte bekommen und nix in R abgegeben

Sorry, die Kommentarfunktion ist geschlossen.