OPTIONS MEMORY=64;

READ (FILE='C:\DATA\SIMDATA.XLS')
Year Week;

CONST VEZ,20000;
SMPL 1 VEZ;

?PREPARA LAS SERIES DE SALIDA

SET T1(VEZ)=0;
SET T2(VEZ)=0;
SET T3(VEZ)=0;
SET T4(VEZ)=0;
SET T5(VEZ)=0;
SET T6(VEZ)=0;
SET T7(VEZ)=0;
SET T8(VEZ)=0;
SET T9(VEZ)=0;
SET T10(VEZ)=0;
SET T11(VEZ)=0;
SET T12(VEZ)=0;
SET T13(VEZ)=0;
SET T14(VEZ)=0;
SET T15(VEZ)=0;
SET T16(VEZ)=0;
SET T17(VEZ)=0;
SET T18(VEZ)=0;
SET T19(VEZ)=0;
SET T20(VEZ)=0;
SET T21(VEZ)=0;
SET T22(VEZ)=0;
SET T23(VEZ)=0;
SET T24(VEZ)=0;
SET T25(VEZ)=0;
SET T26(VEZ)=0;
SET T27(VEZ)=0;
SET T28(VEZ)=0;
SET T29(VEZ)=0;
SET T30(VEZ)=0;
SET T31(VEZ)=0;
SET T32(VEZ)=0;
SET T33(VEZ)=0;
SET T34(VEZ)=0;
SET T35(VEZ)=0;
SET T36(VEZ)=0;
SET T37(VEZ)=0;
SET T38(VEZ)=0;
SET T39(VEZ)=0;
SET T40(VEZ)=0;
SET T41(VEZ)=0;
SET T42(VEZ)=0;
SET T43(VEZ)=0;
SET T44(VEZ)=0;
SET T45(VEZ)=0;
SET T46(VEZ)=0;
SET T47(VEZ)=0;
SET T48(VEZ)=0;
SET T49(VEZ)=0;
SET T50(VEZ)=0;
SET T51(VEZ)=0;
SET T52(VEZ)=0;

SET F1(VEZ)=0;
SET F2(VEZ)=0;
SET F3(VEZ)=0;
SET F4(VEZ)=0;
SET F5(VEZ)=0;
SET F6(VEZ)=0;
SET F7(VEZ)=0;
SET F8(VEZ)=0;
SET F9(VEZ)=0;
SET F10(VEZ)=0;
SET F11(VEZ)=0;
SET F12(VEZ)=0;
SET F13(VEZ)=0;
SET F14(VEZ)=0;
SET F15(VEZ)=0;
SET F16(VEZ)=0;
SET F17(VEZ)=0;
SET F18(VEZ)=0;
SET F19(VEZ)=0;
SET F20(VEZ)=0;
SET F21(VEZ)=0;
SET F22(VEZ)=0;
SET F23(VEZ)=0;
SET F24(VEZ)=0;
SET F25(VEZ)=0;

SET F26(VEZ)=0;

DO I=1,VEZ,1;

?MUESTRA EN PANTALLA EL NUMERO DE EJECUCION

PRINT I;

SMPL 1,728;
DUMMY(EXCLUDE) Week SDLIST;
SMPL 1,52; y=0;
SMPL 1,728;
RANDOM (MEAN=0,STDEV=1) E;
SMPL 53,728; y=y(-52)+E;

