Highlight Tab 
{long} 
Buy:=C>Ref(C,-1) AND 
C>O AND 
C>Mov(C,8,E) AND 
C>Ref(H,-1); 
Sell:=C<Ref(C,-1) AND 
C<O AND 
C<Mov(C,8,E) AND 
C<Ref(L,-1); 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)<=BarsSince(i OR Sell)=0; 
X=0 

{Short} 
Buy:=C>Ref(C,-1) AND 
C>O AND 
C>Mov(C,8,E) AND 
C>Ref(H,-1); 
Sell:=C<Ref(C,-1) AND 
C<O AND 
C<Mov(C,8,E) AND 
C<Ref(L,-1); 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)>=BarsSince(i OR Sell)=0; 
X=0 

Symbol Tab 
{EL} 
Buy:=C>Ref(C,-1) AND 
C>O AND 
C>Mov(C,8,E) AND 
C>Ref(H,-1); 
Sell:=C<Ref(C,-1) AND 
C<O AND 
C<Mov(C,8,E) AND 
C<Ref(L,-1); 
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 

{ES} 
Buy:=C>Ref(C,-1) AND 
C>O AND 
C>Mov(C,8,E) AND 
C>Ref(H,-1); 
Sell:=C<Ref(C,-1) AND 
C<O AND 
C<Mov(C,8,E) AND 
C<Ref(L,-1); 
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
-------------------------
Highlight Tab 
{Long} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
State:=If(BarsSince(Buy)>BarsSince(Sell),1,0); 
State=0 

{Short} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
State:=If(BarsSince(Buy)>BarsSince(Sell),1,0); 
State=1 

Symbol Tab 
{EL} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
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 

{ES} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
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
-------------------------------
Highlights 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=1 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=0 

Symbols tab 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=1 and Ref(D,-1)=0 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=0 and Ref(D,-1)=1
------------------------------
Per1:=Input("max length",10,100,30); 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=Max(MN+(1.33*SD),2.08); 
Val2:=Min(MN-(1.33*SD),-2.08); 
Val3:=Max(MN+(.33*SD),1.08); 
Val4:=Min(MN-(.33*SD),-1.08); 
LN1:=If(PK>=0,Val1,Val2); 
LN2:=If(PK>=0,Val3,Val4); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
Red;Green;LN1;LN2;
-------------------------
Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Buy:=Cross(LN1,0); 
Sell:=Cross(0,LN1); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(sell),1,0)); 
D;
-----------------------------------
Per1:=Input("max length",1,100,8); 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov(Mov((RWH-RWL),3,W),3,S); 
KCD:=PK-Mov(PK,8,S); 
MN:=Mov(KCD,Per1,S); 
SD:=Stdev(KCD,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(KCD,-1)>=0 AND KCD>0,Val1,If(Ref(KCD,-1)<=0 AND KCD<0,Val2,0)); 
Red:=If(Ref(KCD,-1)>KCD,KCD,0); 
Green:=If(KCD>Ref(KCD,-1),KCD,0); 
Red;Green;LN;
---------------------------
HighValue:=(HIGH*(1+2*(((HIGH-LOW)/((HIGH+LOW)/2))*1000)*0.001)); 

UpperBand:=Mov(HighValue,20,S); 

MidPoint:=Mov(C,20,S); 

LowValue:=(LOW*(1+2*((((HIGH-LOW)/((HIGH+LOW)/2))*1000)*0.001))); 

LowerBand:=Mov(LowValue,20,S); 

UpperBand;MidPoint;LowerBand;
--------------------------
A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
Coef:=Input("Percent",.001,5,.01); 
UC10:=A2+(A2*(Coef*10)); 
LC10:=A2-(A2*(Coef*10)); 

Ref(A1,-1);A1;Ref(A2,-1);A2;Ref(A3,-2);A3;UC10; 
LC10; 

This indicator plots 8 lines,Change the color of the Ref lines to red, change thr color of the A lines to green and change the color of the UC and LC lines to purple 

What this indicator tries to do is to take the average of all of the prices of the past six days and plot them on a daily chart. 
Then it takes the average of all of the prices of the past six weeks and plot them on the Daily Chart.Then it takes the average of all of the prices of the past six months and plots it on the Daily Chart. 

It then uses the Weekly value and sets 10 % bands for extreme areas
-------------------------------
this indicator shows the sum of when the 3 MA's are above or below yesterdays value 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
D
--------------------------
A1:=Sum((H+L+C),6)/18; 
A2:=Sum((H+L+C),30)/90; 
A3:=Sum((H+L+C),127)/381; 
Coef:=Input("Percent",.001,5,.01); 
UC10:=A2+(A2*(Coef*10)); 
LC10:=A2-(A2*(Coef*10)); 

Ref(A1,-1);A1;Ref(A2,-1);A2;Ref(A3,-1);A3;UC10;LC10; 

This plots just like OHLC 6 DWM,but you can use this on assets that do not have an Opening Price
--------------------------------
Per1:=Input("max length",10,100,30); 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val6:=If(Pk>0,HHV(H-AVTR-(4*SD),20),LLV(L+AVTR+(4*SD),20)); 
Val5:=If(Pk>0,HHV(H-AVTR-(3*SD),20),LLV(L+AVTR+(3*SD),20)); 
Val4:=If(Pk>0,HHV(H-AVTR-(2*SD),20),LLV(L+AVTR+(2*SD),20)); 
Val3:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
Val1:=If(Pk>0,HHV(H-AVTR+SD,20),LLV(L+AVTR-SD,20)); 
Val6;Val5;Val4;Val3;Val2;Val1; 

Plot this on the price chart and change the colors of each line
--------------------------------------
Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); 
PK;Ref(PK,-1);
----------------------------
Per1:=Input("Length",5,100,30); 
Kup:=If(Mov(ATR(1),Per1,S)>0,((Ref(H,-Per1)/L))/((Mov(V,Per1,S)*Sqrt(Per1))),PREV); 
Kdn:=If(Mov(ATR(1),Per1,S)>0,((H/Ref(L,-Per1)))/((Mov(V,Per1,S)*Sqrt(Per1))),PREV); 
A:=(Kdn-Kup)*10000; 
A;
-------------------------
momu:=If(C>Ref(C,-1),C-Ref(C,-1),0); 
momd:=If(C<Ref(C,-1),Ref(C,-1)-C,0); 
A1:=Stdev(momu,100); 
A2:=Stdev(momd,100); 
Mup:=If(C-Ref(C,-1)>A1,C-Ref(C,-1),A1); 
Mdn:=If(Ref(C,-1)-C>A2,Ref(C,-1)-C,A2); 
Per1:=Input("Length of CMO",5,100,15); 
Per3:=Input("Length of Sig",3,100,5); 
Pk:=100*((Sum(Mup,Per1)-Sum(Mdn,Per1)) 
/(Sum(Mup,Per1)+Sum(Mdn,Per1))); 
Per2:=100; 
MN:=Mov(Pk,Per2,S); 
SD:=Stdev(Pk,Per2); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
Sig:=Mov(Pk,Per3,E); 
Red;Green;LN; 
Sig; 


this cmo must be at least the standard deviation of momemtum up or down, I then used the same method that Cynthia Kase uses in her Peak Osc to find extremes. 

this indicator plots 4 lines, change the 2 lines that crisscross the 0 line to plot as a histogram, color the rising lines green,color declining lines red
--------------------------
Highlights Tab 
{Long} 
A1:=RSI(C,3); 
A2:=RSI(C,8); 
A3:=RSI(C,13); 
UP:=If(A1>50 AND A2>50 AND A3>50,true,false); 
DN:=If(A1<50 AND A2<50 AND A3<50,True,False); 
i:=Cum(up>-1 AND dn>-1)=1; 
x:=BarsSince(i OR up)<=BarsSince(i OR dn)=0; 
X=0 

{Short} 
A1:=RSI(C,3); 
A2:=RSI(C,8); 
A3:=RSI(C,13); 
UP:=If(A1>50 AND A2>50 AND A3>50,true,false); 
DN:=If(A1<50 AND A2<50 AND A3<50,True,False); 
i:=Cum(up>-1 AND dn>-1)=1; 
x:=BarsSince(i OR up)>=BarsSince(i OR dn)=0; 
X=0 

Symbol Tab 
{EL} 
A1:=RSI(C,3); 
A2:=RSI(C,8); 
A3:=RSI(C,13); 
UP:=If(A1>50 AND A2>50 AND A3>50,true,false); 
DN:=If(A1<50 AND A2<50 AND A3<50,True,False); 
i:=Cum(up>-1 AND dn>-1)=1; 
x:=BarsSince(i OR up)<=BarsSince(i OR dn)=0; 
X=0 AND Ref(X,-1)>0 

{ES} 
A1:=RSI(C,3); 
A2:=RSI(C,8); 
A3:=RSI(C,13); 
UP:=If(A1>50 AND A2>50 AND A3>50,true,false); 
DN:=If(A1<50 AND A2<50 AND A3<50,True,False); 
i:=Cum(up>-1 AND dn>-1)=1; 
x:=BarsSince(i OR up)>=BarsSince(i OR dn)=0; 
X=0 AND Ref(X,-1)>0
--------------------------------
Highlight tab 
{LONG} 
Buy:=Alert(Cross(C,Mov(C,65,S)),3) AND Sum(C>Mov(C,65,S),3)=3; 
Sell:=Alert(Cross(Mov(C,65,S),C),3) AND Sum(C<Mov(C,65,S),3)=3; 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)<=BarsSince(i OR sell)=0; 
X=0 

