Dear Miguel,

In fact, I knew what you explained in your message. I can write the dynamic model in the way you described, however, my intention is to write a short and compact Code in Traditional Format so that one can easily see the model equations without spending much effort to follow the long list of notations. My ultimate gola is to learn how to write the model Code using Traditional format. Is there any way to do so?

Thank you for your time and explanation.

With kind regards, Jones

Dear Bruce,

My specific problem is to write a dynamic macroeconomic model with variables with double subscripts. Attached a JPEG file is a section in my model. You can see the type of equations I am dealing with. I like to run this model as it looks but when I run I get many errors. I would appreciate if you advice me how to input the below type of equations into a Mathematica notebook.

Tugrul

 Subscript[p, 1\[InvisibleComma]t] = 1,
    Subscript[k, 1\[InvisibleComma]t] = 
     Subscript[\[Alpha], 1]/(1 - Subscript[\[Alpha], 1]) Subscript[w, t]/
      Subscript[r, t],
    Subscript[k, 2\[InvisibleComma]t] = 
     Subscript[\[Alpha], 2]/(1 - Subscript[\[Alpha], 2]) Subscript[w, t]/
      Subscript[r, t],
    Subscript[k, 
     g\[InvisibleComma]t] = \[Gamma]/(1 - \[Gamma]) Subscript[w, t]/
      Subscript[r, t],
    Subscript[\[Eta], 1\[InvisibleComma]t] = 
     1/((-1 + Subscript[\[Alpha], 1]) Subscript[p, 1\[InvisibleComma]t])
       E^(-Subscript[\[Alpha], 1] Subscript[g, 
       1\[InvisibleComma]t - 1]) ((
       Subscript[w, t] Subscript[\[Alpha], 1])/(
       Subscript[r, t] - 
        Subscript[r, t] Subscript[\[Alpha], 1]))^-Subscript[\[Alpha], 
       1] , Subscript[\[Eta], 
     2\[InvisibleComma]t] = ((Subscript[w, t] Subscript[\[Alpha], 2])/(
      Subscript[r, t] - 
       Subscript[r, t] Subscript[\[Alpha], 2]))^-Subscript[\[Alpha], 
      2]/((-1 + Subscript[\[Alpha], 2]) Subscript[p, 2\[InvisibleComma]t]),
    Subscript[y, 
     1\[InvisibleComma]t] = (1 - Subscript[\[Eta], 
        1\[InvisibleComma]t]) E^(
      Subscript[\[Alpha], 1] Subscript[g, 1\[InvisibleComma]t - 1])
       Subscript[k, 1\[InvisibleComma]t]^Subscript[\[Alpha], 1],
    Subscript[y, 
     2\[InvisibleComma]t] = (1 - Subscript[\[Eta], 
        2\[InvisibleComma]t]) E^((1 - Subscript[\[Alpha], 2]) Subscript[g,
        2\[InvisibleComma]t - 1]) Subscript[k, 2\[InvisibleComma]t]^
      Subscript[\[Alpha], 2],
    Subscript[r, t + 1] = 
     Subscript[\[Alpha], 1] Subscript[p, 
      1\[InvisibleComma]t] (1 - Subscript[\[Eta], 
        1\[InvisibleComma]t])/(1 - 
        2 Subscript[\[Eta], 1\[InvisibleComma]t]) Subscript[y, 
      1\[InvisibleComma]t]/Subscript[k, 1\[InvisibleComma]t],
    Subscript[w, 
     t + 1] = (1 - Subscript[\[Alpha], 1]) Subscript[p, 
      1\[InvisibleComma]t] (1 - Subscript[\[Eta], 
        1\[InvisibleComma]t])/(1 - 
        2 Subscript[\[Eta], 1\[InvisibleComma]t]) Subscript[y, 
      1\[InvisibleComma]t]

Attachments: