OPTIONS MEMORY=64;

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

CONST VEZ,20000;
SMPL 1 VEZ;

?PREPARA LAS SERIES DE SALIDA

SET MU1(VEZ)=0;
SET MU2(VEZ)=0;
SET MU3(VEZ)=0;
SET MU4(VEZ)=0;
SET MU5(VEZ)=0;
SET MU6(VEZ)=0;
SET MU7(VEZ)=0;
SET MU8(VEZ)=0;
SET MU9(VEZ)=0;
SET MU10(VEZ)=0;
SET MU11(VEZ)=0;
SET MU12(VEZ)=0;
SET MU13(VEZ)=0;
SET MU14(VEZ)=0;
SET MU15(VEZ)=0;
SET MU16(VEZ)=0;
SET MU17(VEZ)=0;
SET MU18(VEZ)=0;
SET MU19(VEZ)=0;
SET MU20(VEZ)=0;
SET MU21(VEZ)=0;
SET MU22(VEZ)=0;
SET MU23(VEZ)=0;
SET MU24(VEZ)=0;
SET MU25(VEZ)=0;
SET MU26(VEZ)=0;
SET MU27(VEZ)=0;

DO I=1,VEZ,1;

?MUESTRA EN PANTALLA EL NUMERO DE EJECUCION

PRINT I;

SMPL 1,52; y=0;
SMPL 1,728;
RANDOM (MEAN=0,STDEV=1) E;
SMPL 53,728; y=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.12133*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.58807*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.58807*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.12133*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));

SMPL 157,728;
TREND TIME;
DUMMY(EXCLUDE) Week SDLIST;

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESI=@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESI(157),END) RESI,0.0,S1;
GENR S12=S1*S1;
MSD (NOPRINT) S12;
SET MU1(I)=@SUM/(572*@SSR);