{Short} 
Buy:=Alert(Cross(C,Mov(C,65,S)),3) AND Sum(C>Mov(C,65,S),3)=3; 
Sell:=Alert(Cross(Mov(C,65,S),C),3) AND Sum(C<Mov(C,65,S),3)=3; 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)>=BarsSince(i OR sell)=0; 
X=0 

Symbol Tab 

{EL} 
Buy:=Alert(Cross(C,Mov(C,65,S)),3) AND Sum(C>Mov(C,65,S),3)=3; 
Sell:=Alert(Cross(Mov(C,65,S),C),3) AND Sum(C<Mov(C,65,S),3)=3; 
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 

{ES} 
Buy:=Alert(Cross(C,Mov(C,65,S)),3) AND Sum(C>Mov(C,65,S),3)=3; 
Sell:=Alert(Cross(Mov(C,65,S),C),3) AND Sum(C<Mov(C,65,S),3)=3; 
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
-------------------------------------
To create this expert, you have to create 2 custom indicators first 
{Countbacklines buy} 
Days:=10; 
BV:=If(L>LLV(L,Days),PREV, 
If(Ref(H,-2)>Ref(H,-1) AND Ref(H,-1)>H,Ref(H,-2), 
If(Ref(H,-3)>HHV(H,3) AND Alert(Ref(H,-1)>H,2),Ref(H,-3), 
If(Ref(H,-4)>HHV(H,4) AND Alert(Ref(H,-1)>H,3),Ref(H,-4), 
If(Ref(H,-5)>HHV(H,5) AND Alert(Ref(H,-1)>H,4),Ref(H,-5), 
PREV))))); 
BV; 

{Countbacklines Sell} 
Days:=10; 
SV:=If(H<HHV(H,Days),PREV, 
If(Ref(L,-2)<Ref(L,-1) AND Ref(L,-1)<L,Ref(L,-2), 
If(Ref(L,-3)<LLV(L,3) AND Alert(Ref(L,-1)<L,2),Ref(L,-3), 
If(Ref(L,-4)<LLV(L,4) AND Alert(Ref(L,-1)<L,3),Ref(L,-4), 
If(Ref(L,-5)<LLV(L,5) AND Alert(Ref(L,-1)<L,4),Ref(L,-5), 
PREV))))); 
SV; 

Now for the expert 
under the highlight tab 

Long 

Buy:=Cross(C, Fml( "Countbacklines buy")); 
Sell:=Cross(Fml( "Countbacklines Sell"),C); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=-1 

Short 

Buy:=Cross(C, Fml( "Countbacklines buy")); 
Sell:=Cross(Fml( "Countbacklines Sell"),C); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=1 

now under the symbol tab 

EL 

Buy:=Cross(C, Fml( "Countbacklines buy")); 
Sell:=Cross(Fml( "Countbacklines Sell"),C); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=-1 AND Ref(D,-1)>-1 

ES 

Buy:=Cross(C, Fml( "Countbacklines buy")); 
Sell:=Cross(Fml( "Countbacklines Sell"),C); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=1 AND Ref(D,-1)<1
--------------------------------
Highlights 

Long: 

Buy:=C>(Ref(HHV(H,1),-1)*(1.005)); 
Sell:=C<(Ref(LLV(L,1),-1)*(1.005)); 
A:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
A=1 

Short: 

Buy:=C>(Ref(HHV(H,1),-1)*(1.005)); 
Sell:=C<(Ref(LLV(L,1),-1)*(1.005)); 
A:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
A=0 


Symbols 

EL: 

Buy:=C>(Ref(HHV(H,1),-1)*(1.005)); 
Sell:=C<(Ref(LLV(L,1),-1)*(1.005)); 
A:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
A=1 and Ref(A,-1)=0 

ES: 

Buy:=C>(Ref(HHV(H,1),-1)*(1.005)); 
Sell:=C<(Ref(LLV(L,1),-1)*(1.005)); 
A:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
A=0 and Ref(A,-1)=1
------------------------------
Here is the formula for acceleration bands 

x:=(H-L) / (H+L) /2; 
UB:=Mov(H*(1+((2*X)*100)*.01),20,E); 
LB:= Mov(L*(1-((2*X)*100)*.01),20,E); 
MB:=Mov(C,20,E); 
UB;MB;LB;
-------------------------------
This indicator is included in the Fibonacci trader program, I have adapted it to plot the weekly Support and Resistance lines on a daily chart. 

Plot them on the daily price chart, change the color of the top 2 lines to dark red and style to dots,the next two lines should be red and plot as dots 
the middle line is blue, the next 2 lines should be light green and plotted as dots, and finally the bottom 2 lines are dark green and plotted as dots 

A1:=BarsSince(DayOfWeek()=5)=1; 
A2:=BarsSince(DayOfWeek()=5)=6; 
CON:=If(BarsSince(A1)<BarsSince(A2),-1,If(BarsSince(A1)>BarsSince(A2),1,0)); 
WH:=If(Con=-1,ValueWhen(1,DayOfWeek()=5,Ref(HHV(H,5),-1)),If(Con=1,ValueWhen(1,DayOfWeek()=4,Ref(HHV(H,4),-1)),ValueWhen(1,DayOfWeek()=5,Ref(HHV(H,5),-1)))); 
WL:=If(Con=-1,ValueWhen(1,DayOfWeek()=5,Ref(LLV(L,5),-1)),If(Con=1,ValueWhen(1,DayOfWeek()=4,Ref(LLV(L,4),-1)),ValueWhen(1,DayOfWeek()=5,Ref(LLV(L,5),-1)))); 
WCL:=If(Con=-1,ValueWhen(1,DayOfWeek()=5,Ref(C,-1)),If(Con=1,ValueWhen(1,DayOfWeek()=4,Ref(C,-1)),ValueWhen(1,DayOfWeek()=5,Ref(C,-1)))); 
BP:=(WH+WL+WCL)/3; 
D:=((WH-WL)/2)+BP; 
B:=BP-((WH-WL)/2); 
D1:=(WH-WL)+BP; 
B1:=BP-(WH-WL); 
SB1:=BP-((WH-WL)*.618); 
SB2:=BP-((WH-WL)*1.382); 
RB1:=((WH-WL)*.618)+BP; 
RB2:=((WH-WL)*1.382)+BP; 
RB2;D1;RB1;D;BP;B;SB1;B1;SB2;
--------------------------------
This version just plots the last value of the Jackson Zones 

TF:=Input("1=hour 2=week 3=month 4=year ",1,4,3); 
NW:=If(TF=1,ROC(Minute(),1,$)<0,If(TF=2,ROC(DayOfWeek(),1,$)<0,If(TF=3,ROC(DayOfMonth(),1,$)<0,ROC(Month(),1,$)<0))); 
A1:=Cum(1); 
WH:=ValueWhen(1,Nw,Ref(HighestSince(1,Nw,H),-1)); 
WL:=ValueWhen(1,Nw,Ref(LowestSince(1,Nw,L),-1)); 
WCL:=ValueWhen(1,Nw,Ref(C,-1)); 
BP:=LastValue((WH+WL+WCL)/3); 
D:=LastValue(((WH-WL)/2)+BP); 
B:=LastValue(BP-((WH-WL)/2)); 
D1:=LastValue((WH-WL)+BP); 
B1:=LastValue(BP-(WH-WL)); 
SB1:=LastValue(BP-((WH-WL)*.618)); 
SB2:=LastValue(BP-((WH-WL)*1.382)); 
RB1:=LastValue(((WH-WL)*.618)+BP); 
RB2:=LastValue(((WH-WL)*1.382)+BP); 
A2:=LastValue(A1-BarsSince(NW>0)); 
If(A1<A2,BarsSince(A1>=A2),RB2); 
If(A1<A2,BarsSince(A1>=A2),D1); 
If(A1<A2,BarsSince(A1>=A2),RB1); 
If(A1<A2,BarsSince(A1>=A2),D); 
If(A1<A2,BarsSince(A1>=A2),BP); 
If(A1<A2,BarsSince(A1>=A2),B); 
If(A1<A2,BarsSince(A1>=A2),SB1); 
If(A1<A2,BarsSince(A1>=A2),B1); 
If(A1<A2,BarsSince(A1>=A2),SB2);
------------------------------------
This is the final revision for this indicator 

TF:=Input("1=hour 2=day 3=week 4=month 5=year ",1,5,4); 
NW:=If(TF=1,ROC(Minute(),1,$)<0,If(TF=2,ROC(Hour(),1,$)<0, If(TF=3,ROC(DayOfWeek(),1,$)<0,If(TF=4,ROC(DayOfMonth(),1,$)<0,ROC(Month(),1,$)<0)))); 
A1:=Cum(1); 
A2:=LastValue(A1-BarsSince(NW>0)); 
WH:=ValueWhen(1,Nw,Ref(HighestSince(1,Nw,H),-1)); 
WL:=ValueWhen(1,Nw,Ref(LowestSince(1,Nw,L),-1)); 
WCL:=ValueWhen(1,Nw,Ref(C,-1)); 
BP:=LastValue((WH+WL+WCL)/3); 
RB2:=If(A1<A2,BarsSince(A1>=A2),LastValue(((WH-WL)*1.382)+BP)); 
D1:=If(A1<A2,BarsSince(A1>=A2),LastValue((WH-WL)+BP)); 
RB1:=If(A1<A2,BarsSince(A1>=A2),LastValue(((WH-WL)*.618)+BP)); 
D:=If(A1<A2,BarsSince(A1>=A2),LastValue(((WH-WL)/2)+BP)); 
MBP:=If(A1<A2,BarsSince(A1>=A2),LastValue((WH+WL+WCL)/3)); 
B:=If(A1<A2,BarsSince(A1>=A2),LastValue(BP-((WH-WL)/2))); 
SB1:=If(A1<A2,BarsSince(A1>=A2),LastValue(BP-((WH-WL)*.618))); 
B1:=If(A1<A2,BarsSince(A1>=A2),LastValue(BP-(WH-WL))); 
SB2:=If(A1<A2,BarsSince(A1>=A2), LastValue(BP-((WH-WL)*1.382))); 
RB2;D1;RB1;D;MBP;B;SB1;B1;SB2;
------------------------------------
This indicator for cycles plots 5 lines: 
A 4 day cycle,A 8 day cycle,A 16 day cycle, A 32 day cycle,A 64 day cycle 