SMPL 105,728;
GENR
Y1=Y+Y(-1)+Y(-2)+Y(-3)+Y(-4)+Y(-5)+Y(-6)+Y(-7)+Y(-8)+Y(-9)
+Y(-10)+Y(-11)+Y(-12)+Y(-13)+Y(-14)+Y(-15)+Y(-16)+Y(-17)+Y(-18)+Y(-19)
+Y(-20)+Y(-21)+Y(-22)+Y(-23)+Y(-24)+Y(-25)+Y(-26)+Y(-27)+Y(-28)+Y(-29)
+Y(-30)+Y(-31)+Y(-32)+Y(-33)+Y(-34)+Y(-35)+Y(-36)+Y(-37)+Y(-38)+Y(-39)
+Y(-40)+Y(-41)+Y(-42)+Y(-43)+Y(-44)+Y(-45)+Y(-46)+Y(-47)+Y(-48)+Y(-49)
+Y(-50)+Y(-51);
GENR
Y2=-Y+Y(-1)-Y(-2)+Y(-3)-Y(-4)+Y(-5)-Y(-6)+Y(-7)-Y(-8)+Y(-9)
-Y(-10)+Y(-11)-Y(-12)+Y(-13)-Y(-14)+Y(-15)-Y(-16)+Y(-17)-Y(-18)+Y(-19)
-Y(-20)+Y(-21)-Y(-22)+Y(-23)-Y(-24)+Y(-25)-Y(-26)+Y(-27)-Y(-28)+Y(-29)
-Y(-30)+Y(-31)-Y(-32)+Y(-33)-Y(-34)+Y(-35)-Y(-36)+Y(-37)-Y(-38)+Y(-39)
-Y(-40)+Y(-41)-Y(-42)+Y(-43)-Y(-44)+Y(-45)-Y(-46)+Y(-47)-Y(-48)+Y(-49)
-Y(-50)+Y(-51);
GENR
Y3=-Y-1.98542*Y(-1)-2.94188*Y(-2)-3.85545*Y(-3)-4.7128*Y(-4)
-5.50142*Y(-5)-6.20982*Y(-6)-6.82766*Y(-7)-7.34595*Y(-8)-7.75711*Y(-9)
-8.05516*Y(-10)-8.23574*Y(-11)-8.29623*Y(-12)-8.23574*Y(-13)
-8.05516*Y(-14)-7.75711*Y(-15)-7.34594*Y(-16)-6.82766*Y(-17)
-6.20981*Y(-18)-5.50142*Y(-19)-4.71279*Y(-20)-3.85545*Y(-21)
-2.94188*Y(-22)-1.98542*Y(-23)-Y(-24)+Y(-26)+1.98542*Y(-27)
+2.94188*Y(-28)+3.85545*Y(-29)+4.71279*Y(-30)+5.50142*Y(-31)
+6.20982*Y(-32)+6.82766*Y(-33)+7.34595*Y(-34)+7.75711*Y(-35)
+8.05516*Y(-36)+8.23574*Y(-37)+8.29623*Y(-38)+8.23574*Y(-39)
+8.05516*Y(-40)+7.75711*Y(-41)+7.34595*Y(-42)+6.82766*Y(-43)
+6.20982*Y(-44)+5.50142*Y(-45)+4.7128*Y(-46)+3.85545*Y(-47)
+2.94188*Y(-48)+1.98542*Y(-49)+Y(-50);
GENR
Y4=-Y-1.94188*Y(-1)-2.77091*Y(-2)-3.43891*Y(-3)-3.90704*Y(-4)
-4.14811*Y(-5)-4.14812*Y(-6)-3.90704*Y(-7)-3.43891*Y(-8)-2.77091*Y(-9)
-1.94188*Y(-10)-Y(-11)+Y(-13)+1.94188*Y(-14)+2.77091*Y(-15)
+3.4389*Y(-16)+3.90704*Y(-17)+4.14811*Y(-18)+4.14811*Y(-19)
+3.90704*Y(-20)+3.4389*Y(-21)+2.77091*Y(-22)+1.94188*Y(-23)
+Y(-24)-Y(-26)-1.94188*Y(-27)-2.77091*Y(-28)-3.4389*Y(-29)
-3.90704*Y(-30)-4.14811*Y(-31)-4.14811*Y(-32)-3.90704*Y(-33)
-3.4389*Y(-34)-2.77091*Y(-35)-1.94188*Y(-36)-Y(-37)+Y(-39)
+1.94188*Y(-40)+2.77091*Y(-41)+3.43891*Y(-42)+3.90704*Y(-43)
+4.14812*Y(-44)+4.14811*Y(-45)+3.90704*Y(-46)+3.43891*Y(-47)
+2.77091*Y(-48)+1.94188*Y(-49)+Y(-50);
GENR
Y5=-Y-1.87003*Y(-1)-2.49702*Y(-2)-2.79948*Y(-3)-2.73809*Y(-4)
-2.32085*Y(-5)-1.60197*Y(-6)-0.67488*Y(-7)+0.33992*Y(-8)+1.31054*Y(-9)
+2.11083*Y(-10)+2.63678*Y(-11)+2.82004*Y(-12)+2.63678*Y(-13)
+2.11083*Y(-14)+1.31054*Y(-15)+0.33992*Y(-16)-0.67488*Y(-17)
-1.60197*Y(-18)-2.32085*Y(-19)-2.7381*Y(-20)-2.79948*Y(-21)
-2.49702*Y(-22)-1.87003*Y(-23)-Y(-24)+Y(-26)+1.87003*Y(-27)
+2.49702*Y(-28)+2.79948*Y(-29)+2.7381*Y(-30)+2.32085*Y(-31)
+1.60197*Y(-32)+0.67488*Y(-33)-0.33992*Y(-34)-1.31054*Y(-35)
-2.11083*Y(-36)-2.63678*Y(-37)-2.82004*Y(-38)-2.63678*Y(-39)
-2.11083*Y(-40)-1.31054*Y(-41)-0.33992*Y(-42)+0.67488*Y(-43)
+1.60197*Y(-44)+2.32085*Y(-45)+2.73809*Y(-46)+2.79948*Y(-47)
+2.49702*Y(-48)+1.87003*Y(-49)+Y(-50);
GENR
Y6=-Y-1.77091*Y(-1)-2.13613*Y(-2)-2.01199*Y(-3)-1.42692*Y(-4)
-0.51496*Y(-5)+0.51496*Y(-6)+1.42692*Y(-7)+2.01199*Y(-8)+2.13613*Y(-9)
+1.77091*Y(-10)+Y(-11)-Y(-13)-1.77091*Y(-14)-2.13613*Y(-15)
-2.01198*Y(-16)-1.42692*Y(-17)-0.51496*Y(-18)+0.51496*Y(-19)
+1.42692*Y(-20)+2.01199*Y(-21)+2.13613*Y(-22)+1.77091*Y(-23)
+Y(-24)-Y(-26)-1.77091*Y(-27)-2.13613*Y(-28)-2.01198*Y(-29)
-1.42692*Y(-30)-0.51496*Y(-31)+0.51496*Y(-32)+1.42692*Y(-33)
+2.01199*Y(-34)+2.13613*Y(-35)+1.77091*Y(-36)+Y(-37)-Y(-39)
-1.77091*Y(-40)-2.13613*Y(-41)-2.01199*Y(-42)-1.42692*Y(-43)
-0.51496*Y(-44)+0.51496*Y(-45)+1.42692*Y(-46)+2.01199*Y(-47)
+2.13613*Y(-48)+1.77091*Y(-49)+Y(-50);
GENR
Y7=-Y-1.64597*Y(-1)-1.70921*Y(-2)-1.16734*Y(-3)-0.21219*Y(-4)
+0.81808*Y(-5)+1.55872*Y(-6)+1.74753*Y(-7)+1.31765*Y(-8)+0.42128*Y(-9)
-0.62423*Y(-10)-1.44875*Y(-11)-1.76036*Y(-12)-1.44875*Y(-13)
-0.62423*Y(-14)+0.42128*Y(-15)+1.31765*Y(-16)+1.74753*Y(-17)
+1.55872*Y(-18)+0.81808*Y(-19)-0.21219*Y(-20)-1.16734*Y(-21)
-1.70921*Y(-22)-1.64597*Y(-23)-Y(-24)+Y(-26)+1.64597*Y(-27)
+1.70921*Y(-28)+1.16734*Y(-29)+0.21219*Y(-30)-0.81808*Y(-31)
-1.55872*Y(-32)-1.74753*Y(-33)-1.31765*Y(-34)-0.42128*Y(-35)
+0.62423*Y(-36)+1.44875*Y(-37)+1.76036*Y(-38)+1.44875*Y(-39)
+0.62423*Y(-40)-0.42128*Y(-41)-1.31765*Y(-42)-1.74753*Y(-43)
-1.55872*Y(-44)-0.81808*Y(-45)+0.21219*Y(-46)+1.16734*Y(-47)
+1.70921*Y(-48)+1.64597*Y(-49)+Y(-50);
GENR
Y8=-Y-1.49702*Y(-1)-1.24107*Y(-2)-0.36089*Y(-3)+0.70081*Y(-4)
+1.41002*Y(-5)+1.41002*Y(-6)+0.70081*Y(-7)-0.36089*Y(-8)-1.24107*Y(-9)
-1.49702*Y(-10)-Y(-11)+Y(-13)+1.49702*Y(-14)+1.24107*Y(-15)
+0.36089*Y(-16)-0.70081*Y(-17)-1.41002*Y(-18)-1.41002*Y(-19)
-0.70081*Y(-20)+0.36089*Y(-21)+1.24107*Y(-22)+1.49702*Y(-23)
+Y(-24)-Y(-26)-1.49702*Y(-27)-1.24107*Y(-28)-0.36089*Y(-29)
+0.70081*Y(-30)+1.41002*Y(-31)+1.41002*Y(-32)+0.70081*Y(-33)
-0.36089*Y(-34)-1.24107*Y(-35)-1.49702*Y(-36)-Y(-37)+Y(-39)
+1.49702*Y(-40)+1.24107*Y(-41)+0.36089*Y(-42)-0.70081*Y(-43)
-1.41002*Y(-44)-1.41002*Y(-45)-0.70081*Y(-46)+0.36089*Y(-47)
+1.24107*Y(-48)+1.49702*Y(-49)+Y(-50);
GENR
Y9=-Y-1.32625*Y(-1)-0.75893*Y(-2)+0.31972*Y(-3)+1.18296*Y(-4)
+1.24917*Y(-5)+0.47375*Y(-6)-0.62086*Y(-7)-1.29717*Y(-8)-1.0995*Y(-9)
-0.16104*Y(-10)+0.88592*Y(-11)+1.33599*Y(-12)+0.88592*Y(-13)
-0.16104*Y(-14)-1.0995*Y(-15)-1.29719*Y(-16)-0.62086*Y(-17)
+0.47375*Y(-18)+1.24917*Y(-19)+1.18296*Y(-20)+0.31972*Y(-21)
-0.75892*Y(-22)-1.32624*Y(-23)-Y(-24)+Y(-26)+1.32624*Y(-27)
+0.75893*Y(-28)-0.31972*Y(-29)-1.18296*Y(-30)-1.24917*Y(-31)
-0.47375*Y(-32)+0.62086*Y(-33)+1.29717*Y(-34)+1.0995*Y(-35)
+0.16104*Y(-36)-0.88592*Y(-37)-1.33599*Y(-38)-0.88592*Y(-39)
+0.16104*Y(-40)+1.0995*Y(-41)+1.29717*Y(-42)+0.62086*Y(-43)
-0.47375*Y(-44)-1.24917*Y(-45)-1.18296*Y(-46)-0.31972*Y(-47)
+0.75893*Y(-48)+1.32625*Y(-49)+Y(-50);
GENR
Y10=-Y-1.13613*Y(-1)-0.29079*Y(-2)+0.80575*Y(-3)+1.20623*Y(-4)
+0.56468*Y(-5)-0.56468*Y(-6)-1.20623*Y(-7)-0.80575*Y(-8)+0.29079*Y(-9)
+1.13613*Y(-10)+Y(-11)-Y(-13)-1.13613*Y(-14)-0.29079*Y(-15)
+0.80575*Y(-16)+1.20623*Y(-17)+0.56468*Y(-18)-0.56468*Y(-19)
-1.20623*Y(-20)-0.80575*Y(-21)+0.29079*Y(-22)+1.13613*Y(-23)
+Y(-24)-Y(-26)-1.13613*Y(-27)-0.29079*Y(-28)+0.80575*Y(-29)
+1.20623*Y(-30)+0.56468*Y(-31)-0.56468*Y(-32)-1.20623*Y(-33)
-0.80575*Y(-34)+0.29079*Y(-35)+1.13613*Y(-36)+Y(-37)-Y(-39)
-1.13613*Y(-40)-0.29079*Y(-41)+0.80575*Y(-42)+1.20623*Y(-43)
+0.56468*Y(-44)-0.56468*Y(-45)-1.20623*Y(-46)-0.80575*Y(-47)
+0.29079*Y(-48)+1.13613*Y(-49)+Y(-50);
GENR
Y11=-Y-0.92945*Y(-1)+0.13613*Y(-2)+1.05597*Y(-3)+0.84534*Y(-4)
-0.27027*Y(-5)-1.09654*Y(-6)-0.74890*Y(-7)+0.40048*Y(-8)+1.12113*Y(-9)
+0.64155*Y(-10)-0.52484*Y(-11)-1.12936*Y(-12)-0.52484*Y(-13)
+0.64155*Y(-14)+1.12113*Y(-15)+0.40048*Y(-16)-0.74891*Y(-17)
-1.09655*Y(-18)-0.27028*Y(-19)+0.84534*Y(-20)+1.05597*Y(-21)
+0.13613*Y(-22)-0.92945*Y(-23)-Y(-24)+Y(-26)+0.92944*Y(-27)
-0.13613*Y(-28)-1.05597*Y(-29)-0.84534*Y(-30)+0.27027*Y(-31)
+1.09654*Y(-32)+0.74890*Y(-33)-0.40048*Y(-34)-1.12113*Y(-35)
-0.64155*Y(-36)+0.52484*Y(-37)+1.12936*Y(-38)+0.52484*Y(-39)
-0.64155*Y(-40)-1.12113*Y(-41)-0.40048*Y(-42)+0.74890*Y(-43)
+1.09654*Y(-44)+0.27027*Y(-45)-0.84534*Y(-46)-1.05597*Y(-47)
-0.13613*Y(-48)+0.92945*Y(-49)+Y(-50);
GENR
Y12=-Y-0.70921*Y(-1)+0.49702*Y(-2)+1.0617*Y(-3)+0.25595*Y(-4)
-0.88018*Y(-5)-0.88018*Y(-6)+0.25595*Y(-7)+1.0617*Y(-8)+0.49702*Y(-9)
-0.70921*Y(-10)-Y(-11)+Y(-13)+0.70921*Y(-14)-0.49702*Y(-15)
-1.0617*Y(-16)-0.25595*Y(-17)+0.88018*Y(-18)+0.88018*Y(-19)
-0.25595*Y(-20)-1.0617*Y(-21)-0.49702*Y(-22)+0.70921*Y(-23)
+Y(-24)-Y(-26)-0.70921*Y(-27)+0.49702*Y(-28)+1.0617*Y(-29)
+0.25595*Y(-30)-0.88018*Y(-31)-0.88018*Y(-32)+0.25595*Y(-33)
+1.0617*Y(-34)+0.49702*Y(-35)-0.70921*Y(-36)-Y(-37)+Y(-39)
+0.70921*Y(-40)-0.49702*Y(-41)-1.0617*Y(-42)-0.25595*Y(-43)
+0.88018*Y(-44)+0.88018*Y(-45)-0.25595*Y(-46)-1.0617*Y(-47)
-0.49702*Y(-48)+0.70921*Y(-49)+Y(-50);
GENR
Y13=-Y-0.47863*Y(-1)+0.77091*Y(-2)+0.84761*Y(-3)-0.36522*Y(-4)
-1.02242*Y(-5)-0.12414*Y(-6)+0.96300*Y(-7)+0.58507*Y(-8)-0.68297*Y(-9)
-0.91196*Y(-10)+0.24648*Y(-11)+1.02993*Y(-12)+0.24648*Y(-13)
-0.91196*Y(-14)-0.68297*Y(-15)+0.58507*Y(-16)+0.96300*Y(-17)
-0.12414*Y(-18)-1.02242*Y(-19)-0.36522*Y(-20)+0.84761*Y(-21)
+0.77091*Y(-22)-0.47863*Y(-23)-Y(-24)+Y(-26)+0.47863*Y(-27)
-0.77091*Y(-28)-0.84761*Y(-29)+0.36522*Y(-30)+1.02242*Y(-31)
+0.12414*Y(-32)-0.96300*Y(-33)-0.58507*Y(-34)+0.68297*Y(-35)
+0.91196*Y(-36)-0.246478*Y(-37)-1.02993*Y(-38)-0.24648*Y(-39)
+0.91196*Y(-40)+0.68297*Y(-41)-0.58507*Y(-42)-0.96300*Y(-43)
+0.12414*Y(-44)+1.02242*Y(-45)+0.36522*Y(-46)-0.84761*Y(-47)
-0.77091*Y(-48)+0.47863*Y(-49)+Y(-50);
GENR
Y14=-Y-0.24107*Y(-1)+0.94188*Y(-2)+0.46814*Y(-3)-0.82903*Y(-4)
-0.66799*Y(-5)+0.66799*Y(-6)+0.82903*Y(-7)-0.46814*Y(-8)-0.94188*Y(-9)
+0.24107*Y(-10)+Y(-11)-Y(-13)-0.24107*Y(-14)+0.94188*Y(-15)
+0.46814*Y(-16)-0.82903*Y(-17)-0.66799*Y(-18)+0.66799*Y(-19)
+0.82903*Y(-20)-0.46814*Y(-21)-0.94189*Y(-22)+0.24107*Y(-23)
+Y(-24)-Y(-26)-0.24107*Y(-27)+0.94189*Y(-28)+0.46814*Y(-29)
-0.82903*Y(-30)-0.66799*Y(-31)+0.66799*Y(-32)+0.82903*Y(-33)
-0.46814*Y(-34)-0.94188*Y(-35)+0.24107*Y(-36)+Y(-37)-Y(-39)
-0.24107*Y(-40)+0.94188*Y(-41)+0.46814*Y(-42)-0.82903*Y(-43)
-0.66799*Y(-44)+0.66799*Y(-45)+0.82903*Y(-46)-0.46814*Y(-47)
-0.94188*Y(-48)+0.24107*Y(-49)+Y(-50);
GENR
Y15=-Y+Y(-2)-Y(-4)+Y(-6)-Y(-8)+Y(-10)-Y(-12)+Y(-14)-Y(-16)+Y(-18)
-Y(-20)+Y(-22)-Y(-24)+Y(-26)-Y(-28)+Y(-30)-Y(-32)+Y(-34)-Y(-36)+Y(-38)
-Y(-40)+Y(-42)-Y(-44)+Y(-46)-Y(-48)+Y(-50);
GENR
Y16=-Y+0.24107*Y(-1)+0.94188*Y(-2)-0.46814*Y(-3)-0.82903*Y(-4)
+0.66799*Y(-5)+0.66799*Y(-6)-0.82903*Y(-7)-0.46814*Y(-8)+0.94188*Y(-9)
+0.24107*Y(-10)-Y(-11)+Y(-13)-0.24107*Y(-14)-0.94188*Y(-15)
+0.46814*Y(-16)+0.82903*Y(-17)-0.66799*Y(-18)-0.66799*Y(-19)
+0.82903*Y(-20)+0.46814*Y(-21)-0.94189*Y(-22)-0.24107*Y(-23)
+Y(-24)-Y(-26)+0.24107*Y(-27)+0.94189*Y(-28)-0.46814*Y(-29)
-0.82903*Y(-30)+0.66799*Y(-31)+0.66799*Y(-32)-0.82903*Y(-33)
-0.46814*Y(-34)+0.94188*Y(-35)+0.24107*Y(-36)-Y(-37)+Y(-39)
-0.24107*Y(-40)-0.94188*Y(-41)+0.46814*Y(-42)+0.82903*Y(-43)
-0.66799*Y(-44)-0.66799*Y(-45)+0.82903*Y(-46)+0.46814*Y(-47)
-0.94188*Y(-48)-0.24107*Y(-49)+Y(-50);
GENR
Y17=-Y+0.47863*Y(-1)+0.77091*Y(-2)-0.84761*Y(-3)-0.36522*Y(-4)
+1.02242*Y(-5)-0.12414*Y(-6)-0.96300*Y(-7)+0.58507*Y(-8)+0.68297*Y(-9)
-0.91196*Y(-10)-0.24648*Y(-11)+1.02993*Y(-12)-0.24648*Y(-13)
-0.91196*Y(-14)+0.68297*Y(-15)+0.58507*Y(-16)-0.96300*Y(-17)
-0.12414*Y(-18)+1.02242*Y(-19)-0.36522*Y(-20)-0.84761*Y(-21)
+0.77091*Y(-22)+0.47863*Y(-23)-Y(-24)+Y(-26)-0.47863*Y(-27)
-0.77091*Y(-28)+0.84761*Y(-29)+0.36522*Y(-30)-1.02242*Y(-31)
+0.12414*Y(-32)+0.96300*Y(-33)-0.58507*Y(-34)-0.68297*Y(-35)
+0.91196*Y(-36)+0.246478*Y(-37)-1.02993*Y(-38)+0.24648*Y(-39)
+0.91196*Y(-40)-0.68297*Y(-41)-0.58507*Y(-42)+0.96300*Y(-43)
+0.12414*Y(-44)-1.02242*Y(-45)+0.36522*Y(-46)+0.84761*Y(-47)
-0.77091*Y(-48)-0.47863*Y(-49)+Y(-50);
GENR
Y18=-Y+0.70921*Y(-1)+0.49702*Y(-2)-1.0617*Y(-3)+0.25595*Y(-4)
+0.88018*Y(-5)-0.88018*Y(-6)-0.25595*Y(-7)+1.0617*Y(-8)-0.49702*Y(-9)
-0.70921*Y(-10)+Y(-11)-Y(-13)+0.70921*Y(-14)+0.49702*Y(-15)
-1.0617*Y(-16)+0.25595*Y(-17)+0.88018*Y(-18)-0.88018*Y(-19)
-0.25595*Y(-20)+1.0617*Y(-21)-0.49702*Y(-22)-0.70921*Y(-23)
+Y(-24)-Y(-26)+0.70921*Y(-27)+0.49702*Y(-28)-1.0617*Y(-29)
+0.25595*Y(-30)+0.88018*Y(-31)-0.88018*Y(-32)-0.25595*Y(-33)
+1.0617*Y(-34)-0.49702*Y(-35)-0.70921*Y(-36)+Y(-37)-Y(-39)
+0.70921*Y(-40)+0.49702*Y(-41)-1.0617*Y(-42)+0.25595*Y(-43)
+0.88018*Y(-44)-0.88018*Y(-45)-0.25595*Y(-46)+1.0617*Y(-47)
-0.49702*Y(-48)-0.70921*Y(-49)+Y(-50);
GENR
Y19=-Y+0.92945*Y(-1)+0.13613*Y(-2)-1.05597*Y(-3)+0.84534*Y(-4)
+0.27027*Y(-5)-1.09654*Y(-6)+0.74890*Y(-7)+0.40048*Y(-8)-1.12113*Y(-9)
+0.64155*Y(-10)+0.52484*Y(-11)-1.12936*Y(-12)+0.52484*Y(-13)
+0.64155*Y(-14)-1.12113*Y(-15)+0.40048*Y(-16)+0.74891*Y(-17)
-1.09655*Y(-18)+0.27028*Y(-19)+0.84534*Y(-20)-1.05597*Y(-21)
+0.13613*Y(-22)+0.92945*Y(-23)-Y(-24)+Y(-26)-0.92944*Y(-27)
-0.13613*Y(-28)+1.05597*Y(-29)-0.84534*Y(-30)-0.27027*Y(-31)
+1.09654*Y(-32)-0.74890*Y(-33)-0.40048*Y(-34)+1.12113*Y(-35)
-0.64155*Y(-36)-0.52484*Y(-37)+1.12936*Y(-38)-0.52484*Y(-39)
-0.64155*Y(-40)+1.12113*Y(-41)-0.40048*Y(-42)-0.74890*Y(-43)
+1.09654*Y(-44)-0.27027*Y(-45)-0.84534*Y(-46)+1.05597*Y(-47)
-0.13613*Y(-48)-0.92945*Y(-49)+Y(-50);
GENR
Y20=-Y+1.13613*Y(-1)-0.29079*Y(-2)-0.80575*Y(-3)+1.20623*Y(-4)
-0.56468*Y(-5)-0.56468*Y(-6)+1.20623*Y(-7)-0.80575*Y(-8)-0.29079*Y(-9)
+1.13613*Y(-10)-Y(-11)+Y(-13)-1.13613*Y(-14)+0.29079*Y(-15)
+0.80575*Y(-16)-1.20623*Y(-17)+0.56468*Y(-18)+0.56468*Y(-19)
-1.20623*Y(-20)+0.80575*Y(-21)+0.29079*Y(-22)-1.13613*Y(-23)
+Y(-24)-Y(-26)+1.13613*Y(-27)-0.29079*Y(-28)-0.80575*Y(-29)
+1.20623*Y(-30)-0.56468*Y(-31)-0.56468*Y(-32)+1.20623*Y(-33)
-0.80575*Y(-34)-0.29079*Y(-35)+1.13613*Y(-36)-Y(-37)+Y(-39)
-1.13613*Y(-40)+0.29079*Y(-41)+0.80575*Y(-42)-1.20623*Y(-43)
+0.56468*Y(-44)+0.56468*Y(-45)-1.20623*Y(-46)+0.80575*Y(-47)
+0.29079*Y(-48)-1.13613*Y(-49)+Y(-50);
GENR
Y21=-Y+1.32625*Y(-1)-0.75893*Y(-2)-0.31972*Y(-3)+1.18296*Y(-4)
-1.24917*Y(-5)+0.47375*Y(-6)+0.62086*Y(-7)-1.29717*Y(-8)+1.0995*Y(-9)
-0.16104*Y(-10)-0.88592*Y(-11)+1.33599*Y(-12)-0.88592*Y(-13)
-0.16104*Y(-14)+1.0995*Y(-15)-1.29719*Y(-16)+0.62086*Y(-17)
+0.47375*Y(-18)-1.24917*Y(-19)+1.18296*Y(-20)-0.31972*Y(-21)
-0.75892*Y(-22)+1.32624*Y(-23)-Y(-24)+Y(-26)-1.32624*Y(-27)
+0.75893*Y(-28)+0.31972*Y(-29)-1.18296*Y(-30)+1.24917*Y(-31)
-0.47375*Y(-32)-0.62086*Y(-33)+1.29717*Y(-34)-1.0995*Y(-35)
+0.16104*Y(-36)+0.88592*Y(-37)-1.33599*Y(-38)+0.88592*Y(-39)
+0.16104*Y(-40)-1.0995*Y(-41)+1.29717*Y(-42)-0.62086*Y(-43)
-0.47375*Y(-44)+1.24917*Y(-45)-1.18296*Y(-46)+0.31972*Y(-47)
+0.75893*Y(-48)-1.32625*Y(-49)+Y(-50);
GENR
Y22=-Y+1.49702*Y(-1)-1.24107*Y(-2)+0.36089*Y(-3)+0.70081*Y(-4)
-1.41002*Y(-5)+1.41002*Y(-6)-0.70081*Y(-7)-0.36089*Y(-8)+1.24107*Y(-9)
-1.49702*Y(-10)+Y(-11)-Y(-13)+1.49702*Y(-14)-1.24107*Y(-15)
+0.36089*Y(-16)+0.70081*Y(-17)-1.41002*Y(-18)+1.41002*Y(-19)
-0.70081*Y(-20)-0.36089*Y(-21)+1.24107*Y(-22)-1.49702*Y(-23)
+Y(-24)-Y(-26)+1.49702*Y(-27)-1.24107*Y(-28)+0.36089*Y(-29)
+0.70081*Y(-30)-1.41002*Y(-31)+1.41002*Y(-32)-0.70081*Y(-33)
-0.36089*Y(-34)+1.24107*Y(-35)-1.49702*Y(-36)+Y(-37)-Y(-39)
+1.49702*Y(-40)-1.24107*Y(-41)+0.36089*Y(-42)+0.70081*Y(-43)
-1.41002*Y(-44)+1.41002*Y(-45)-0.70081*Y(-46)-0.36089*Y(-47)
+1.24107*Y(-48)-1.49702*Y(-49)+Y(-50);
GENR
Y23=-Y+1.64597*Y(-1)-1.70921*Y(-2)+1.16734*Y(-3)-0.21219*Y(-4)
-0.81808*Y(-5)+1.55872*Y(-6)-1.74753*Y(-7)+1.31765*Y(-8)-0.42128*Y(-9)
-0.62423*Y(-10)+1.44875*Y(-11)-1.76036*Y(-12)+1.44875*Y(-13)
-0.62423*Y(-14)-0.42128*Y(-15)+1.31765*Y(-16)-1.74753*Y(-17)
+1.55872*Y(-18)-0.81808*Y(-19)-0.21219*Y(-20)+1.16734*Y(-21)
-1.70921*Y(-22)+1.64597*Y(-23)-Y(-24)+Y(-26)-1.64597*Y(-27)
+1.70921*Y(-28)-1.16734*Y(-29)+0.21219*Y(-30)+0.81808*Y(-31)
-1.55872*Y(-32)+1.74753*Y(-33)-1.31765*Y(-34)+0.42128*Y(-35)
+0.62423*Y(-36)-1.44875*Y(-37)+1.76036*Y(-38)-1.44875*Y(-39)
+0.62423*Y(-40)+0.42128*Y(-41)-1.31765*Y(-42)+1.74753*Y(-43)
-1.55872*Y(-44)+0.81808*Y(-45)+0.21219*Y(-46)-1.16734*Y(-47)
+1.70921*Y(-48)-1.64597*Y(-49)+Y(-50);
GENR
Y24=-Y+1.77091*Y(-1)-2.13613*Y(-2)+2.01199*Y(-3)-1.42692*Y(-4)
+0.51496*Y(-5)+0.51496*Y(-6)-1.42692*Y(-7)+2.01199*Y(-8)-2.13613*Y(-9)
+1.77091*Y(-10)-Y(-11)+Y(-13)-1.77091*Y(-14)+2.13613*Y(-15)
-2.01198*Y(-16)+1.42692*Y(-17)-0.51496*Y(-18)-0.51496*Y(-19)
+1.42692*Y(-20)-2.01199*Y(-21)+2.13613*Y(-22)-1.77091*Y(-23)
+Y(-24)-Y(-26)+1.77091*Y(-27)-2.13613*Y(-28)+2.01198*Y(-29)
-1.42692*Y(-30)+0.51496*Y(-31)+0.51496*Y(-32)-1.42692*Y(-33)
+2.01199*Y(-34)-2.13613*Y(-35)+1.77091*Y(-36)-Y(-37)+Y(-39)
-1.77091*Y(-40)+2.13613*Y(-41)-2.01199*Y(-42)+1.42692*Y(-43)
-0.51496*Y(-44)-0.51496*Y(-45)+1.42692*Y(-46)-2.01199*Y(-47)
+2.13613*Y(-48)-1.77091*Y(-49)+Y(-50);
GENR
Y25=-Y+1.87003*Y(-1)-2.49702*Y(-2)+2.79948*Y(-3)-2.73809*Y(-4)
+2.32085*Y(-5)-1.60197*Y(-6)+0.67488*Y(-7)+0.33992*Y(-8)-1.31054*Y(-9)
+2.11083*Y(-10)-2.63678*Y(-11)+2.82004*Y(-12)-2.63678*Y(-13)
+2.11083*Y(-14)-1.31054*Y(-15)+0.33992*Y(-16)+0.67488*Y(-17)
-1.60197*Y(-18)+2.32085*Y(-19)-2.7381*Y(-20)+2.79948*Y(-21)
-2.49702*Y(-22)+1.87003*Y(-23)-Y(-24)+Y(-26)-1.87003*Y(-27)
+2.49702*Y(-28)-2.79948*Y(-29)+2.7381*Y(-30)-2.32085*Y(-31)
+1.60197*Y(-32)-0.67488*Y(-33)-0.33992*Y(-34)+1.31054*Y(-35)
-2.11083*Y(-36)+2.63678*Y(-37)-2.82004*Y(-38)+2.63678*Y(-39)
-2.11083*Y(-40)+1.31054*Y(-41)-0.33992*Y(-42)-0.67488*Y(-43)
+1.60197*Y(-44)-2.32085*Y(-45)+2.73809*Y(-46)-2.79948*Y(-47)
+2.49702*Y(-48)-1.87003*Y(-49)+Y(-50);
GENR
Y26=-Y+1.94188*Y(-1)-2.77091*Y(-2)+3.43891*Y(-3)-3.90704*Y(-4)
+4.14811*Y(-5)-4.14812*Y(-6)+3.90704*Y(-7)-3.43891*Y(-8)+2.77091*Y(-9)
-1.94188*Y(-10)+Y(-11)-Y(-13)+1.94188*Y(-14)-2.77091*Y(-15)
+3.4389*Y(-16)-3.90704*Y(-17)+4.14811*Y(-18)-4.14811*Y(-19)
+3.90704*Y(-20)-3.4389*Y(-21)+2.77091*Y(-22)-1.94188*Y(-23)
+Y(-24)-Y(-26)+1.94188*Y(-27)-2.77091*Y(-28)+3.4389*Y(-29)
-3.90704*Y(-30)+4.14811*Y(-31)-4.14811*Y(-32)+3.90704*Y(-33)
-3.4389*Y(-34)+2.77091*Y(-35)-1.94188*Y(-36)+Y(-37)-Y(-39)
+1.94188*Y(-40)-2.77091*Y(-41)+3.43891*Y(-42)-3.90704*Y(-43)
+4.14812*Y(-44)-4.14811*Y(-45)+3.90704*Y(-46)-3.43891*Y(-47)
+2.77091*Y(-48)-1.94188*Y(-49)+Y(-50);
GENR
Y27=-Y+1.98542*Y(-1)-2.94188*Y(-2)+3.85545*Y(-3)-4.7128*Y(-4)
+5.50142*Y(-5)-6.20982*Y(-6)+6.82766*Y(-7)-7.34595*Y(-8)+7.75711*Y(-9)
-8.05516*Y(-10)+8.23574*Y(-11)-8.29623*Y(-12)+8.23574*Y(-13)
-8.05516*Y(-14)+7.75711*Y(-15)-7.34594*Y(-16)+6.82766*Y(-17)
-6.20981*Y(-18)+5.50142*Y(-19)-4.71279*Y(-20)+3.85545*Y(-21)
-2.94188*Y(-22)+1.98542*Y(-23)-Y(-24)+Y(-26)-1.98542*Y(-27)
+2.94188*Y(-28)-3.85545*Y(-29)+4.71279*Y(-30)-5.50142*Y(-31)
+6.20982*Y(-32)-6.82766*Y(-33)+7.34595*Y(-34)-7.75711*Y(-35)
+8.05516*Y(-36)-8.23574*Y(-37)+8.29623*Y(-38)-8.23574*Y(-39)
+8.05516*Y(-40)-7.75711*Y(-41)+7.34595*Y(-42)-6.82766*Y(-43)
+6.20982*Y(-44)-5.50142*Y(-45)+4.7128*Y(-46)-3.85545*Y(-47)
+2.94188*Y(-48)-1.98542*Y(-49)+Y(-50);
GENR
Y28=Y-Y(-52);

