3 Double Smoothed Stoch
This Indicator plots 3 Stochastics each is double smoothed 

It also plots an upper and lower band for each Stoch, set 5% closer to center 

A1:=100*(Mov(Mov((C-LLV(L,10)),3,E),3,E) / 
Mov(Mov((HHV(H,10) - LLV(L,10)),3,E),3,E)); 
A2:=100*(Mov(Mov((C-LLV(L,20)),3,E),3,E) / 
Mov(Mov((HHV(H,20) - LLV(L,20)),3,E),3,E)); 
A3:=100*(Mov(Mov((C-LLV(L,40)),3,E),3,E) / 
Mov(Mov((HHV(H,40) - LLV(L,40)),3,E),3,E)); 
UB1:=Ref((HHV(A1,30)*.95),-1); 
LB1:=Ref((LLV(A1,30)*1.05),-1); 
UB2:=Ref((HHV(A2,60)*.95),-1); 
LB2:=Ref((LLV(A2,60)*1.05),-1); 
UB3:=Ref((HHV(A3,120)*.95),-1); 
LB3:=Ref((LLV(A3,120)*1.05),-1); 
A1;A2;A3;UB1;UB2;UB3;LB1;LB2;LB3; 


Start from the very left and change the first line lime green, Change the third line to blue,next do the same for the bands and change the style to dotted lines

*****3 Double Smoothed Stoch Binary Wave*****
This indicator Plots in it's own window 

It shows when each of the stochastics are above or below the respective band 

A1:=100*(Mov(Mov((C-LLV(L,10)),3,E),3,E) / 
Mov(Mov((HHV(H,10) - LLV(L,10)),3,E),3,E)); 
A2:=100*(Mov(Mov((C-LLV(L,20)),3,E),3,E) / 
Mov(Mov((HHV(H,20) - LLV(L,20)),3,E),3,E)); 
A3:=100*(Mov(Mov((C-LLV(L,40)),3,E),3,E) / 
Mov(Mov((HHV(H,40) - LLV(L,40)),3,E),3,E)); 
UB1:=Ref((HHV(A1,30)*.95),-1); 
LB1:=Ref((LLV(A1,30)*1.05),-1); 
UB2:=Ref((HHV(A2,60)*.95),-1); 
LB2:=Ref((LLV(A2,60)*1.05),-1); 
UB3:=Ref((HHV(A3,120)*.95),-1); 
LB3:=Ref((LLV(A3,120)*1.05),-1); 
W1:=If(A1>UB1,1,If(A1<LB1,-1,0)); 
W2:=If(A2>UB2,2,If(A2<LB2,-2,0)); 
W3:=If(A3>UB3,3,If(A3<LB3,-3,0)); 
W1+W2+W3