Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers
Joined: 10/29/2004(UTC)
Posts: 1,394
Location: Glastonbury, CT
Was thanked: 2 time(s) in 2 post(s)
|
Dear Toyogo,
The kase KCD and Peak Osc are properly formulated according to the book.
The change that you might see is that , I like to see when the indicator rises
{Green} or falls{Red}
I converted the code from a tradestation indicator along with reading the book twice to make sure it was correct.
I'm not about to pay several K for the KaseStatware code only to find that the code I provided works just as well as hers.
free is free and according to her book, it should plot just like the her's
just change the style to plot as a histogram for red and green
Per1:=Input("max length",1,100,8);
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1));
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1));
Pk:=Mov(Mov((RWH-RWL),3,W),3,S);
KCD:=PK-Mov(PK,8,S);
MN:=Mov(KCD,Per1,S);
SD:=Stdev(KCD,Per1);
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08);
Val2:=If(MN-(1.33*SD)<-2.08,MN-(1.33*SD),-2.08);
LN:=If(Ref(KCD,-1)>=0 AND KCD>0,Val1,If(Ref(KCD,-1)<=0 AND
KCD<0,Val2,0));
Red:=If(Ref(KCD,-1)>KCD,KCD,0);
Green:=If(KCD>Ref(KCD,-1),KCD,0);
Red;Green;LN;
|
