/* MSEPLOT       7/21/95 mkh   */
/* Run immediately after running MSEDIF3, which calculates the plot points */

library pgraph;
graphset;
a={0,409}; b={0.0,1.5};
scale(a,b);
_pdate="";
_pcross=1;
_pframe={0,0};
_ptitlht=.25;
tt=seqa(1,1,T-12);      @ Note: T is defined when MSEDIF3 is run. @

/*
Each of the following 9 graphs has 6 windows.
In each case, the first window has only identifying text information.
The letters A, B, . . . , L correspond to the use of those letters
in the instructions I received from Charles Engel on 3/28/95.
*/


window(2,3,1);                         @ Graph 1 @
setwind(1);
title("CPI Graph 1:  B/A\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,mc[.,2]./mc[.,1]);
nextwind;
title("France");
xy(tt,mf[.,2]./mf[.,1]);
nextwind;
title("Germany");
xy(tt,mg[.,2]./mg[.,1]);
nextwind;
title("Italy");
xy(tt,mi[.,2]./mi[.,1]);
nextwind;
title("Japan");
xy(tt,mj[.,2]./mj[.,1]);
endwind;

window(2,3,1);                         @ Graph 2 @
setwind(1);
title("CPI Graph 2:  E/D\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,mc[.,5]./mc[.,4]);
nextwind;
title("France");
xy(tt,mf[.,5]./mf[.,4]);
nextwind;
title("Germany");
xy(tt,mg[.,5]./mg[.,4]);
nextwind;
title("Italy");
xy(tt,mi[.,5]./mi[.,4]);
nextwind;
title("Japan");
xy(tt,mj[.,5]./mj[.,4]);
endwind;

window(2,3,1);                         @ Graph 3 @
setwind(1);
title("CPI Graph 3:  H/G\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,mc[.,8]./mc[.,7]);
nextwind;
title("France");
xy(tt,mf[.,8]./mf[.,7]);
nextwind;
title("Germany");
xy(tt,mg[.,8]./mg[.,7]);
nextwind;
title("Italy");
xy(tt,mi[.,8]./mi[.,7]);
nextwind;
title("Japan");
xy(tt,mj[.,8]./mj[.,7]);
endwind;

window(2,3,1);                         @ Graph 4 @
setwind(1);
title("CPI Graph 4:  D/(D+G)\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,mc[.,4]./(mc[.,4]+mc[.,7]));
nextwind;
title("France");
xy(tt,mf[.,4]./(mf[.,4]+mf[.,7]));
nextwind;
title("Germany");
xy(tt,mg[.,4]./(mg[.,4]+mg[.,7]));
nextwind;
title("Italy");
xy(tt,mi[.,4]./(mi[.,4]+mi[.,7]));
nextwind;
title("Japan");
xy(tt,mj[.,4]./(mj[.,4]+mj[.,7]));
endwind;

window(2,3,1);                         @ Graph 5 @
setwind(1);
title("CPI Graph 5:  (D+J)/A\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,(mc[.,4]+mc[.,10])./mc[.,1]);
nextwind;
title("France");
xy(tt,(mf[.,4]+mf[.,10])./mf[.,1]);
nextwind;
title("Germany");
xy(tt,(mg[.,4]+mg[.,10])./mg[.,1]);
nextwind;
title("Italy");
xy(tt,(mi[.,4]+mi[.,10])./mi[.,1]);
nextwind;
title("Japan");
xy(tt,(mj[.,4]+mj[.,10])./mj[.,1]);
endwind;

window(2,3,1);                         @ Graph 6 @
setwind(1);
title("CPI Graph 6:  E/(E+H)\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,mc[.,5]./(mc[.,5]+mc[.,8]));
nextwind;
title("France");
xy(tt,mf[.,5]./(mf[.,5]+mf[.,8]));
nextwind;
title("Germany");
xy(tt,mg[.,5]./(mg[.,5]+mg[.,8]));
nextwind;
title("Italy");
xy(tt,mi[.,5]./(mi[.,5]+mi[.,8]));
nextwind;
title("Japan");
xy(tt,mj[.,5]./(mj[.,5]+mj[.,8]));
endwind;

window(2,3,1);                         @ Graph 7 @
setwind(1);
title("CPI Graph 7:  (E+K)/B\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,(mc[.,5]+mc[.,11])./mc[.,2]);
nextwind;
title("France");
xy(tt,(mf[.,5]+mf[.,11])./mf[.,2]);
nextwind;
title("Germany");
xy(tt,(mg[.,5]+mg[.,11])./mg[.,2]);
nextwind;
title("Italy");
xy(tt,(mi[.,5]+mi[.,11])./mi[.,2]);
nextwind;
title("Japan");
xy(tt,(mj[.,5]+mj[.,11])./mj[.,2]);
endwind;

window(2,3,1);                         @ Graph 8 @
setwind(1);
title("CPI Graph 8:  F/(F+I)\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,mc[.,6]./(mc[.,6]+mc[.,9]));
nextwind;
title("France");
xy(tt,mf[.,6]./(mf[.,6]+mf[.,9]));
nextwind;
title("Germany");
xy(tt,mg[.,6]./(mg[.,6]+mg[.,9]));
nextwind;
title("Italy");
xy(tt,mi[.,6]./(mi[.,6]+mi[.,9]));
nextwind;
title("Japan");
xy(tt,mj[.,6]./(mj[.,6]+mj[.,9]));
endwind;

a={0,400}; b={0.0,6.0};               @ Special Y-Scale for Graph 9 @
scale(a,b);

window(2,3,1);                         @ Graph 9 @
setwind(1);
title("CPI Graph 9:  (F+L)/C\LEntire Sample (1/62-3/95) T=399\L7/21/95");
_paxes=0; draw; _paxes=1;              @ print titles only @
nextwind;
title("Canada");
xy(tt,(mc[.,6]+mc[.,12])./mc[.,3]);
nextwind;
title("France");
xy(tt,(mf[.,6]+mf[.,12])./mf[.,3]);
nextwind;
title("Germany");
xy(tt,(mg[.,6]+mg[.,12])./mg[.,3]);
nextwind;
title("Italy");
xy(tt,(mi[.,6]+mi[.,12])./mi[.,3]);
nextwind;
title("Japan");
xy(tt,(mj[.,6]+mj[.,12])./mj[.,3]);
endwind;