Making a LOOP (DO)
- To: mathgroup at smc.vnet.net
- Subject: [mg102256] Making a LOOP (DO)
- From: Youness Eaidgah <y.eaidgah at gmail.com>
- Date: Mon, 3 Aug 2009 05:45:28 -0400 (EDT)
Dear All,
Based on the following table, I want to calculate the =93Total Expected Profit
(TEP)=94. The retailer profit (REP) is a function of OR, D1, and p (which are
known and described at the table) as well as R and P which are unknown.
For calculating each cell of the table, I have the following formulas (the
values of highlighted variables come from table. The values of variables
highlighted in orange are unknown):
REP=(100*DE*(1-R)+SI*20-P*OR)
Where,
DE=If[D1*<=*OR,D1,OR];
SI=If[OR>=D1,OR-D1,0]
*12000*
*(OR)*
*14000*
*(OR)*
1st scenario
*D1*
8000
A=REP*p
D=REP*p
*p*
0.11
2nd scenario
*D1*
10000
B=REP*p
E=REP*p
*p*
0.11
3rd scenario
*D1*
12000
C=REP*p
F=REP*p
*p*
0.28
Total Expected Profit (TEP)
A+B+C
D+E+F
Therefore, to calculate the total expected profit (TEP), I need a loop that
sum the value at each column. To do so, I made the following loop:
Clear[REP[12000],REP[14000]]
Do[
DE=If[D1<=OR,D1,OR];
SI=If[OR>=D1,OR-D1,0];
REP[OR]=REP[OR]+((100*DE*(1-R)+SI*20-P*12000)*p),
{OR,12000,14000,2000},
{{D1,p},{8000,0.11},{10000,0.11},{12000,0.28}}];
{REP[12000],REP[14000]}
However, the loop does not work as expected. It might be because I
introduced {D1, p} as a couple. But, I need to do that. I would be really
grateful if you could help me out.
Thank you,
Youness