P0:=Mov(((C-LLV(L,4))/(HHV(H,4)-LLV(L,4)))*100,3,E); 
P1:=Mov(((C-LLV(L,8))/(HHV(H,8)-LLV(L,8)))*100,3,E); 
P2:=Mov(((C-LLV(L,16))/(HHV(H,16)-LLV(L,16)))*100,3,E); 
P3:=Mov(((C-LLV(L,32))/(HHV(H,32)-LLV(L,32)))*100,3,E); 
P4:=Mov(((C-LLV(L,64))/(HHV(H,64)-LLV(L,64)))*100,3,E); 
A0:=Mov(((P0-LLV(P0,4))/(HHV(P0,4)-LLV(P0,4)))*100,3,E); 
A1:=Mov(((P1-LLV(P1,8))/(HHV(P1,8)-LLV(P1,8)))*100,3,E); 
A2:=Mov(((P2-LLV(P2,16))/(HHV(P2,16)-LLV(P2,16)))*100,3,E); 
A3:=Mov(((P3-LLV(P3,32))/(HHV(P3,32)-LLV(P3,32)))*100,3,E); 
A4:=Mov(((P4-LLV(P4,64))/(HHV(P4,64)-LLV(P4,64)))*100,3,E); 
A0;A1;A2;A3;A4;
--------------------------
This indicator plots a 15,30,45,90 bar cycle 

P1:=Mov(((C-LLV(L,15))/(HHV(H,15)-LLV(L,15)))*100,3,E); 
P2:=Mov(((C-LLV(L,30))/(HHV(H,30)-LLV(L,30)))*100,3,E); 
P3:=Mov(((C-LLV(L,45))/(HHV(H,45)-LLV(L,45)))*100,3,E); 
P4:=Mov(((C-LLV(L,90))/(HHV(H,90)-LLV(L,90)))*100,3,E); 
A1:=Mov(((P1-LLV(P1,15))/(HHV(P1,15)-LLV(P1,15)))*100,3,E); 
A2:=Mov(((P2-LLV(P2,30))/(HHV(P2,30)-LLV(P2,30)))*100,3,E); 
A3:=Mov(((P3-LLV(P3,45))/(HHV(P3,45)-LLV(P3,45)))*100,3,E); 
A4:=Mov(((P4-LLV(P4,90))/(HHV(P4,90)-LLV(P4,90)))*100,3,E); 
A1;A2;A3;A4;
------------------------------
This is a binary formula that plots +1 for a new high and -1 for a new low 

nh:=H>Ref(HHV(H,60),-1); 
nl:=L<Ref(LLV(L,60),-1); 
DV:=V>Ref(V,-1)*2; 
If(nh AND DV,1,If(nl AND DV,-1,0));
------------------------------
Gann HiLo indicator 

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),1,If(CLOSE<Ref(Mov(L,3,S),-1),-1,0)); 
HLv:=ValueWhen(1,HLd<>0,HLd); 
HiLo:=If(HLv=-1,Mov(H,3,S),Mov(L,3,S)); 
HiLo; 

Highlights tab 

LONG 

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),1,If(CLOSE<Ref(Mov(L,3,S),-1),-1,0)); 
HLv:=ValueWhen(1,HLd<>0,HLd); 
HiLo:=If(HLv=-1,Mov(H,3,S),Mov(L,3,S)); 
Buy:=Cross(C,HiLo); 
Sell:=Cross(HiLo,C); 
X:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
X=1 

SHORT 

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),1,If(CLOSE<Ref(Mov(L,3,S),-1),-1,0)); 
HLv:=ValueWhen(1,HLd<>0,HLd); 
HiLo:=If(HLv=-1,Mov(H,3,S),Mov(L,3,S)); 
Buy:=Cross(C,HiLo); 
Sell:=Cross(HiLo,C); 
X:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
X=0 

Symbols tab 

Long 

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),1,If(CLOSE<Ref(Mov(L,3,S),-1),-1,0)); 
HLv:=ValueWhen(1,HLd<>0,HLd); 
HiLo:=If(HLv=-1,Mov(H,3,S),Mov(L,3,S)); 
Buy:=Cross(C,HiLo); 
Sell:=Cross(HiLo,C); 
X:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
X=1 and Ref(X,-1)=0 

Short 

HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),1,If(CLOSE<Ref(Mov(L,3,S),-1),-1,0)); 
HLv:=ValueWhen(1,HLd<>0,HLd); 
HiLo:=If(HLv=-1,Mov(H,3,S),Mov(L,3,S)); 
Buy:=Cross(C,HiLo); 
Sell:=Cross(HiLo,C); 
X:=If(BarsSince(Buy)<BarsSince(Sell),1,If(BarsSince(Buy)>BarsSince(Sell),0,1)); 
X=0 and Ref(X,-1)=1
---------------------------
Indicator 

Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
Val1.5:=If(Pk>0,HHV(H-1.5*ATR(5),10),LLV(L+1.5*ATR(5),10)); 
Val1.5; 

Highlights Tab 

Long 

Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
Val1.5:=If(Pk>0,HHV(H-1.5*ATR(5),10),LLV(L+1.5*ATR(5),10)); 
Buy:=C>Val1.5; 
Sell:=C<Val1.5; 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)<=BarsSince(i OR sell)=0; 
X=0 

Short 

Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
Val1.5:=If(Pk>0,HHV(H-1.5*ATR(5),10),LLV(L+1.5*ATR(5),10)); 
Buy:=C>Val1.5; 
Sell:=C<Val1.5; 
i:=Cum(buy>-1 AND sell>-1)=1; 
x:=BarsSince(i OR buy)>=BarsSince(i OR sell)=0; 
X=0 

Symbol Tab 

Long 

Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
Val1.5:=If(Pk>0,HHV(H-1.5*ATR(5),10),LLV(L+1.5*ATR(5),10)); 
Buy:=C>Val1.5; 
Sell:=C<Val1.5; 
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 

Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
Val1.5:=If(Pk>0,HHV(H-1.5*ATR(5),10),LLV(L+1.5*ATR(5),10)); 
Buy:=C>Val1.5; 
Sell:=C<Val1.5; 
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
--------------------
Highlight Tab 

Long 

per1:=66; 
bias:=(CLOSE - (Sum(C,per1)/per1))/ (Sum(C,per1)/per1) * 100; 
per2:=24; 
nbiasmov:=Mov(bias,per2,S); 
bias> 
nbiasmov 

Short 

per1:=66; 
bias:=(CLOSE - (Sum(C,per1)/per1))/ (Sum(C,per1)/per1) * 100; 
per2:=24; 
nbiasmov:=Mov(bias,per2,S); 
bias< 
nbiasmov 

Symbol Tab 

Long 

per1:=66; 
bias:=(CLOSE - (Sum(C,per1)/per1))/ (Sum(C,per1)/per1) * 100; 
per2:=24; 
nbiasmov:=Mov(bias,per2,S); 
Cross(bias,nbiasmov) 

Short 

per1:=66; 
bias:=(CLOSE - (Sum(C,per1)/per1))/ (Sum(C,per1)/per1) * 100; 
per2:=24; 
nbiasmov:=Mov(bias,per2,S); 
Cross(nbiasmov,bias)
-----------------------------
Highlights 

Long 

A1:=Mov(BuyP(),5,VAR)*.9382; A2:=Mov(SellP(),5,VAR)*1.0618; 
Buy:=Cross(A1,A2); 
Sell:=Cross(A2,A1); 
B:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
B=-1 

Short 

A1:=Mov(BuyP(),5,VAR)*.9382; A2:=Mov(SellP(),5,VAR)*1.0618; 
Buy:=Cross(A1,A2); 
Sell:=Cross(A2,A1); 
B:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
B=1 

Symbol tab 

Long 

A1:=Mov(BuyP(),5,VAR)*.9382; A2:=Mov(SellP(),5,VAR)*1.0618; 
Buy:=Cross(A1,A2); 
Sell:=Cross(A2,A1); 
B:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
B=-1 AND Ref(B,-1)>-1 

Short 

A1:=Mov(BuyP(),5,VAR)*.9382; A2:=Mov(SellP(),5,VAR)*1.0618; 
Buy:=Cross(A1,A2); 
Sell:=Cross(A2,A1); 
B:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
B=1 AND Ref(B,-1)<1
------------------------------
Highlights Tab 

Long 

