[Date Index]
[Thread Index]
[Author Index]
How can I append output to a list then plot the list.
*To*: mathgroup at smc.vnet.net
*Subject*: [mg45800] How can I append output to a list then plot the list.
*From*: "T.S. Kochanski" <tskochanski at yahoo.com>
*Date*: Mon, 26 Jan 2004 01:53:06 -0500 (EST)
*Sender*: owner-wri-mathgroup at wolfram.com
Below I have an excerpt from a program that solves a profit maximizing problem and reports the profits of firm 1 then firm 2. I would like to add an additional element to this. I would like to assume firm 1 has developed technology that decreases costs by a certain amount every time period (iteration). As a result, although both firms made equal profits in the first time period, firm 1 will enjoy increased profits over time while firm 2's profits will remain constant. I have generated the appropriate output but I can't get my code to work so that I can plot both profit functions (firm 1 and firm 2) out together on the same graph. can anyone make any sense out of the code provided below?
CODE
=====
(list1=Table[{x,x1},{x,1,10,1}];
list2=Table[{x,x2},{x,1,10,1}];);
For[i=1,i<5,i++,Print[CournotProfit1];
Print[CournotProfit2];
Cost1=Cost1-.1Cost1;
Print["new cost firm1"];
Print[Cost1];
CournotProfit1=Simplify[q1cournot*(Pcournot-Cost1)];
CournotProfit2=Simplify[q2cournot*(Pcournot-Cost2)];
x1=CournotProfit1;
x2=CournotProfit2;
Append[list1,x1];
Append[list2,x2]]
MultipleListPlot[list1,list2]
OUTPUT (profits for firm 1 and firm 2 over time (iterations))
=======
7.11111
7.11111
7.64444
7.11111
8.12444
7.11111
8.55644
7.11111
etc....
|||||||||||||||||||||||||||||||||||||||||||||||||
Timothy S. Kochanski
M.S. Economics
Eugene, Oregon
(541) 543-9742
"Success is going from failure to failure without a loss of enthusiasm." Sir Winston Churchill
||||||||||||||||||||||||||||||||||||||||||||||||||||
---------------------------------
Do you Yahoo!?
Yahoo! SiteBuilder - Free web site building tool. Try it!
Prev by Date:
**RE: [Outer [Times, , ] ] Question**
Next by Date:
**Re: [Outer [Times, , ] ] Question**
Previous by thread:
**Re: Numeric methods. Orthogonal polynomials.**
Next by thread:
**Problems with Plot in Mathematica 4.0**
| |