Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
...
y = a*(k(-1)ˆalpha)*(hˆ(1-alpha))
k = y-c+(1-delta)*k(-1)
ln(a) = rho*ln(a(-1))+ e

$ perl plonk.pl
y = a*(k(-1)^alpha)*(h^(1-alpha)) --> ySS*exp = aSS*exp*(kSS*exp(-1)^a
+lpha)*(hSS*exp^(1-alpha))
...
y = a*(k(-1)ˆalpha)*(hˆ(1-alpha)) --> ySS*exp = aSS*exp*(kSS*exp(-1)ˆa
+lpha)*(hSS*expˆ(1-alpha))
k = y-c+(1-delta)*k(-1) --> kSS*exp = ySS*exp-cSS*exp+(1-delta)*kSS*ex
+p(-1)
ln(a) = rho*ln(a(-1))+ e --> ln(aSS*exp) = rho*ln(aSS*exp(-1))+ e