PK:=(ROC(C,14,%)*10 + ROC(C,11,%)*10 + ROC(Ref(C,-1),14,%)*9 + ROC(Ref(C,-1),11,%)*9 + ROC(Ref(C,-2),14,%)*8 + ROC(Ref(C,-2),11,%)*8 + ROC(Ref(C,-3),14,%)*7 + ROC(Ref(C,-3),11,%)*7 + ROC(Ref(C,-4),14,%)*6 + ROC(Ref(C,-4),11,%)*6 + ROC(Ref(C,-5),14,%)*5 + ROC(Ref(C,-5),11,%)*5 + ROC(Ref(C,-6),14,%)*4 + ROC(Ref(C,-6),11,%)*4 + ROC(Ref(C,-7),14,%)*3 + ROC(Ref(C,-7),11,%)*3 + ROC(Ref(C,-8),14,%)*2 + ROC(Ref(C,-8),11,%)*2 + ROC(Ref(C,-9),14,%) + ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 

Short 

PK:=(ROC(C,14,%)*10 + ROC(C,11,%)*10 + ROC(Ref(C,-1),14,%)*9 + ROC(Ref(C,-1),11,%)*9 + ROC(Ref(C,-2),14,%)*8 + ROC(Ref(C,-2),11,%)*8 + ROC(Ref(C,-3),14,%)*7 + ROC(Ref(C,-3),11,%)*7 + ROC(Ref(C,-4),14,%)*6 + ROC(Ref(C,-4),11,%)*6 + ROC(Ref(C,-5),14,%)*5 + ROC(Ref(C,-5),11,%)*5 + ROC(Ref(C,-6),14,%)*4 + ROC(Ref(C,-6),11,%)*4 + ROC(Ref(C,-7),14,%)*3 + ROC(Ref(C,-7),11,%)*3 + ROC(Ref(C,-8),14,%)*2 + ROC(Ref(C,-8),11,%)*2 + ROC(Ref(C,-9),14,%) + ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol Tab 

Long 

PK:=(ROC(C,14,%)*10+ROC(C,11,%)*10+ ROC(Ref(C,-1),14,%)*9+ROC(Ref(C,-1),11,%)*9+ROC(Ref(C,-2),14,%)*8+ROC(Ref(C,-2),11,%)*8+ROC(Ref(C,-3),14,%)*7+ROC(Ref(C,-3),11,%)*7+ROC(Ref(C,-4),14,%)*6+ROC(Ref(C,-4),11,%)*6+ROC(Ref(C,-5),14,%)*5+ROC(Ref(C,-5),11,%)*5+ROC(Ref(C,-6),14,%)*4+ROC(Ref(C,-6),11,%)*4+ROC(Ref(C,-7),14,%)*3+ROC(Ref(C,-7),11,%)*3+ROC(Ref(C,-8),14,%)*2+ROC(Ref(C,-8),11,%)*2+ROC(Ref(C,-9),14,%)+ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State< Ref(State,-1) 

Short 

PK:=(ROC(C,14,%)*10 + ROC(C,11,%)*10 + ROC(Ref(C,-1),14,%)*9 + ROC(Ref(C,-1),11,%)*9 + ROC(Ref(C,-2),14,%)*8 + ROC(Ref(C,-2),11,%)*8 + ROC(Ref(C,-3),14,%)*7 + ROC(Ref(C,-3),11,%)*7 + ROC(Ref(C,-4),14,%)*6 + ROC(Ref(C,-4),11,%)*6 + ROC(Ref(C,-5),14,%)*5 + ROC(Ref(C,-5),11,%)*5 + ROC(Ref(C,-6),14,%)*4 + ROC(Ref(C,-6),11,%)*4 + ROC(Ref(C,-7),14,%)*3 + ROC(Ref(C,-7),11,%)*3 + ROC(Ref(C,-8),14,%)*2 + ROC(Ref(C,-8),11,%)*2 + ROC(Ref(C,-9),14,%) + ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State> Ref(State,-1)
-----------------------------
Highlights tab 

long 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 


Short 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol tab 

long 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State< Ref(State,-1) 

Short 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State> Ref(State,-1)
----------------------------
Highlights tab 

Long 

PK:=LinRegSlope(C,13)+100 * ( Mov( Mov( ROC(C,1,$),34,E),21,E) / Mov( Mov( Abs( ROC(C,1,$)),34,E),21,E))+100 * ( Mov( Mov(C - (.5 * ( HHV(H,13) + LLV(L,13))),21,E),3,E) / (.5*Mov( Mov( HHV(H,13) - LLV(L,13),21,E),3,E))); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 

Short 

PK:=LinRegSlope(C,13)+100 * ( Mov( Mov( ROC(C,1,$),34,E),21,E) / Mov( Mov( Abs( ROC(C,1,$)),34,E),21,E))+100 * ( Mov( Mov(C - (.5 * ( HHV(H,13) + LLV(L,13))),21,E),3,E) / (.5*Mov( Mov( HHV(H,13) - LLV(L,13),21,E),3,E))); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol tab 

long 

PK:=LinRegSlope(C,13)+100 * ( Mov( Mov( ROC(C,1,$),34,E),21,E) / Mov( Mov( Abs( ROC(C,1,$)),34,E),21,E))+100 * ( Mov( Mov(C - (.5 * ( HHV(H,13) + LLV(L,13))),21,E),3,E) / (.5*Mov( Mov( HHV(H,13) - LLV(L,13),21,E),3,E))); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State< Ref(State,-1) 

Short 

PK:=LinRegSlope(C,13)+100 * ( Mov( Mov( ROC(C,1,$),34,E),21,E) / Mov( Mov( Abs( ROC(C,1,$)),34,E),21,E))+100 * ( Mov( Mov(C - (.5 * ( HHV(H,13) + LLV(L,13))),21,E),3,E) / (.5*Mov( Mov( HHV(H,13) - LLV(L,13),21,E),3,E))); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State>Ref(State,-1)
---------------------------------
Highlights tab 

Long 

A:=If(Mov(OBV(),5,S)>Mov(OBV(),15,S),1,0); 
A=1 

Short 

A:=If(Mov(OBV(),5,S)>Mov(OBV(),15,S),1,0); 
A=0 

Symbol tab 

Long 

A:=If(Mov(OBV(),5,S)>Mov(OBV(),15,S),1,0); 
A=1 AND Ref(A,-1)=0 

Short 

A:=If(Mov(OBV(),5,S)>Mov(OBV(),15,S),1,0); 
A=0 AND Ref(A,-1)=1
-------------------------
Highlights tab 

Long 

PK:=2.5*Dema(Mov(C,3,E)-Ref(Mov(C,3,E),-3),10); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 

Short 

PK:=2.5*Dema(Mov(C,3,E)-Ref(Mov(C,3,E),-3),10); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol tab 

Long 

PK:=2.5*Dema(Mov(C,3,E)-Ref(Mov(C,3,E),-3),10); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 and Ref(State,-1)=1 

Short 

PK:=2.5*Dema(Mov(C,3,E)-Ref(Mov(C,3,E),-3),10); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 and Ref(State,-1)=0
----------------------------
Highlights Tab 

Long 

Period:=25; 
A:=TSF(C,period) - LinearReg(C,period); 
B:=Ref(A,-2); 
A1:=TSF(C,period*2) - LinearReg(C,period*2); 
B1:=Ref(A1,-2); 
Buy:=Cross(A,A1); 
Sell:=Cross(A1,A); 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)<=BarsSince(i OR Sell)=0; 
X=0 

Short 

Period:=25; 
A:=TSF(C,period) - LinearReg(C,period); 
B:=Ref(A,-2); 
A1:=TSF(C,period*2) - LinearReg(C,period*2); 
B1:=Ref(A1,-2); 
Buy:=Cross(A,A1); 
Sell:=Cross(A1,A); 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)>=BarsSince(i OR Sell)=0; 
X=0 

Symbol tab 

long 

Period:=25; 
A:=TSF(C,period) - LinearReg(C,period); 
B:=Ref(A,-2); 
A1:=TSF(C,period*2) - LinearReg(C,period*2); 
B1:=Ref(A1,-2); 
Buy:=Cross(A,A1); 
Sell:=Cross(A1,A); 
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 

Period:=25; 
A:=TSF(C,period) - LinearReg(C,period); 
B:=Ref(A,-2); 
A1:=TSF(C,period*2) - LinearReg(C,period*2); 
B1:=Ref(A1,-2); 
Buy:=Cross(A,A1); 
Sell:=Cross(A1,A); 
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
------------------------------
Highlights tab 

Long 

PK:=Mov((Mov(C,3,E)-Mov(C,13,E)),3,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 

Short 

PK:=Mov((Mov(C,3,E)-Mov(C,13,E)),3,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol tab 

Long 

PK:=Mov((Mov(C,3,E)-Mov(C,13,E)),3,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State<Ref(State,-1) 

Short 

PK:=Mov((Mov(C,3,E)-Mov(C,13,E)),3,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State>Ref(State,-1)
-------------------------------
Highlights tab 

Long 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=1 

Short 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=0 

Symbol tab 

long 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=1 AND Ref(D,-1)=0 

Short 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=0 AND Ref(D,-1)=1
-----------------------
Highlights tab 

Long 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=1 

Short 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=0 

Symbol tab 

long 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=1 AND Ref(D,-1)=0 

Short 

A:=C>1.02*Mov(C,5,S); 
B:=C<.98*Mov(C,5,S); 
D:=If(A,1,If(B,0,PREV)); 
D=0 AND Ref(D,-1)=1
---------------------------
Highlights 

Long 

A:=V>Mov(V,21,S)*1.5; 
Sell:=A=1 AND Ref(A,-1)=0 AND C<Ref(C,-1); 
Buy:=A=1 AND Ref(A,-1)=0 AND C>Ref(C,-1); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Sell)<BarsSince(Buy),1,0)); 
D=-1 

Short 

A:=V>Mov(V,21,S)*1.5; 
Sell:=A=1 AND Ref(A,-1)=0 AND C<Ref(C,-1); 
Buy:=A=1 AND Ref(A,-1)=0 AND C>Ref(C,-1); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Sell)<BarsSince(Buy),1,0)); 
D=1 

