| Author |
Comment/Response |
Student0002012
|
 12/20/12 9:29pm
Thank you very much sir..
Your hint helped me a lot!
Im very sry for my inexperience with mathematica.
I normally use excel and its quite hard to switch to mathematica!
i have two additional questions:
1.
I want that mathematica counts all solution that are minus(negative).
Count[Table[Data10, {100}],<0]
Doesn't work.
2.
Wich function can i use to simply this "loop":
Short explanation: The solution of Data1 is the input for Data2 and the solution of Data2 is the input for Data3 and so on
Data1 := Pension*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data2 := Data1*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data3 := Data2*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data4 := Data3*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data5 := Data4*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data6 := Data5*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data7 := Data6*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data8 := Data7*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data9 := Data8*(Risky*
Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Data10 :=
Data9*(Risky*Exp[mu + sigma*RandomReal[NormalDistribution[0, 1]]] +
Riskless*Exp[riskfree]) - draw;
Attachment: basic.nb, URL: , |
|
