Stoch RSI
This indicator plots 3 line and 2 thresholds 

Per1:=Input("Length of RSI",2,50,14) ; 
Per2:=Input("RSI-Stoch-periods",2, 50,9); 
Per3:=Input("Stochastic-slow-periods",2,50,4); 
Per4:=Input("Length of Signal",2,50,5); 
Per5:=Input("Length of lookbck",2,100,60); 
A1:=(Sum(RSI(Per1) -LLV(RSI(Per1),Per2),Per3) / Sum(HHV(RSI(Per1),Per2) -LLV(RSI(Per1),Per2),Per3)) * 100; 
A2:=HHV(A1,Per5); 
A3:=LLV(A1,Per5); 
A4:=(A2-A3)*(80/100); 
A5:=A3+A4;{OS} 
A6:=A2-A4;{OB} 
A7:=Mov(A1,Per4,S); 
A8:=Mov(A7,Per4,S); 
A5;A6;A1;A7;A8
*****Stoch RSI 10*****
(Sum(RSI(10)-LLV(RSI(10),10),3)/Sum(HHV(RSI(10),10)-LLV(RSI(10),10),3) 
)*100; 
20; 
80
*****Stoch RSI*****
Stoch RSI 13 13 Smoothed 

Mov((RSI(13)-LLV(RSI(13),13))/(HHV(RSI(13),13)- (LLV(RSI(13),13))),3,E)*100 

Stoch RSI 14 14 

((RSI(14)-LLV(RSI(14),14))/((HHV(RSI(14),14))-LLV(RSI(14),14))) 

Stoch RSI 14 7 

((RSI(14) - LLV(RSI(14),7))/ 
(HHV(RSI(14),7))-(LLV(RSI(14),7)))*-1 

Stoch RSI 21 13 

((RSI(21)-LLV(RSI(21),8))/((HHV(RSI(21),13))-LLV(RSI(21),13))) 

Stoch RSI 21 13 Smoothed 

Mov((RSI(21)-LLV(RSI(21),13))/(HHV(RSI(21),13)-(LLV(RSI(21)+.00001,13))),8,E) 
*100 

Stoch RSI 21 21 

((RSI(21)-LLV(RSI(21),21))/((HHV(RSI(21),21))-LLV(RSI(21),21))) 

Stoch RSI 5 5 Smoothed 

Mov((RSI(5)-LLV(RSI(5),5))/(HHV(RSI(5),5)- (LLV(RSI(5),5))),3,E)*100 

Stoch RSI 8 5 

Mov((RSI(8)-LLV(RSI(8),8))/(HHV(RSI(8),8)-(LLV(RSI(8),8)+.00001)),5,W)*100