Symbol tab 

Long 

A:=V>Mov(V,21,S)*1.5; 
Sell:=A=1 AND Ref(A,-1)=0 AND C<Ref(C,-1); 
Buy:=A=1 AND Ref(A,-1)=0 AND C>Ref(C,-1); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Sell)<BarsSince(Buy),1,0)); 
D=-1 AND Ref(D,-1)>-1 

Short 

A:=V>Mov(V,21,S)*1.5; 
Sell:=A=1 AND Ref(A,-1)=0 AND C<Ref(C,-1); 
Buy:=A=1 AND Ref(A,-1)=0 AND C>Ref(C,-1); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Sell)<BarsSince(Buy),1,0)); 
D=1 AND Ref(D,-1)<1
----------------------------
Highlights tab 

Long 

A1:=Ref(Wilders(MP(),5),-3); 
A2:=Ref(Wilders(MP(),8),-5); 
A3:=Ref(Wilders(MP(),13),-8); 
up:=If(A1>A2 AND A2>A3,True,False); 
dn:=If(A1<A2 AND A2<A3,True,False); 
up=True 

Short 

A1:=Ref(Wilders(MP(),5),-3); 
A2:=Ref(Wilders(MP(),8),-5); 
A3:=Ref(Wilders(MP(),13),-8); 
up:=If(A1>A2 AND A2>A3,True,False); 
dn:=If(A1<A2 AND A2<A3,True,False); 
dn=True 

Symbol Tab 

Long 

A1:=Ref(Wilders(MP(),5),-3); 
A2:=Ref(Wilders(MP(),8),-5); 
A3:=Ref(Wilders(MP(),13),-8); 
up:=If(A1>A2 AND A2>A3,True,False); 
dn:=If(A1<A2 AND A2<A3,True,False); 
up=True and Ref(up,-1)=False 

Short 

A1:=Ref(Wilders(MP(),5),-3); 
A2:=Ref(Wilders(MP(),8),-5); 
A3:=Ref(Wilders(MP(),13),-8); 
up:=If(A1>A2 AND A2>A3,True,False); 
dn:=If(A1<A2 AND A2<A3,True,False); 
dn=True and Ref(dn,-1)=False
--------------------------
Highlights tab 

Long 

maxH:=HHVBars(H,8); 
minL:=LLVBars(L,8); 
Sell:=Cross(maxH>2 
AND ValueWhen(1,maxH=0,L)>LLV(L,8) 
AND maxH>BarsSince(LLV(L,8)) 
AND BarsSince(H>Ref(H,-1))<maxH 
AND L<Ref(L,-1) AND C<Ref(C,-1) AND C<O,0.5); 
Buy:=Cross(minL>2 
AND ValueWhen(1,minL=0,H)<HHV(H,8) 
AND minL>BarsSince(HHV(H,8)) 
AND BarsSince(L>Ref(L,-1))<minL 
AND H>Ref(H,-1) AND C>Ref(C,-1) AND C>O,0.5); 

D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=-1 

Short 

maxH:=HHVBars(H,8); 
minL:=LLVBars(L,8); 
Sell:=Cross(maxH>2 
AND ValueWhen(1,maxH=0,L)>LLV(L,8) 
AND maxH>BarsSince(LLV(L,8)) 
AND BarsSince(H>Ref(H,-1))<maxH 
AND L<Ref(L,-1) AND C<Ref(C,-1) AND C<O,0.5); 
Buy:=Cross(minL>2 
AND ValueWhen(1,minL=0,H)<HHV(H,8) 
AND minL>BarsSince(HHV(H,8)) 
AND BarsSince(L>Ref(L,-1))<minL 
AND H>Ref(H,-1) AND C>Ref(C,-1) AND C>O,0.5); 

D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=1 

Symbol tab 

Long 

maxH:=HHVBars(H,8); 
minL:=LLVBars(L,8); 
Sell:=Cross(maxH>2 
AND ValueWhen(1,maxH=0,L)>LLV(L,8) 
AND maxH>BarsSince(LLV(L,8)) 
AND BarsSince(H>Ref(H,-1))<maxH 
AND L<Ref(L,-1) AND C<Ref(C,-1) AND C<O,0.5); 
Buy:=Cross(minL>2 
AND ValueWhen(1,minL=0,H)<HHV(H,8) 
AND minL>BarsSince(HHV(H,8)) 
AND BarsSince(L>Ref(L,-1))<minL 
AND H>Ref(H,-1) AND C>Ref(C,-1) AND C>O,0.5); 

D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=-1 AND Ref(D,-1)>-1 

short 

maxH:=HHVBars(H,8); 
minL:=LLVBars(L,8); 
Sell:=Cross(maxH>2 
AND ValueWhen(1,maxH=0,L)>LLV(L,8) 
AND maxH>BarsSince(LLV(L,8)) 
AND BarsSince(H>Ref(H,-1))<maxH 
AND L<Ref(L,-1) AND C<Ref(C,-1) AND C<O,0.5); 
Buy:=Cross(minL>2 
AND ValueWhen(1,minL=0,H)<HHV(H,8) 
AND minL>BarsSince(HHV(H,8)) 
AND BarsSince(L>Ref(L,-1))<minL 
AND H>Ref(H,-1) AND C>Ref(C,-1) AND C>O,0.5); 

D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=1 AND Ref(D,-1)<1
--------------------------------------
Highlights tab 

Long 

A:= (Sin(((10*(Sum(Cum(1)*C,10)))-(Sum(Cum(1),10)*(Sum(C,10))))/((10*Sum(Pwr(Cum(1),2),10))-Pwr(Sum(Cum(1),10),2))) - Sin(((20*(Sum(Cum(1)*C,20)))-(Sum(Cum(1),20)*(Sum(C,20))))/((20*Sum(Pwr(Cum(1),2),20))-Pwr(Sum(Cum(1),20),2))))*100; 
Buy:=A>0; 
Sell:= A<0; 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)<=BarsSince(i OR Sell)=0; 
X=0 

Short 

A:= (Sin(((10*(Sum(Cum(1)*C,10)))-(Sum(Cum(1),10)*(Sum(C,10))))/((10*Sum(Pwr(Cum(1),2),10))-Pwr(Sum(Cum(1),10),2))) - Sin(((20*(Sum(Cum(1)*C,20)))-(Sum(Cum(1),20)*(Sum(C,20))))/((20*Sum(Pwr(Cum(1),2),20))-Pwr(Sum(Cum(1),20),2))))*100; 
Buy:=A>0; 
Sell:= A<0; 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)>=BarsSince(i OR Sell)=0; 
X=0 

Symbol tab 

Long 

A:= (Sin(((10*(Sum(Cum(1)*C,10)))-(Sum(Cum(1),10)*(Sum(C,10))))/((10*Sum(Pwr(Cum(1),2),10))-Pwr(Sum(Cum(1),10),2))) - Sin(((20*(Sum(Cum(1)*C,20)))-(Sum(Cum(1),20)*(Sum(C,20))))/((20*Sum(Pwr(Cum(1),2),20))-Pwr(Sum(Cum(1),20),2))))*100; 
Buy:=A>0; 
Sell:= A<0; 
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 

A:= (Sin(((10*(Sum(Cum(1)*C,10)))-(Sum(Cum(1),10)*(Sum(C,10))))/((10*Sum(Pwr(Cum(1),2),10))-Pwr(Sum(Cum(1),10),2))) - Sin(((20*(Sum(Cum(1)*C,20)))-(Sum(Cum(1),20)*(Sum(C,20))))/((20*Sum(Pwr(Cum(1),2),20))-Pwr(Sum(Cum(1),20),2))))*100; 
Buy:=A>0; 
Sell:= A<0; 
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
---------------------------
Highlights 

Long 

X:=Log(Mov(RSI(14),2,E)/Mov(RSI(14),3,E)); 
Buy:=Cross(X,0); 
Sell:=Cross(0,X); 
D:=If(Buy,1,If(sell,0,PREV)); 
D=1 

Short 

X:=Log(Mov(RSI(14),2,E)/Mov(RSI(14),3,E)); 
Buy:=Cross(X,0); 
Sell:=Cross(0,X); 
D:=If(Buy,1,If(sell,0,PREV)); 
D=0 

Symbol tab 

Long 

X:=Log(Mov(RSI(14),2,E)/Mov(RSI(14),3,E)); 
Buy:=Cross(X,0); 
Sell:=Cross(0,X); 
D:=If(Buy,1,If(sell,0,PREV)); 
D=1 AND Ref(D,-1)=0 

Short 

X:=Log(Mov(RSI(14),2,E)/Mov(RSI(14),3,E)); 
Buy:=Cross(X,0); 
Sell:=Cross(0,X); 
D:=If(Buy,1,If(sell,0,PREV)); 
D=0 AND Ref(D,-1)=1
---------------
Highlights Tab 

Long 

PK:=Mov((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E)))- 
(Ref((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E))),-10)),2,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.0; 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 

Short 

