
MODEL > r3ur0

ENDOG >   

          pdot     _NOTD
          rtb      _DATA
          rho40    _NOTD
          ygap     _DATA
          contr    _NOTD
          vbar     _NOTD
          indexx   _DATA
          one      _DTRM
          urtb     _NOTD
          uygap    _NOTD
          updot    _NOTD

EQUATION > pdot
EQTYPE >   IMPOSED
EQ >       pdot = 4.0*(indexx - LAG(indexx,1))

EQUATION > rtb
EQTYPE >   IMPOSED
EQ >       rtb = 
                 1.1197    * LAG(rtb,1)
               -  .5747    * LAG(rtb,2)
               +  .45503   * LAG(rtb,3)
               +  .055947  * LAG(pdot,1)
               +  .10346   * LAG(pdot,2)
               -  .12556   * LAG(pdot,3)
               +  .11287   *     ygap
               -  .0013325 *     one
               +                 urtb


EQUATION > rho40
EQTYPE >   IMPOSED
EQ >       rtb - LEAD(pdot,1) = rho40 - 40.0*(LEAD(rho40,1) - rho40)

EQUATION > ygap
EQTYPE >   IMPOSED
EQ >       ygap = 
                 1.2536   * LAG(ygap,1)
                - .41548  * LAG(ygap,2)
                - .79803  * LAG(rho40,1) 
                + .016993 *     one
                +               uygap

EQUATION > contr
EQTYPE >   IMPOSED
EQ >       contr - indexx = 
          (.25 + 1.5*slope) * (     vbar    + cy *      ygap   )
        + (.25 +  .5*slope) * (LEAD(vbar,1) + cy * LEAD(ygap,1))
        + (.25 -  .5*slope) * (LEAD(vbar,2) + cy * LEAD(ygap,2))
        + (.25 - 1.5*slope) * (LEAD(vbar,3) + cy * LEAD(ygap,3))
        + updot

EQUATION > vbar
EQTYPE >   IMPOSED
EQ >       vbar =   
      (.25 + 1.5*slope) * (    contr    -     indexx   )
    + (.25 +  .5*slope) * (LAG(contr,1) - LAG(indexx,1))
    + (.25 -  .5*slope) * (LAG(contr,2) - LAG(indexx,2)) 
    + (.25 - 1.5*slope) * (LAG(contr,3) - LAG(indexx,3)) 

EQUATION > indexx
EQTYPE >   IMPOSED
EQ >       indexx =  (.25 + 1.5*slope) *     contr 
                  + (.25 +  .5*slope) * LAG(contr,1) 
                  + (.25 -  .5*slope) * LAG(contr,2) 
                  + (.25 - 1.5*slope) * LAG(contr,3) 

EQUATION > one
EQTYPE >   IMPOSED
EQ >       one = LAG(one,1)

EQUATION > urtb
EQTYPE >   STOCH
EQ >       urtb = 0*one

EQUATION > uygap
EQTYPE >   STOCH
EQ >       uygap = 0*one

EQUATION > updot
EQTYPE >   STOCH
EQ >       updot = 0*one

END
