set plci 2
vec/cre par(4) r .8425 -.2917 .0220 -0.0710
* 30-Jan-01 modified y0 to fix par(4) to .025
*exec mat_cor_tmp2 6 pim y0 y0 y0 y0
exec mat_cor_tmp2 6 pim y0 f2 f1 f1
exec mat_cor_tmp2 6 pim f2 f2 f2 f2
exec mat_cor_tmp2 6 pim f2 f4 f3 f3
exec mat_cor_tmp2 6 pim f4 f4 f4 f4
exec mat_cor_tmp2 6 pim f4 f6 f5 f5
exec mat_cor_tmp2 6 pim f6 f6 f6 f6
exec mat_cor_tmp2 6 pim f6 f8 f7 f7
exec mat_cor_tmp2 6 pim f8 f8 f8 f8
exec mat_cor_tmp2 6 pim f8 f10 f9 f9
* 30-Jan-01 modified par(2) from 1 to .1
vec/cre par(4) r .8 .1 0.04 0.1
exec mat_cor_tmp2 6 pim f10 f10 f10 f10
exec mat_cor_tmp2 6 pim f10 f12 f11 f11
* Fixed slope on f12
exec mat_cor_tmp2 6 pim f12 f12 f12 f12
exec mat_cor_tmp2 6 pim f12 f12 f13 f13
vec/cre par(4) r .8425 -.2917 .0220 -0.0710
exec mat_cor_tmp2 6 pim y0 b2 b1 b1
exec mat_cor_tmp2 6 pim b2 b2 b2 b2
exec mat_cor_tmp2 6 pim b2 b4 b3 b3
exec mat_cor_tmp2 6 pim b4 b4 b4 b4
exec mat_cor_tmp2 6 pim b4 b6 b5 b5
exec mat_cor_tmp2 6 pim b6 b6 b6 b6
exec mat_cor_tmp2 6 pim b6 b8 b7 b7
exec mat_cor_tmp2 6 pim b8 b8 b8 b8
exec mat_cor_tmp2 6 pim b8 b10 b9 b9
exec mat_cor_tmp2 6 pim b10 b10 b10 b10
exec mat_cor_tmp2 6 pim b10 b12 b11 b11
exec mat_cor_tmp2 6 pim b12 b12 b12 b12
exec mat_cor_tmp2 6 pim b12 b12 b13 b13