| Author |
Comment/Response |
May
|
 12/19/12 8:05pm
Hello,
I'm new to Mathematica and am trying to plot a time path for output in the Solow model with exogenous technology and population, given a list of K values over 1000 periods.
What I have so far is as follows (which was given to me):
L[n_, L0_] := L0 f[n]
A[n_, A0_] := A0 g[n]
Fd[K_, L_, a_, A_] := A K^a L^(1 - a)
Klist[n_, K0_, a_, s_, \[Gamma]_, L0_, A0_] :=
For[i = 0; K = K0, i < n + 1, i++,
K = (1 - \[Gamma]) K + s Fd[K, L[i, L0], a, A[i, A0]]; L1[i] = K]
f[n_] := 1
g[n_] := 1
Klist[1000, 5, 0.5, 0.05, 0.01, 5, 2]; List1 =
Table[L1[j], {j, 1, 1000}];
ListPlot[List1, Joined -> True, Frame -> True,
PlotLabel -> "Discrete Solow model over 1000 periods"]
And what I've tried to do to get a time path of output is:
Fdlist[n_, a_, A_, K_, L_] :=
For[i = 0, i < n + 1, i++, Fd = A K^a L^(1 - a)]
ListPlot[{Fdlist}, Joined -> True, Frame -> True,
PlotLabel -> "Test"]
But the graph that comes out is empty, which means that I haven't really produced a list of output values over the 1000 periods. Can someone please tell me how I should write a code that gives me a list of output values over 1000 periods, given Klist and that labour and technology is exogeneous (and constant)?
Thanks.
URL: , |
|