PK:=Mov((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E)))- 
(Ref((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E))),-10)),2,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.0; 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol tab 

Long 

PK:=Mov((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E)))- 
(Ref((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E))),-10)),2,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.0; 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State< Ref(State,-1) 

Short 

PK:=Mov((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E)))- 
(Ref((Mov(C,10,E)-(Mov(C,10,E)-Mov(C,20,E))),-10)),2,S); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.0; 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State> Ref(State,-1)
-----------------------------
Highlights 

Long 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=1 

Short 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=-1 

Symbol tab 

Long 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=1 AND Ref(State,-1)<1 {EL} 

Short 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=-1 AND Ref(State,-1)>-1 {ES} 

Close Long 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=0 AND Ref(State,-1)=1 {CL} 

Close Short 

RWH:=(H-Ref(L,-30))/(ATR(30)*Sqrt(30)); 
RWL:=(Ref(H,-30)-L)/(ATR(30)*Sqrt(30)); 
Pk:=Mov((RWH-RWL),3,W); 
AVTR:=Mov(HHV(H,2) - LLV(L,2),20, S); 
SD:=Stdev(HHV(H,2) - LLV(L,2),20); 
Val4:=If(Pk>0,HHV(H-AVTR-3*SD,20),LLV(L+AVTR+3*SD,20)); 
Val3:=If(Pk>0,HHV(H-AVTR-2*SD,20),LLV(L+AVTR+2*SD,20)); 
Val2:=If(Pk>0,HHV(H-AVTR-SD,20),LLV(L+AVTR+SD,20)); 
Val1:=If(Pk>0,HHV(H-AVTR,20),LLV(L+AVTR,20)); 
EL:= (Mov(MACD(),9,E)<MACD()) AND (Val3<C); 
CL:= (Val3>C) OR ((Mov(MACD(),9,E)>MACD()) AND Val3>C); 
ES:= (Mov(MACD(),9,E)>MACD()) AND (Val3>C); 
CS:= ( (Val3<C)) OR ((Mov(MACD(),9,E)<MACD()) AND Val3<C); 
State:=If(Cum(1)=1,0,If(EL,1,If(ES,-1,If((CL AND PREV=1) OR (CS AND 
PREV=-1),0,PREV)))); 
State=0 AND Ref(State,-1)=-1 {CS}
----------------------------------
This formula plotted on the price chart shows where you might find price support & Resistance if the equity gaps up or down 

A:=If(GapUp()=true,(L-Ref(H,-1))*.5+Ref(H,-1),If( 
GapDown()=true,(Ref(L,-1)-H)*.5+H,PREV)); 
A; 

This formula help in eliminating small gaps 

rng:=Abs(H-L); 
GS:=If(GapUp(),L-Ref(H,-1),If(GapDown(),Ref(L,-1)-H,PREV)); 
A:=If(GapUp()=true AND GS>rng*.75,(L-Ref(H,-1))*.5+Ref(H,-1),If( 
GapDown()=true AND GS>rng*.75,(Ref(L,-1)-H)*.5+H,PREV)); 
A;
-----------------------
Highlights 

Long 

A:=C>1.03*Mov(C,14,S); 
B:=C<.97*Mov(C,14,S); 
D:=If(A,1,If(B,0,PREV)); 
D=1 

Short 

A:=C>1.03*Mov(C,14,S); 
B:=C<.97*Mov(C,14,S); 
D:=If(A,1,If(B,0,PREV)); 
D=0 

Symbol tab 

Long 

A:=C>1.03*Mov(C,14,S); 
B:=C<.97*Mov(C,14,S); 
D:=If(A,1,If(B,0,PREV)); 
D=1 AND Ref(D,-1)=0 

short 

A:=C>1.03*Mov(C,14,S); 
B:=C<.97*Mov(C,14,S); 
D:=If(A,1,If(B,0,PREV)); 
D=0 AND Ref(D,-1)=1
------------------------------------
Here is an indicator called Time and Money Volatility 

HP:=25/2; 
Yom:=100*(C-Mov(C,25,S)/Mov(C,25,S)); 
Yoma:=Mov(Yom,50,S); 
Vyom:=Mov(yom*yom,50,S)-(Yoma*Yoma); 
Som:=Sqrt(Ref(Vyom,-HP)); 
Sigom:=Mov(Som,25,S); 
Sigom;Som;
----------------------
Here is a binary indicator called Ryan's Hope. 
It is converted from a Tradestation Indicator 

MA1:=Mov(C,20,S); 
A1:=If(MA1>Ref(MA1,-5) AND C<Ref(C,-5) AND C>Ref(C,-25),-1, 
If(MA1<Ref(MA1,-5) AND C>Ref(C,-5) AND C<Ref(C,-25),1,0)); 
MA2:=Mov(C,40,S); 
A2:=If(MA1>Ref(MA1,-10) AND C<Ref(C,-10) AND C>Ref(C,-50),-1.5, 
If(MA1<Ref(MA1,-10) AND C>Ref(C,-10) AND C<Ref(C,-50),1.5,0)); 
A1;A2; 

-1 for buy signals short term -1.5 for long term 

1 for sell short term 1.5 for long term
-------------------
In the Feb 2005 TASC , the article by Jim Berg about Volatility, here is the code as translated from the AMIBROKER Code into Metastock. 

The Indicator called Tstop 

Tstop1:=HHV(C-(2*ATR(10)),15); 
Tstop2:=LLV(C+(2*ATR(10)),15); 
PT1:=Mov(H,13,E)+(2*ATR(10)); 
PT2:=Mov(L,13,E)-(2*ATR(10)); 
Mi:=(PT1-PT2)/2 +PT2; 
A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
TS:=If(D=-1,Tstop1,If(D=1,Tstop2,PREV)); 
PT:=If(D=-1,PT1,If(D=1,PT2,PREV)); 
TS;Mi;PT; 

The expert called Truth about Volatility 

Highlights tab 

Long 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=-1 

Short 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=1 

Out 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=0 


Symbol Tab 

LE 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=-1 AND Ref(D,-1)>-1 

SE 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=1 AND Ref(D,-1)<1 

LX 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=0 AND Ref(D,-1)=-1 

SX 

A:=C>(LLV(L,20)+(2*ATR(10))); 
B:=C<(HHV(H,20)-(2*ATR(10))); 
D:=If(BarsSince(A)<BarsSince(B),-1,If(BarsSince(A)>BarsSince(B),1,0)); 
D=0 AND Ref(D,-1)=1
---------------------------
Here is a binary indicator called Dual High Low Tide 

LRV:=LinearReg(MP(),10); 
A1:=If(Ref(HHV(H,10),-1)>LRV AND Ref(LLV(L,10),-1)<LRV AND LRV>Ref(LRV,-1) AND Ref(LRV,-1)>Ref(LRV,-2),-1, If(Ref(HHV(H,10),-1)>LRV AND Ref(LLV(L,10),-1)<LRV AND LRV<Ref(LRV,-1) AND Ref(LRV,-1)<Ref(LRV,-2), 1,0)); 
LRV2:=LinearReg(MP(),50); 
A2:=If(Ref(HHV(H,50),-1)>LRV2 AND Ref(LLV(L,50),-1)<LRV2 AND LRV2>Ref(LRV2,-1) AND Ref(LRV2,-1)>Ref(LRV2,-2),-1.5, If(Ref(HHV(H,50),-1)>LRV2 AND Ref(LLV(L,50),-1)<LRV2 AND LRV2<Ref(LRV2,-1) AND Ref(LRV2,-1)<Ref(LRV2,-2), 1.5,0)); 
A1;A2; 

-1 for short term buy -1.5 for long term buy 

1 for short term sell 1.5 for long term sell
------------------------
Plot this Indicator in it's own window 

K:=1.896; 
RenkoLine:=If(Cum(1)=1,CLOSE, 
If(PREV>=0, 
If(CLOSE<PREV-2*K,-(PREV-2*K), 
Floor(Max(C-PREV,0)/K)*K+PREV), 
If(CLOSE>Abs(PREV)+2*K,-PREV+2*K, 
Floor(Max(Abs(PREV)-C,0)/K)*K+PREV))); 
RL:=Abs(RenkoLine); 
RL; 

BW:=If(Cum(1)=1,0, 
If(RL>Ref(RL,-1),+1,If(RL<Ref(RL,-1),-1,PREV))); 
BW;0;
------------------------------
This indicator plots 4 lines, start from the far left and color the first line lime green, the second line dark green,the third line is red, and the last line should be colored blue 

P1:=Mov(((C-LLV(L,5))/(HHV(H,5)-LLV(L,5)))*100,3,E); 
P2:=Mov(((C-LLV(L,10))/(HHV(H,10)-LLV(L,10)))*100,3,E); 
P3:=Mov(((C-LLV(L,15))/(HHV(H,15)-LLV(L,15)))*100,3,E); 
P4:=Mov(((C-LLV(L,20))/(HHV(H,20)-LLV(L,20)))*100,3,E); 

A1:=Mov(((P1-LLV(P1,5))/(HHV(P1,5)-LLV(P1,5)))*100,3,E); 
A2:=Mov(((P2-LLV(P2,10))/(HHV(P2,10)-LLV(P2,10)))*100,3,E); 
A3:=Mov(((P3-LLV(P3,15))/(HHV(P3,15)-LLV(P3,15)))*100,3,E); 
A4:=Mov(((P4-LLV(P4,20))/(HHV(P4,20)-LLV(P4,20)))*100,3,E); 
A1;A2;A3;A4; 

