PL Dot w Double smoothed Stoch Expert
Highlight 

Long 

A:= Mov((Mov((((CLOSE-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100),3,S)), 3,S); 
D:=Mov(Typ(),3,S); 
B:=Ref(D,-1); 
Buy:=Cross(D,B) AND A<=50; 
Sell:=Cross(B,D) AND A>=50; 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)>=BarsSince(i OR Sell)=0; 
X=0 

Short 

A:= Mov((Mov((((CLOSE-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100),3,S)), 3,S); 
D:=Mov(Typ(),3,S); 
B:=Ref(D,-1); 
Buy:=Cross(D,B) AND A<=50; 
Sell:=Cross(B,D) AND A>=50; 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)<=BarsSince(i OR Sell)=0; 
X=0 

Symbols 

Long Entry 

A:= Mov((Mov((((CLOSE-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100),3,S)), 3,S); 
D:=Mov(Typ(),3,S); 
B:=Ref(D,-1); 
Buy:=Cross(D,B) AND A<=50; 
Sell:=Cross(B,D) AND A>=50; 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)>=BarsSince(i OR Sell)=0; 
X=0 AND Ref(X,-1)>0 

Short entry 

A:= Mov((Mov((((CLOSE-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100),3,S)), 3,S); 
D:=Mov(Typ(),3,S); 
B:=Ref(D,-1); 
Buy:=Cross(D,B) AND A<=50; 
Sell:=Cross(B,D) AND A>=50; 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)<=BarsSince(i OR Sell)=0; 
X=0 AND Ref(X,-1)>0

*****PL Dot Expert*****
Highlight 

Long 

A:=Mov(Typ(),3,S); 
Buy:=A>Ref(A,-1); 
Sell:=A<Ref(A,-1); 
D:=If(BarsSince(Buy)<BarsSince(sell),1,0); 
D=1 

Short 

A:=Mov(Typ(),3,S); 
Buy:=A>Ref(A,-1); 
Sell:=A<Ref(A,-1); 
D:=If(BarsSince(Buy)<BarsSince(sell),1,0); 
D=0 

Symbols 

Long Entry 

A:=Mov(Typ(),3,S); 
Buy:=A>Ref(A,-1); 
Sell:=A<Ref(A,-1); 
D:=If(BarsSince(Buy)<BarsSince(sell),1,0); 
D>Ref(D,-1) 

Short Entry 

A:=Mov(Typ(),3,S); 
Buy:=A>Ref(A,-1); 
Sell:=A<Ref(A,-1); 
D:=If(BarsSince(Buy)<BarsSince(sell),1,0); 
D<Ref(D,-1)