SET PHI=GAMFN(0.5)*GAMFN(0.5);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS2=COS(PHI*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS2(157),END) RESCOS2,0.0,SCOS2;
GENR SCOS22=SCOS2*SCOS2;
GENR RESSIN2=SIN(PHI*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN2(157),END) RESSIN2,0.0,SSIN2;
GENR SSIN22=SSIN2*SSIN2;
GENR SCOSSIN22=SCOS22+SSIN22;
MSD (NOPRINT) SCOSSIN22;
SET MU2(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS3=COS((PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS3(157),END) RESCOS3,0.0,SCOS3;
GENR SCOS32=SCOS3*SCOS3;
GENR RESSIN3=SIN((PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN3(157),END) RESSIN3,0.0,SSIN3;
GENR SSIN32=SSIN3*SSIN3;
GENR SCOSSIN32=SCOS32+SSIN32;
MSD (NOPRINT) SCOSSIN32;
SET MU3(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS4=COS((2*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS4(157),END) RESCOS4,0.0,SCOS4;
GENR SCOS42=SCOS4*SCOS4;
GENR RESSIN4=SIN((2*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN4(157),END) RESSIN4,0.0,SSIN4;
GENR SSIN42=SSIN4*SSIN4;
GENR SCOSSIN42=SCOS42+SSIN42;
MSD (NOPRINT) SCOSSIN42;
SET MU4(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS5=COS((3*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS5(157),END) RESCOS5,0.0,SCOS5;
GENR SCOS52=SCOS5*SCOS5;
GENR RESSIN5=SIN((3*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN5(157),END) RESSIN5,0.0,SSIN5;
GENR SSIN52=SSIN5*SSIN5;
GENR SCOSSIN52=SCOS52+SSIN52;
MSD (NOPRINT) SCOSSIN52;
SET MU5(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS6=COS((4*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS6(157),END) RESCOS6,0.0,SCOS6;
GENR SCOS62=SCOS6*SCOS6;
GENR RESSIN6=SIN((4*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN6(157),END) RESSIN6,0.0,SSIN6;
GENR SSIN62=SSIN6*SSIN6;
GENR SCOSSIN62=SCOS62+SSIN62;
MSD (NOPRINT) SCOSSIN62;
SET MU6(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS7=COS((5*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS7(157),END) RESCOS7,0.0,SCOS7;
GENR SCOS72=SCOS7*SCOS7;
GENR RESSIN7=SIN((5*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN7(157),END) RESSIN7,0.0,SSIN7;
GENR SSIN72=SSIN7*SSIN7;
GENR SCOSSIN72=SCOS72+SSIN72;
MSD (NOPRINT) SCOSSIN72;
SET MU7(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS8=COS((6*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS8(157),END) RESCOS8,0.0,SCOS8;
GENR SCOS82=SCOS8*SCOS8;
GENR RESSIN8=SIN((6*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN8(157),END) RESSIN8,0.0,SSIN8;
GENR SSIN82=SSIN8*SSIN8;
GENR SCOSSIN82=SCOS82+SSIN82;
MSD (NOPRINT) SCOSSIN82;
SET MU8(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS9=COS((7*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS9(157),END) RESCOS9,0.0,SCOS9;
GENR SCOS92=SCOS9*SCOS9;
GENR RESSIN9=SIN((7*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN9(157),END) RESSIN9,0.0,SSIN9;
GENR SSIN92=SSIN9*SSIN9;
GENR SCOSSIN92=SCOS92+SSIN92;
MSD (NOPRINT) SCOSSIN92;
SET MU9(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS10=COS((8*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS10(157),END) RESCOS10,0.0,SCOS10;
GENR SCOS102=SCOS10*SCOS10;
GENR RESSIN10=SIN((8*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN10(157),END) RESSIN10,0.0,SSIN10;
GENR SSIN102=SSIN10*SSIN10;
GENR SCOSSIN102=SCOS102+SSIN102;
MSD (NOPRINT) SCOSSIN102;
SET MU10(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS11=COS((9*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS11(157),END) RESCOS11,0.0,SCOS11;
GENR SCOS112=SCOS11*SCOS11;
GENR RESSIN11=SIN((9*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN11(157),END) RESSIN11,0.0,SSIN11;
GENR SSIN112=SSIN11*SSIN11;
GENR SCOSSIN112=SCOS112+SSIN112;
MSD (NOPRINT) SCOSSIN112;
SET MU11(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS12=COS((10*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS12(157),END) RESCOS12,0.0,SCOS12;
GENR SCOS122=SCOS12*SCOS12;
GENR RESSIN12=SIN((10*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN12(157),END) RESSIN12,0.0,SSIN12;
GENR SSIN122=SSIN12*SSIN12;
GENR SCOSSIN122=SCOS122+SSIN122;
MSD (NOPRINT) SCOSSIN122;
SET MU12(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS13=COS((11*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS13(157),END) RESCOS13,0.0,SCOS13;
GENR SCOS132=SCOS13*SCOS13;
GENR RESSIN13=SIN((11*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN13(157),END) RESSIN13,0.0,SSIN13;
GENR SSIN132=SSIN13*SSIN13;
GENR SCOSSIN132=SCOS132+SSIN132;
MSD (NOPRINT) SCOSSIN132;
SET MU13(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS14=COS((12*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS14(157),END) RESCOS14,0.0,SCOS14;
GENR SCOS142=SCOS14*SCOS14;
GENR RESSIN14=SIN((12*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN14(157),END) RESSIN14,0.0,SSIN14;
GENR SSIN142=SSIN14*SSIN14;
GENR SCOSSIN142=SCOS142+SSIN142;
MSD (NOPRINT) SCOSSIN142;
SET MU14(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS15=COS((13*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS15(157),END) RESCOS15,0.0,SCOS15;
GENR SCOS152=SCOS15*SCOS15;
GENR RESSIN15=SIN((13*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN15(157),END) RESSIN15,0.0,SSIN15;
GENR SSIN152=SSIN15*SSIN15;
GENR SCOSSIN152=SCOS152+SSIN152;
MSD (NOPRINT) SCOSSIN152;
SET	MU15(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS16=COS((14*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS16(157),END) RESCOS16,0.0,SCOS16;
GENR SCOS162=SCOS16*SCOS16;
GENR RESSIN16=SIN((14*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN16(157),END) RESSIN16,0.0,SSIN16;
GENR SSIN162=SSIN16*SSIN16;
GENR SCOSSIN162=SCOS162+SSIN162;
MSD (NOPRINT) SCOSSIN162;
SET MU16(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS17=COS((15*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS17(157),END) RESCOS17,0.0,SCOS17;
GENR SCOS172=SCOS17*SCOS17;
GENR RESSIN17=SIN((15*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN17(157),END) RESSIN17,0.0,SSIN17;
GENR SSIN172=SSIN17*SSIN17;
GENR SCOSSIN172=SCOS172+SSIN172;
MSD (NOPRINT) SCOSSIN172;
SET MU17(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS18=COS((16*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS18(157),END) RESCOS18,0.0,SCOS18;
GENR SCOS182=SCOS18*SCOS18;
GENR RESSIN18=SIN((16*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN18(157),END) RESSIN18,0.0,SSIN18;
GENR SSIN182=SSIN18*SSIN18;
GENR SCOSSIN182=SCOS182+SSIN182;
MSD (NOPRINT) SCOSSIN182;
SET MU18(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS19=COS((17*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS19(157),END) RESCOS19,0.0,SCOS19;
GENR SCOS192=SCOS19*SCOS19;
GENR RESSIN19=SIN((17*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN19(157),END) RESSIN19,0.0,SSIN19;
GENR SSIN192=SSIN19*SSIN19;
GENR SCOSSIN192=SCOS192+SSIN192;
MSD (NOPRINT) SCOSSIN192;
SET MU19(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS20=COS((18*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS20(157),END) RESCOS20,0.0,SCOS20;
GENR SCOS202=SCOS20*SCOS20;
GENR RESSIN20=SIN((18*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN20(157),END) RESSIN20,0.0,SSIN20;
GENR SSIN202=SSIN20*SSIN20;
GENR SCOSSIN202=SCOS202+SSIN202;
MSD (NOPRINT) SCOSSIN202;
SET MU20(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS21=COS((19*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS21(157),END) RESCOS21,0.0,SCOS21;
GENR SCOS212=SCOS21*SCOS21;
GENR RESSIN21=SIN((19*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN21(157),END) RESSIN21,0.0,SSIN21;
GENR SSIN212=SSIN21*SSIN21;
GENR SCOSSIN212=SCOS212+SSIN212;
MSD (NOPRINT) SCOSSIN212;
SET MU21(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS22=COS((20*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS22(157),END) RESCOS22,0.0,SCOS22;
GENR SCOS222=SCOS22*SCOS22;
GENR RESSIN22=SIN((20*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN22(157),END) RESSIN22,0.0,SSIN22;
GENR SSIN222=SSIN22*SSIN22;
GENR SCOSSIN222=SCOS222+SSIN222;
MSD (NOPRINT) SCOSSIN222;
SET MU22(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS23=COS((21*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS23(157),END) RESCOS23,0.0,SCOS23;
GENR SCOS232=SCOS23*SCOS23;
GENR RESSIN23=SIN((21*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN23(157),END) RESSIN23,0.0,SSIN23;
GENR SSIN232=SSIN23*SSIN23;
GENR SCOSSIN232=SCOS232+SSIN232;
MSD (NOPRINT) SCOSSIN232;
SET MU23(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS24=COS((22*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS24(157),END) RESCOS24,0.0,SCOS24;
GENR SCOS242=SCOS24*SCOS24;
GENR RESSIN24=SIN((22*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN24(157),END) RESSIN24,0.0,SSIN24;
GENR SSIN242=SSIN24*SSIN24;
GENR SCOSSIN242=SCOS242+SSIN242;
MSD (NOPRINT) SCOSSIN242;
SET MU24(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS25=COS((23*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS25(157),END) RESCOS25,0.0,SCOS25;
GENR SCOS252=SCOS25*SCOS25;
GENR RESSIN25=SIN((23*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN25(157),END) RESSIN25,0.0,SSIN25;
GENR SSIN252=SSIN25*SSIN25;
GENR SCOSSIN252=SCOS252+SSIN252;
MSD (NOPRINT) SCOSSIN252;
SET MU25(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS26=COS((24*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS26(157),END) RESCOS26,0.0,SCOS26;
GENR SCOS262=SCOS26*SCOS26;
GENR RESSIN26=SIN((24*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN26(157),END) RESSIN26,0.0,SSIN26;
GENR SSIN262=SSIN26*SSIN26;
GENR SCOSSIN262=SCOS262+SSIN262;
MSD (NOPRINT) SCOSSIN262;
SET MU26(I)=@SUM/(572*@SSR);

OLSQ(SILENT) Y
C SDLIST TIME;
GENR RESCOS27=COS((25*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESCOS27(157),END) RESCOS27,0.0,SCOS27;
GENR SCOS272=SCOS27*SCOS27;
GENR RESSIN27=SIN((25*PHI/26)*TIME)*@RES;
CAPITL (BENCHOBS=157,BENCHVAL=RESSIN27(157),END) RESSIN27,0.0,SSIN27;
GENR SSIN272=SSIN27*SSIN27;
GENR SCOSSIN272=SCOS272+SSIN272;
MSD (NOPRINT) SCOSSIN272;
SET MU27(I)=@SUM/(572*@SSR);

ENDDO;

SMPL 1 VEZ;

MMAKE MTEST MU1-MU27;
WRITE (FILE='c:\data\RSTATIONARY3.XLS') MTEST;