Oscillator Bias Exact by MG Ferreira

From: Khamsina <Khamsina11[at]yahoo.fr>
To: equismetastock[at]yahoogroups.com <equismetastock[at]yahoogroups.com>
Date: Monday, May 16, 2005, 9:51:32 AM
Subject: [EquisMetaStock Group] "Skewness" and "Kurtosis" indicators (MG)
Hi MG,

One month ago, you posted the "Skewness" and "Kurtosis" codes.
Unfortunately, my computer crashed and I did not have time to save them.
I perused the Yahho archives but I just can't retrieve them.

Might you post them again ?

Thanks in advance,

Marco

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


From: mgf_za_1999 <no_reply[at]yahoogroups.com>
To: equismetastock[at]yahoogroups.com <equismetastock[at]yahoogroups.com>
Date: Monday, May 16, 2005, 2:32:49 PM
Subject: [EquisMetaStock Group] Re: "Skewness" and "Kurtosis" indicators (MG)

Here they are. Note that there are four indicators, the exact and approximated kurtosis and bias. Just cut on the dotted lines.

PS: Is it this difficult to get previous posts? There are a few posts that I have in the back of my mind that I want to retrieve at a later stage. I know I struggled with this before, but hoped you could just search for say 'Kurtosis' somewhere and get all the related posts.

Regards
MG Ferreira
TsaTsa EOD Programmer and trading model builder
http://www.ferra4models.com
http://fun.ferra4models.com

/cut

Bias Exact

{MG Ferreira
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))



Bias Approx

{MG Ferreira
For personal use only}

xx := INDICATOR;
ll := Input("Bias length:",1,9999,50);
yy := ROC(xx,1,%);
mm := Mov(yy,ll,S);
dd := yy-mm;
ll*Sum(Power(dd,3),ll)/(Power(Stdev(yy,ll)*Sqrt(ll/(ll-1)),3)*(ll-1)*(ll-2))