HI,

I tried to help but your code still produces other error messages. Perhaps you could clean that up a bit, then it will be easier to help.

Also, I am not quite sure what you want to achieve, but it appears that you want to animate the thing? If so, why don't you put time in as another parameter of the Manipulate command, and when the GUI comes up you click on the little "+" symbol next to the time slider and then click the "play" button?

Cheers,

Marco

Jones,

Is that an iterative equation, where you are working toward a solution or through steps? If it is simultaneous, what is the intended function of Do[]? Are you receiving an error message that says that you are running out of memory? Could you use variable substitution to reduce it to the most simple form (since the specific econometric application is irrelevant)?

Without knowing more, I think what you may be trying to do is generate outputs for a combination of input sets. If so, there may be a way to do that without forcing Do[] and Manipulate[] together.

The third thing that occurs is that you should attempt to put Do[] within Manipulate[] as a simple test in another file and post any problems encountered in that process to clarify the issue.

Greg

Update: Tried the 3rd thing. If it can work, it will require a more complicated approach than what is below. Output wasn't correct and it paused providing a result.

Manipulate[
 Do[Print[j^3]*sign, {j, 1, 3, 1}],
 {{sign, -1}, -1, 1}]

Dear Greg and Marco,

Here is the simplified code that I like to run using Manipulate with different paramater values of alpha, r, and g.

Clear[n];
n = 10;
Subscript[\[Alpha], 1] = 0.4;
Subscript[r, 1] = 1;
Subscript[g, 1\[InvisibleComma]0] = 1;

Do[{
   Subscript[k, 1\[InvisibleComma]t] = 
    Subscript[\[Alpha], 1]/(1 - Subscript[\[Alpha], 1]) Subscript[r, 
     t],
   Subscript[\[Eta], 1\[InvisibleComma]t] = 
    1/(-1 + Subscript[\[Alpha], 1]) E^(-Subscript[\[Alpha], 1]
        Subscript[g, 1\[InvisibleComma]t - 1]) (1/(
      Subscript[r, t] - 
       Subscript[r, t] Subscript[\[Alpha], 1]))^-Subscript[\[Alpha], 
      1],
   Subscript[y, 
    1\[InvisibleComma]t] = (1 - Subscript[\[Eta], 
       1\[InvisibleComma]t]) E^((1 - Subscript[\[Alpha], 
        1]) Subscript[g, 1\[InvisibleComma]t - 1]) Subscript[k, 
     1\[InvisibleComma]t]^Subscript[\[Alpha], 1],
   Subscript[g, 1\[InvisibleComma]t] = 
    Subscript[\[Alpha], 1] Subscript[g, 1\[InvisibleComma]t - 1],
   Subscript[r, t + 1] = 
    Subscript[\[Alpha], 
     1] (1 - Subscript[\[Eta], 1\[InvisibleComma]t])/(1 - 
       2 Subscript[\[Eta], 1\[InvisibleComma]t])}, {t, 1, n}
      ];
ListLinePlot[{Table[Subscript[y, 1\[InvisibleComma]t], {t, 1, n}], 
  Table[Subscript[\[Eta], 1\[InvisibleComma]t], {t, 1, n}]}, 
 AxesLabel -> {t, 
   "output, lobbying\n \!\(\*SubscriptBox[\(y\), \
\(1\[InvisibleComma]t\)]\), \!\(\*SubscriptBox[\(\[Eta]\), \(1\
\[InvisibleComma]t\)]\)"}, PlotRange -> All, 
 PlotLegends -> {"\!\(\*SubscriptBox[\(y\), \
\(1\[InvisibleComma]t\)]\)", 
   "\!\(\*SubscriptBox[\(\[Eta]\), \(1\[InvisibleComma]t\)]\)"}]

Attachments:

Dear Todd,

If you have a moment, you look at the attached notebook in which what I want to achieve is shown by using some given parameter values, DO loop and ListLinePlot. The model there works fine but I want to automate the model for different parameter values. That is all I want to achieve. Nested functions, which I do not know much about, are not (I think) proper because I just want to iteratively solve the model for different sets of parameter values.

Please take a look at the attached file which works just fine...I want to automate it with different values of given parameters...I thought Manipulate will work but I cannot properly use Manipulate.

Thanks for your time.

Jones

Attachments:

Dear Todd,

I will study NestList code as you advised. I hope I can solve my problem. Thank you for your kind support and guidance in that.

Thanks again. Jones

You are looking for something more like this

model[{A_, II_, Y_, CC_}] :=
 Module[{Anew, Knew, Rnew},
  Anew = (1 + z) A;
  Rnew = a Anew CC;
  Knew = (1 - a) (Sqrt[b] Rnew) + II;
  {Anew,
   (1 + m) II,
   (1 + n) Y,
   d (Y - Knew)} ]

NestList[model, {2, .5, 5, 2}, 10]

Instead of having all the Set going on, NestList it's just a consequence of how its setup that the thing keeps changing.

Before doing the Manipulate it needs to know which variables to manipulate, one way to do this is to insert the function into the definition like this

Manipulate[
 NestList[model, {2, .5, 5, 2}, 10], {{z, 0.3}, 0, 1}, {{a, 0.2}, 0, 
  1}, {{ b, 3}, 0, 5}, { {d, 0.6}, 0, 1}, {{e, 0.95}, 0, 
  1}, {{m, 0.2}, 0, 1}, {{n, 0.4}, 0, 1}, 
 Initialization :> (model[{A_, II_, Y_, CC_}] :=
    Module[{Anew, Knew, Rnew},
     Anew = (1 + z) A;
     Rnew = a Anew CC;
     Knew = (1 - a) (Sqrt[b] Rnew) + II;
     {Anew,
      (1 + m) II,
      (1 + n) Y,
      d (Y - Knew)}
     ])]