Code to evaluate


​

Print["Error in Market Clearing Condition: ",Max[Abs[MC/.{dpdt0,dξadt0,dξbdt0}]]];(*FortheMCwecheckthatitissatisfied.Recallwehaddifferentiatedit*)Print["Error in HJBa: ",Max[Abs[HJBa/.{dpdt0,dξadt0,dξbdt0}]]];​​Print["Error in HJBb: ",Max[Abs[HJBb/.{dpdt0,dξadt0,dξbdt0}]]];
Remove
:There are no symbols matching "`*.
Out[]=
/Users/fansa/Documents/Dropbox/PHD Research/Dr. Koffi/mycode-2/2CM
Out[]=
0.05
Out[]=
0.05
a=1; A=50; B=0; σa=0.03; σb=0.03; σva=-0.17
va
; σvb=-0.17
vb
; μva=0.22(0.2-va); μvb=0.22(0.4-vb); ρ=0.05; γ=5; ψ=1.5; ϕ=0.2; τ=0.05; δ=0.05
dpdt/p= 0.056447 dξadt/ξa= 1.60356 dξbdt/ξb= 0.839245
Error in Market Clearing Condition: 1.11022×
-15
10
Error in HJBa: 1.6234
Error in HJBb: 0.782414
​
Out[]=
0.001

Code to evaluate


​

In[]:=
​​Save["Fansa_test",{interP2CM,interξa2CM,interξb2CM,solp,solξ,solζ,h,gridx,gridv,Nx,Nv,minx,maxx,minva,maxva,minvb,maxvb,S,L,LRva,LRvb,a,A,B,σa,σb,ρ,γ,ψ,ϕ,τ,δ,Veq,Ueq,interσax2CM,interσbx2CM,interpiab2CM,interpia2CM,interpib2CM,interpiba2CM,interσap2CM,interσbp2CM,interr2CM,interμx2CM,interg2CM,intersa2CM,SSx2CM}]​​