you will see over bought and oversold areas at 95 and 5
--------------------------------
Place these indicators on top of the price chart 

Bands Buy 

B1:=2*((H+L+C)/3)-L; 
B2:=((H+L+C)/3)+(H-L); 
B1;B2; 

Bands Sell 

S1:=2*((H+L+C)/3)-H; 
S2:=((H+L+C)/3)-(H-L); 
S1;S2; 

Use these values for tommorrow's entry price and protective stop
----------------------------
Place this indicator in it's own window above the price chart 

A2:=Sum((O+H+L+C)/4,30); 
A:=Mov(Mov(Atan(Ref(A2,-15),A2),2,S),2,S); 
B:=Mov(Mov(Atan(A2,Ref(A2,-15)),2,S),2,S); 
A;B;
---------------------------------
A:=MP()-Mov(Mov(MP(),5,S),10,S); 
Sig:=Mov(A,10,S); 
Sig;A; 

Plot in it's own window above the price chart
----------------------
Here is a formula that measures the strength of Chaos Balance Lines 

M1:=MP()- Ref(Wilders(MP(),5),-3); 
M2:=MP()- Ref(Wilders(MP(),8),-5); 
M3:=MP()- Ref(Wilders(MP(),13),-8); 
Mov(Mov(Mov(M1+M2+M3,2,S),2,S),2,S) 

I have used MP() instead of the Close to help smooth, then I triple smoothed it with "3" 2 bar MA's
----------------------------
Here is my version for both buy and sell 

LL:=If(L=LLV(L,5),L,If(Ref(L,-1)=LLV(L,5),Ref(L,-1),If(Ref(L,-2)=LLV(L,5),Ref(L,-2),If(Ref(L,-3)=LLV(L,5),Ref(L,-3),If(Ref(L,-4)=LLV(L,5),Ref(L,-4),0))))); 
HH:=If(H=HHV(H,5),H,If(Ref(H,-1)=HHV(H,5),Ref(H,-1),If(Ref(H,-2)=HHV(H,5),Ref(H,-2),If(Ref(H,-3)=HHV(H,5),Ref(H,-3),If(Ref(H,-4)=HHV(H,5),Ref(H,-4),0))))); 
NH:=ValueWhen(1,H>Ref(HHV(H,5),-1),H); 
NL:=ValueWhen(1,L<Ref(LLV(L,5),-1),L); 
Set1:=HHV(H,3)<HHV(H,4); 
Set2:=LLV(L,3)>LLV(L,4); 
Val1:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND Set1=true,NH); 
Val2:=ValueWhen(1,BarsSince(L<Ref(LLV(L,5),-1))=3 AND Set2=true,NL); 
Val3:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND Set1=true,LL); 
Val4:=ValueWhen(1,BarsSince(L<Ref(LLV(L,5),-1))=3 AND Set2=true,HH); 
Per1:=Input("max length",10,100,30); 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
TB:=If(Pk>0,Val1,Val4); 
BB:=If(Pk>0,Val3,Val2); 
TB;BB; 

Here is the original version for long 

LL:=If(L=LLV(L,5),L,If(Ref(L,-1)=LLV(L,5),Ref(L,-1),If(Ref(L,-2)=LLV(L,5),Ref(L,-2),If(Ref(L,-3)=LLV(L,5),Ref(L,-3),If(Ref(L,-4)=LLV(L,5),Ref(L,-4),0))))); 

NH:=ValueWhen(1,H>Ref(HHV(H,5),-1),H); 

Set1:=HHV(H,3)<HHV(H,4); 

Val1:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND Set1=true,NH); 

Val2:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND Set1=true,LL); 


TB:=Val1; 
BB:=Val2; 
TB;BB;
--------------------------------
Here is an indicator that finds the difference between a 3 period EMA and the 50 period EMA. 
I double smoothed this with a 2 period SMA to eliminate some whipsaws 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
A;Ref(A,-1);
--------------------------------
ROC Composite Indicator 
A:=ROC(C,5,$)*.39+ROC(C,10,$)*.24+ROC(C,15,$)*.15+ROC(C,20,$)*.09+ROC(C,25,$)*.06+ROC(C,30,$)*.04+ROC(C,35,$)*.02+ROC(C,40,$)*.01; 
B:=Mov(Mov(A,2,S),2,S); 
B;Ref(B,-1);
-----------------------------------------
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
------------------------------
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)
--------------------------------
Plot this onto of the price 

A:=Ref(HHV(H,255),-1); 
B:=Ref(LLV(L,255),-1); 
M1:=B+((A-B)*.236); 
M2:=B+((A-B)*.382); 
M3:=B+((A-B)*.5); 
M4:=B+((A-B)*.618); 
M5:=B+((A-B)*.764); 
A;M5;M4;M3;M2;M1;B; 

plots 7 lines 

It shows where in the 52 week range where the price is
------------------------
Highlights 

Long 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D=1 

Short 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D=0 

Symbols 

Long Entry 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D>Ref(D,-1) 

Short Entry 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D<Ref(D,-1)
--------------------------------
Looking for areas of oversold and overbought 

Highlights 

Buy 

P1:=Mov(((C-LLV(L,15))/(HHV(H,15)-LLV(L,15)))*100,3,E); 
P2:=Mov(((C-LLV(L,30))/(HHV(H,30)-LLV(L,30)))*100,3,E); 
P3:=Mov(((C-LLV(L,45))/(HHV(H,45)-LLV(L,45)))*100,3,E); 
P4:=Mov(((C-LLV(L,90))/(HHV(H,90)-LLV(L,90)))*100,3,E); 
A1:=Mov(((P1-LLV(P1,15))/(HHV(P1,15)-LLV(P1,15)))*100,3,E); 
A2:=Mov(((P2-LLV(P2,30))/(HHV(P2,30)-LLV(P2,30)))*100,3,E); 
A3:=Mov(((P3-LLV(P3,45))/(HHV(P3,45)-LLV(P3,45)))*100,3,E); 
A4:=Mov(((P4-LLV(P4,90))/(HHV(P4,90)-LLV(P4,90)))*100,3,E); 
Buy:=A1<5 AND A2<5 AND A3<5 AND A4<5; 
Sell:=A1>95 AND A2>95 AND A3>95 AND A4>95; 
Buy 


Sell 

P1:=Mov(((C-LLV(L,15))/(HHV(H,15)-LLV(L,15)))*100,3,E); 
P2:=Mov(((C-LLV(L,30))/(HHV(H,30)-LLV(L,30)))*100,3,E); 
P3:=Mov(((C-LLV(L,45))/(HHV(H,45)-LLV(L,45)))*100,3,E); 
P4:=Mov(((C-LLV(L,90))/(HHV(H,90)-LLV(L,90)))*100,3,E); 
A1:=Mov(((P1-LLV(P1,15))/(HHV(P1,15)-LLV(P1,15)))*100,3,E); 
A2:=Mov(((P2-LLV(P2,30))/(HHV(P2,30)-LLV(P2,30)))*100,3,E); 
A3:=Mov(((P3-LLV(P3,45))/(HHV(P3,45)-LLV(P3,45)))*100,3,E); 
A4:=Mov(((P4-LLV(P4,90))/(HHV(P4,90)-LLV(P4,90)))*100,3,E); 
Buy:=A1<5 AND A2<5 AND A3<5 AND A4<5; 
Sell:=A1>95 AND A2>95 AND A3>95 AND A4>95; 
Sell
-----------------------------
Highlights 

Long 

B:=Ref(1.02*LLV(L,42),-1); 
A1:=Ref(0.98*HHV(H,42),-1); 
mi:=(A1+B)/2; 
LE:=C>=Mi; 
SE:=C<mi; 
LE>SE 

Short 

B:=Ref(1.02*LLV(L,42),-1); 
A1:=Ref(0.98*HHV(H,42),-1); 
mi:=(A1+B)/2; 
LE:=C>=Mi; 
SE:=C<mi; 
LE<SE 

Symbols 

Long entry 

B:=Ref(1.02*LLV(L,42),-1); 
A1:=Ref(0.98*HHV(H,42),-1); 
mi:=(A1+B)/2; 
LE:=C>=Mi; 
SE:=C<mi; 
LE>SE AND Ref(LE,-1)<Ref(SE,-1) 

Short entry 

B:=Ref(1.02*LLV(L,42),-1); 
A1:=Ref(0.98*HHV(H,42),-1); 
mi:=(A1+B)/2; 
LE:=C>=Mi; 
SE:=C<mi; 
LE<SE AND Ref(LE,-1)>Ref(SE,-1)
--------------------------
plot this in the price chart 

B:=Ref(1.02*LLV(L,42),-1); 
A1:=Ref(0.98*HHV(H,42),-1); 
mi:=(A1+B)/2; 
A1;mi;B;
------------------------
Highlights Tab 

Long 

TSC:=(If(C>=Ref(C,-11),1,-1)+ 
If(C>=Ref(C,-12),1,-1)+ 
If(C>=Ref(C,-13),1,-1)+ 
If(C>=Ref(C,-14),1,-1)+ 
If(C>=Ref(C,-15),1,-1)+ 
If(C>=Ref(C,-16),1,-1)+ 
If(C>=Ref(C,-17),1,-1)+ 
If(C>=Ref(C,-18),1,-1)+ 
If(C>=Ref(C,-19),1,-1)+ 
If(C>=Ref(C,-20),1,-1)+10)/20; 

