inputs: Len1 (2), 
Len2 (10), 
Len3 (30), 
Len4 (81); 
Vars: ST1 (0),ST2 (0),ST3(0); 


St1 = 100* 


(Close - ((Average(C,Len1) + 
Average(Average(C,Len1),Len1) + 
Average(Average(Average(C,Len1),Len1),Len1) + 
Average(Average(Average(Average(C,Len1),Len1),Len1),Len1) + 
Average(Average(Average(Average(Average(C,Len1),Len1),Len1),Len1),Len1) + 
Average(Average(Average(Average(Average(Average(C,Len1),Len1),Len1),Len1),Len1),Len1) + 
Average(Average(Average(Average(Average(Average(Average(C,Len1),Len1),Len1),Len1),Len1),Len1),Len1) + 
Average(Average(Average(Average(Average(Average(Average(Average(C,Len1),Len1),Len1),Len1),Len1),Len1),Len1),Len1) + 
Average(Average(Average(Average(Average(Average(Average(Average(Average(C,Len1),Len1),Len1),Len1),Len1),Len1),Len1),Len1),Len1) + 
Average(Average(Average(Average(Average(Average(Average(Average(Average(Average(C,Len1),Len1),Len1),Len1),Len1),Len1),Len1),Len1),Len1),Len1)) / 10)) / 
(Highest(C, Len2) - Lowest(C, Len2)); 


{Plot1(ST1, "SwingTrade-1", Yellow);} 
ST2 = XAverage(ST1, Len3); 
Plot2(ST2, "SwingTrade-2", Blue); 
ST3 = XAverage(ST2, Len3); 
Plot3(ST3, "SwingTrade-3", Red); 

{TS 7 and above 
if st2 crosses above st3 then Plot4 (st2,"Bull-Cross"); 
if st2 crosses below st3 then Plot5 (st2,"BearCross"); }