Mathematica < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 12:24 Di 21.10.2008 | | Autor: | meniska |
| Aufgabe | Gegeben ist ein Projekt mit zwei Szenarien:
Szenario "Erfolg": Wahrscheinlichkeit p1, Investition K = 100, Auszahlung R1
Szenario "Misserfolg": Wahrscheinlichkeit p2, Investition K = 100, Auszahlung R2
die erwartete Auszahlung eines Projektes sei ER (ER = p1 R1 + p2 R2):
a) Definiere das Projekt mit den obigen allgemeinen Angaben und nenne es irgendwie.
b) Numerisches Beispiel 1: ER = 120, R2 = 100, R1 = 140:
Wie groß muss die Erfolgswahrscheinlichkeit p1 sein?
c) Numerisches Beispiel 2: ER = 120, R2 = 100, Erfolgswahrscheinlichkeit p1 = 0.8
Wie groß ist die Auszahlung R1?
d) Berechne für das allgemeine Projekt und für die beiden numerischen Beispiele die Kenngrößen erwarteterCashflow, wert, return
ZUSATZAUFGABEN:
e) Zeichne für K = 100, R1 = 100 den Zusammenhang zwischen Erfolgswahrscheinlichkeit p1 und erwartetem Gewinn des Projektes (der Einfachkeit halber ist der Gewinn definiert als Auszahlung [mm] \[Dash] [/mm] Investition)
f) Zeichne für p1 = 0.4, p1 = 0.3, p1 = 0.2, wie der erwartete Gewinn in Periode 1 für den Unternehmer vom Zinssatz abhängt, wenn er einen Kredit mit Zinssatz r aufgenommen hat (und diesen zurückzahlen muss - allerdings mit beschränkter Haftung, er muss nie mehr als die Auszahlung des Projektes zurückzahlen)
|
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Haben eine Aufgabe bekommen, jedoch das Programm noch nicht erklärt gekriegt. Nun tüfteln wir bereits seit einer Woche, kommen aber nicht voran. Könnte uns jemand beim Ansatz helfen?
So weit sind wir bis jetzt:
a)
(projekt = Table[{s[k], p[k], inv[k], ret[k]}, {k, 1, 2}]) //
TableForm
[mm] \!\(\*
[/mm]
TagBox[GridBox[{
{
RowBox[{"s", "[", "1", "]"}],
RowBox[{"p", "[", "1", "]"}],
RowBox[{"inv", "[", "1", "]"}],
RowBox[{"ret", "[", "1", "]"}]},
{
RowBox[{"s", "[", "2", "]"}],
RowBox[{"p", "[", "2", "]"}],
RowBox[{"inv", "[", "2", "]"}],
RowBox[{"ret", "[", "2", "]"}]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {},
"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997'], {
Offset[0.7]},
Offset[0.27999999999999997']}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Function[BoxForm'e$,
[mm] TableForm[BoxForm'e$]]]\)
[/mm]
b)
ER = 120
R1 = 140
R2 = 100
Solve[{p1*R1 + p2*R2 == ER, p1 + p2 == 1}, {p1, p2}]
120
140
100
{{p1 -> 1/2, p2 -> 1/2}}
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 13:20 Sa 25.10.2008 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