TSP:=(If(P>=Ref(P,-11),1,-1)+ 
If(P>=Ref(P,-12),1,-1)+ 
If(P>=Ref(P,-13),1,-1)+ 
If(P>=Ref(P,-14),1,-1)+ 
If(P>=Ref(P,-15),1,-1)+ 
If(P>=Ref(P,-16),1,-1)+ 
If(P>=Ref(P,-17),1,-1)+ 
If(P>=Ref(P,-18),1,-1)+ 
If(P>=Ref(P,-19),1,-1)+ 
If(P>=Ref(P,-20),1,-1)+10)/20; 

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+ 
If(C/P >=Ref(C/P,-12),1,-1)+ 
If(C/P >=Ref(C/P,-13),1,-1)+ 
If(C/P >=Ref(C/P,-14),1,-1)+ 
If(C/P >=Ref(C/P,-15),1,-1)+ 
If(C/P >=Ref(C/P,-16),1,-1)+ 
If(C/P >=Ref(C/P,-17),1,-1)+ 
If(C/P >=Ref(C/P,-18),1,-1)+ 
If(C/P >=Ref(C/P,-19),1,-1)+ 
If(C/P >=Ref(C/P,-20),1,-1)+ 
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+ 
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+ 
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24; 

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+ 
(0.1+ TSP/2)* TSCP)); 

TSSystems:=If(TSSystemx>=0 AND TSSystemx 
<=100,TSSystemx,If(TSSystemx >100,100,0)); 
Buy:=Cross(TSSystems,50); 
Sell:=Cross(50,TSSystems); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=-1 

Short 

TSC:=(If(C>=Ref(C,-11),1,-1)+ 
If(C>=Ref(C,-12),1,-1)+ 
If(C>=Ref(C,-13),1,-1)+ 
If(C>=Ref(C,-14),1,-1)+ 
If(C>=Ref(C,-15),1,-1)+ 
If(C>=Ref(C,-16),1,-1)+ 
If(C>=Ref(C,-17),1,-1)+ 
If(C>=Ref(C,-18),1,-1)+ 
If(C>=Ref(C,-19),1,-1)+ 
If(C>=Ref(C,-20),1,-1)+10)/20; 

TSP:=(If(P>=Ref(P,-11),1,-1)+ 
If(P>=Ref(P,-12),1,-1)+ 
If(P>=Ref(P,-13),1,-1)+ 
If(P>=Ref(P,-14),1,-1)+ 
If(P>=Ref(P,-15),1,-1)+ 
If(P>=Ref(P,-16),1,-1)+ 
If(P>=Ref(P,-17),1,-1)+ 
If(P>=Ref(P,-18),1,-1)+ 
If(P>=Ref(P,-19),1,-1)+ 
If(P>=Ref(P,-20),1,-1)+10)/20; 

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+ 
If(C/P >=Ref(C/P,-12),1,-1)+ 
If(C/P >=Ref(C/P,-13),1,-1)+ 
If(C/P >=Ref(C/P,-14),1,-1)+ 
If(C/P >=Ref(C/P,-15),1,-1)+ 
If(C/P >=Ref(C/P,-16),1,-1)+ 
If(C/P >=Ref(C/P,-17),1,-1)+ 
If(C/P >=Ref(C/P,-18),1,-1)+ 
If(C/P >=Ref(C/P,-19),1,-1)+ 
If(C/P >=Ref(C/P,-20),1,-1)+ 
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+ 
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+ 
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24; 

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+ 
(0.1+ TSP/2)* TSCP)); 

TSSystems:=If(TSSystemx>=0 AND TSSystemx 
<=100,TSSystemx,If(TSSystemx >100,100,0)); 
Buy:=Cross(TSSystems,50); 
Sell:=Cross(50,TSSystems); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=1 

Symbol tab 

Long Entry 

TSC:=(If(C>=Ref(C,-11),1,-1)+ 
If(C>=Ref(C,-12),1,-1)+ 
If(C>=Ref(C,-13),1,-1)+ 
If(C>=Ref(C,-14),1,-1)+ 
If(C>=Ref(C,-15),1,-1)+ 
If(C>=Ref(C,-16),1,-1)+ 
If(C>=Ref(C,-17),1,-1)+ 
If(C>=Ref(C,-18),1,-1)+ 
If(C>=Ref(C,-19),1,-1)+ 
If(C>=Ref(C,-20),1,-1)+10)/20; 

TSP:=(If(P>=Ref(P,-11),1,-1)+ 
If(P>=Ref(P,-12),1,-1)+ 
If(P>=Ref(P,-13),1,-1)+ 
If(P>=Ref(P,-14),1,-1)+ 
If(P>=Ref(P,-15),1,-1)+ 
If(P>=Ref(P,-16),1,-1)+ 
If(P>=Ref(P,-17),1,-1)+ 
If(P>=Ref(P,-18),1,-1)+ 
If(P>=Ref(P,-19),1,-1)+ 
If(P>=Ref(P,-20),1,-1)+10)/20; 

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+ 
If(C/P >=Ref(C/P,-12),1,-1)+ 
If(C/P >=Ref(C/P,-13),1,-1)+ 
If(C/P >=Ref(C/P,-14),1,-1)+ 
If(C/P >=Ref(C/P,-15),1,-1)+ 
If(C/P >=Ref(C/P,-16),1,-1)+ 
If(C/P >=Ref(C/P,-17),1,-1)+ 
If(C/P >=Ref(C/P,-18),1,-1)+ 
If(C/P >=Ref(C/P,-19),1,-1)+ 
If(C/P >=Ref(C/P,-20),1,-1)+ 
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+ 
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+ 
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24; 

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+ 
(0.1+ TSP/2)* TSCP)); 

TSSystems:=If(TSSystemx>=0 AND TSSystemx 
<=100,TSSystemx,If(TSSystemx >100,100,0)); 
Buy:=Cross(TSSystems,50); 
Sell:=Cross(50,TSSystems); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=-1 AND Ref(D,-1)>-1 

Short Entry 

TSC:=(If(C>=Ref(C,-11),1,-1)+ 
If(C>=Ref(C,-12),1,-1)+ 
If(C>=Ref(C,-13),1,-1)+ 
If(C>=Ref(C,-14),1,-1)+ 
If(C>=Ref(C,-15),1,-1)+ 
If(C>=Ref(C,-16),1,-1)+ 
If(C>=Ref(C,-17),1,-1)+ 
If(C>=Ref(C,-18),1,-1)+ 
If(C>=Ref(C,-19),1,-1)+ 
If(C>=Ref(C,-20),1,-1)+10)/20; 

TSP:=(If(P>=Ref(P,-11),1,-1)+ 
If(P>=Ref(P,-12),1,-1)+ 
If(P>=Ref(P,-13),1,-1)+ 
If(P>=Ref(P,-14),1,-1)+ 
If(P>=Ref(P,-15),1,-1)+ 
If(P>=Ref(P,-16),1,-1)+ 
If(P>=Ref(P,-17),1,-1)+ 
If(P>=Ref(P,-18),1,-1)+ 
If(P>=Ref(P,-19),1,-1)+ 
If(P>=Ref(P,-20),1,-1)+10)/20; 

TSCP:=(If(C/P >=Ref(C/P,-11),1,-1)+ 
If(C/P >=Ref(C/P,-12),1,-1)+ 
If(C/P >=Ref(C/P,-13),1,-1)+ 
If(C/P >=Ref(C/P,-14),1,-1)+ 
If(C/P >=Ref(C/P,-15),1,-1)+ 
If(C/P >=Ref(C/P,-16),1,-1)+ 
If(C/P >=Ref(C/P,-17),1,-1)+ 
If(C/P >=Ref(C/P,-18),1,-1)+ 
If(C/P >=Ref(C/P,-19),1,-1)+ 
If(C/P >=Ref(C/P,-20),1,-1)+ 
If(ROC(C/P,5,%)>ROC(Ref(C/P,-5),5,%),1,-1)+ 
If(V>3*Mov(V,21,S) AND C>Ref(C,-1),1,0)+ 
If(V>3*Mov(V,21,S) AND C<Ref(C,-1),-1,0)+12)/24; 

TSSystemx:=Round(100*((0.9- TSP/2)* TSC+ 
(0.1+ TSP/2)* TSCP)); 

TSSystems:=If(TSSystemx>=0 AND TSSystemx 
<=100,TSSystemx,If(TSSystemx >100,100,0)); 
Buy:=Cross(TSSystems,50); 
Sell:=Cross(50,TSSystems); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1, If(BarsSince(Buy)>BarsSince(Sell),1,0)); 
D=1 AND Ref(D,-1)<1
----------------------------------------
For the Buy signal I would use : 

Bsetup:=Sum(C<Ref(C,-4),9)=9; 
BCD:=HighestSince(1,Peak(1,Bsetup,.001),(C<Ref(L,-2)) + PREV); 
BUY:=BCD-ValueWhen(1,Bsetup,BCD)=13 AND Ref(BCD-ValueWhen(1,Bsetup,BCD)=13,-1)<>1; 
BUY 

For the sell signal I would use : 

Ssetup:=Sum(C>Ref(C,-4),9)=9; 
SCD:=HighestSince(1,Peak(1,Ssetup,.001),(C>Ref(H,-2)) + PREV); 
SELL:=SCD-ValueWhen(1,Ssetup,SCD)=13 AND Ref(SCD-ValueWhen(1,Ssetup,SCD)=13,-1)<>1; 
SELL 

If any of you have a better way of doing it, please do not hesitate to post your version of Demark's sequential. As I have actually seen different version of this ...