{ Downloaded From https://www.WiseStockTrader.com }
n:=Input("Limit",0,1,0.675);
BPDL:=((Cum((If((Mov((C-Ref(C,-1)),21,
S))>0,1,-1) *
Pwr(((Mov((Pwr(C-Ref(C,-1),2)),21,S))+1
),.5)) +
((Pwr(((Pwr(C-Ref(C,-1),2))+1),.5))) *
If((C>Ref(C,-1)),1,-1))) -
(Ref(((Cum((If((Mov((C-Ref(C,-1)),21,S))
>0,1,-1)*
Pwr(((Mov((Pwr(C-Ref(C,-1),2)),21,S))+1
),.5)) +
((Pwr(((Pwr(C-Ref(C,-1),2))+1),.5))) *
If((C>Ref(C,-1)),1,-1)))),-21))) /
((HHV((Cum((If((Mov((C-Ref(C,-1)),21,S
))>0,1,-1)*
Pwr(((Mov((Pwr(C-Ref(C,-1),2)),21,S))+1
),.5)) +
((Pwr(((Pwr(C-Ref(C,-1),2))+1),.5))) *
If((C>Ref(C,-1)),1,-1))),21)) -
(LLV((Cum((If((Mov((C-Ref(C,-1)),21,S))
>0,1,-1)*
Pwr(((Mov((Pwr(C-Ref(C,-1),2)),21,S))+1
),.5)) +
((Pwr(((Pwr(C-Ref(C,-1),2))+1),.5))) *
If((C>Ref(C,-1)),1,-1))),21)));
BPDL;
n;
-n