Skewness and Kurtosis indicators for Metastock

{MG Ferreira
http://www.ferra4models.com
For personal use only}

xx := INDICATOR;
ll := Input("Bias length:",1,20,20);
yy := ROC(xx,1,%);
mm := Mov(yy,ll,S);
ss := Power(yy-mm,3)+
Power((Ref(yy,-1)-mm)*(ll>1),3)+
Power((Ref(yy,-2)-mm)*(ll>2),3)+
Power((Ref(yy,-3)-mm)*(ll>3),3)+
Power((Ref(yy,-4)-mm)*(ll>4),3)+
Power((Ref(yy,-5)-mm)*(ll>5),3)+
Power((Ref(yy,-6)-mm)*(ll>6),3)+
Power((Ref(yy,-7)-mm)*(ll>7),3)+
Power((Ref(yy,-8)-mm)*(ll>8),3)+
Power((Ref(yy,-9)-mm)*(ll>9),3)+
Power((Ref(yy,-10)-mm)*(ll>10),3)+
Power((Ref(yy,-11)-mm)*(ll>11),3)+
Power((Ref(yy,-12)-mm)*(ll>12),3)+
Power((Ref(yy,-13)-mm)*(ll>13),3)+
Power((Ref(yy,-14)-mm)*(ll>14),3)+
Power((Ref(yy,-15)-mm)*(ll>15),3)+
Power((Ref(yy,-16)-mm)*(ll>16),3)+
Power((Ref(yy,-17)-mm)*(ll>17),3)+
Power((Ref(yy,-18)-mm)*(ll>18),3)+
Power((Ref(yy,-19)-mm)*(ll>19),3);
ll*ss/(Power(Stdev(yy,ll)*Sqrt(ll/(ll-1)),3)*(ll-1)*(ll-2))