Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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