' Prices and contanst price components of output WFCREATE U 1 600 SERIES K=1000 SERIES M=200 SERIES L=M SERIES AZ=K-L SERIES VH=AZ+M SERIES I = 95 SERIES PARZ = 0.1 SERIES DAZ = PARZ*I series vf = k-az-l series parb = 2 SERIES RM=0.01 SERIES RL = 0.02 SERIES Y = 1000 SERIES CONS=Y-I SERIES WB=0.9*Y SERIES FT=Y-WB SERIES PARD = 0.3 SERIES FD = PARD*(FT-RL*L) SERIES FU = FT-FD-RL*L SERIES FB=RL*L-RM*M SERIES YF=WB+FD+RM*M+FB SERIES SH=YF-CONS SERIES PARC1 = 0.9 SERIES PARC2 = 0.05 SERIES PARW = 0.9 SERIES PARK = 0.0475 SERIES G=0.02 Series DIVE = FD SERIES PARA = 0.4 SERIES PAZ = 1 SERIES PAZE = PAZ SERIES RAZ = (DIVE+(PAZE-PAZ)*AZ)/AZ SERIES PARP0 = 0.8 SERIES PARP1 = -0.5 SERIES PARP2 = 1 SERIES PARP3 = -0.5 SERIES SHOCKPAZ=0 SERIES VHE = VH series gvh=0.02 series u=k/y Series parg0 = 0.045 Series parg1 = -0.005 Series parg2 = -0.25 Series parg3 = -0.025 Series prod=1 Series YK = Y Series N = YK/prod Series wage = 0.9 Series parmu = 1/0.9-1 Series p = 1 series consk=cons series ik=i series kk=k Series gprod = 0.019 Series gwage = 0.019 Series tdis= 0.05 Series LF = 1.3*N/0.95 Series gpop = 0.00019 Series dis=lf-n series infl=0 series infle=0 series pargw0 = 0.001 MODEL PAVIA PAVIA.APPEND Yk=CONSk+Ik pavia.append Y = yk*p pavia.append CONS = CONSK*p pavia.append I = IK*p PAVIA.APPEND YF=WB+FD+RM*M(-1)+FB PAVIA.APPEND CONSk = PARC1*YF/p + PARC2*VH(-1)/p PAVIA.APPEND WB = wage*N PAVIA.APPEND FT = Y-WB PAVIA.APPEND FD = PARD*(FT-RL*L(-1)) PAVIA.APPEND FU = FT - FD - RL*L(-1) PAVIA.APPEND FB = RL*L(-1) - RM*M(-1) PAVIA.APPEND SH = YF - CONS PAVIA.APPEND Kk = Kk(-1)*(1-PARK) + Ik pavia.append k=kk*p PAVIA.APPEND DAZ = PARZ*I/PAZ PAVIA.APPEND AZ = AZ(-1) + DAZ PAVIA.APPEND L = L(-1) + I - FU - DAZ*paz PAVIA.APPEND VH = VH(-1) + SH + (PAZ-PAZ(-1))*AZ(-1) PAVIA.APPEND M = M(-1) + SH - PAZ*DAZ PAVIA.APPEND Ik=Ik(-1)*(1+G) PAVIA.APPEND vf = k-PAZ*az-l pavia.append rl = rm*parb PAVIA.APPEND DIVE = FD(-1)+PARA*(FD(-1)-DIVE(-1)) PAVIA.APPEND PAZE = PAZ(-1)+PARA*(PAZ(-1)-PAZE(-1))+SHOCKPAZ PAVIA.APPEND RAZ = (DIVE+(PAZE-PAZ)*AZ(-1))/(PAZ(-1)*AZ(-1)) pavia.append PAZ = (((PARP0 + PARP1 * RM + PARP3 * YF / VHe) * VHe) + PARP2 * ((DIVE + PAZE * AZ(-1)) / (PAZ (-1) * AZ(-1))) * VHe - PARZ * I) / (AZ(-1) + PARP2 * VHe / PAZ(-1)) 'PAVIA.APPEND PAZ = (PARP0+PARP1*RM+PARP2*RAZ+PARP3*YF/VHe)*VHe/AZ PAVIA.APPEND VHE = VH(-1)*(1+gvh(-1)) pavia.append gvh=vh/vh(-1)-1 Pavia.append u=K/Y Pavia.append g = parg0 + parg1*u(-1) + parg2*rl + parg3*l(-1)/k(-1) Pavia.append N = YK/prod pavia.append P = wage*(1+parmu)/prod Pavia.append prod = prod(-1)*(1 + gprod) Pavia.append wage = wage(-1)*(1 + gwage) Pavia.append lf = lf(-1)*(1 + gpop) Pavia.append tdis = (lf - n)/lf pavia.append infl = p/p(-1)-1 pavia.append infle = infl(-1)+para*(infl(-1)-infle(-1)) pavia.append gwage = pargw0-0.01*tdis+0.75*infle+gprod SMPL 2 @last PAVIA.SCENARIO "Baseline" PAVIA.SOLVE pavia.scenario "Scenario 1" 'copy gprod gprod_1 copy rm rm_1 pavia.override rm smpl 100 @last 'gprod_1 = gprod_1 - 0.005 rm_1 = rm_1 + 0.01 smpl 2 @last pavia.solve