SMPL 157,728;

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET SSRU=@SSR;

SET T1(I)=@COEF(1)/@SES(1);
SET T2(I)=@COEF(2)/@SES(2);
SET T3(I)=@COEF(3)/@SES(3);
SET T4(I)=@COEF(4)/@SES(4);
SET T5(I)=@COEF(5)/@SES(5);
SET T6(I)=@COEF(6)/@SES(6);
SET T7(I)=@COEF(7)/@SES(7);
SET T8(I)=@COEF(8)/@SES(8);
SET T9(I)=@COEF(9)/@SES(9);
SET T10(I)=@COEF(10)/@SES(10);
SET T11(I)=@COEF(11)/@SES(11);
SET T12(I)=@COEF(12)/@SES(12);
SET T13(I)=@COEF(13)/@SES(13);
SET T14(I)=@COEF(14)/@SES(14);
SET T15(I)=@COEF(15)/@SES(15);
SET T16(I)=@COEF(16)/@SES(16);
SET T17(I)=@COEF(17)/@SES(17);
SET T18(I)=@COEF(18)/@SES(18);
SET T19(I)=@COEF(19)/@SES(19);
SET T20(I)=@COEF(20)/@SES(20);
SET T21(I)=@COEF(21)/@SES(21);
SET T22(I)=@COEF(22)/@SES(22);
SET T23(I)=@COEF(23)/@SES(23);
SET T24(I)=@COEF(24)/@SES(24);
SET T25(I)=@COEF(25)/@SES(25);
SET T26(I)=@COEF(26)/@SES(26);
SET T27(I)=@COEF(27)/@SES(27);
SET T28(I)=@COEF(28)/@SES(28);
SET T29(I)=@COEF(29)/@SES(29);
SET T30(I)=@COEF(30)/@SES(30);
SET T31(I)=@COEF(31)/@SES(31);
SET T32(I)=@COEF(32)/@SES(32);
SET T33(I)=@COEF(33)/@SES(33);
SET T34(I)=@COEF(34)/@SES(34);
SET T35(I)=@COEF(35)/@SES(35);
SET T36(I)=@COEF(36)/@SES(36);
SET T37(I)=@COEF(37)/@SES(37);
SET T38(I)=@COEF(38)/@SES(38);
SET T39(I)=@COEF(39)/@SES(39);
SET T40(I)=@COEF(40)/@SES(40);
SET T41(I)=@COEF(41)/@SES(41);
SET T42(I)=@COEF(42)/@SES(42);
SET T43(I)=@COEF(43)/@SES(43);
SET T44(I)=@COEF(44)/@SES(44);
SET T45(I)=@COEF(45)/@SES(45);
SET T46(I)=@COEF(46)/@SES(46);
SET T47(I)=@COEF(47)/@SES(47);
SET T48(I)=@COEF(48)/@SES(48);
SET T49(I)=@COEF(49)/@SES(49);
SET T50(I)=@COEF(50)/@SES(50);
SET T51(I)=@COEF(51)/@SES(51);
SET T52(I)=@COEF(52)/@SES(52);

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F1(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F2(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F3(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F4(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F5(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F6(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F7(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F8(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F9(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F10(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F11(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F12(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F13(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F14(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F15(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F16(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F17(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F18(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F19(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F20(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F21(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F22(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y26(-1) Y26(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F23(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y27(-1) Y27(-2)
C SDLIST;

SET F24(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1) Y3(-1) Y3(-2) Y4(-1) Y4(-2)
Y5(-1) Y5(-2) Y6(-1) Y6(-2) Y7(-1) Y7(-2) Y8(-1) Y8(-2)
Y9(-1) Y9(-2) Y10(-1) Y10(-2) Y11(-1) Y11(-2) Y12(-1) Y12(-2)
Y13(-1) Y13(-2) Y14(-1) Y14(-2) Y15(-1) Y15(-2) Y16(-1) Y16(-2)
Y17(-1) Y17(-2) Y18(-1) Y18(-2) Y19(-1) Y19(-2) Y20(-1) Y20(-2)
Y21(-1) Y21(-2) Y22(-1) Y22(-2) Y23(-1) Y23(-2) Y24(-1) Y24(-2)
Y25(-1) Y25(-2) Y26(-1) Y26(-2)
C SDLIST;

SET F25(I)=((@SSR-SSRU)/2)/(SSRU/(572-52-52));

OLSQ(SILENT) Y28 Y1(-1) Y2(-1)
C SDLIST;

SET F26(I)=((@SSR-SSRU)/50)/(SSRU/(572-52-52));

ENDDO;

SMPL 1 VEZ;

MMAKE TTEST T1-T52;
MMAKE FTEST F1-F26;
WRITE (FILE='C:\data\RUNITROOTT2.XLS') TTEST;
WRITE (FILE='C:\data\RUNITROOTF2.XLS') FTEST;