Advanced Get 4 Osc Expert

You will need the PowerPivots Plus Add-on for this expert to work 

Highlights 

Long 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G>0 

Short 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G<0 

Out 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 


Symbols 

Long Entry 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G>0 AND Ref(G,-1)<=0 

Short entry 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G<0 AND Ref(G,-1)>=0 

Long Exit 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 AND Ref(G,-1)>=0 

Short exit 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 AND Ref(G,-1)<0
*****Expert w Trend Direction*****
You will need the PowerPivots Plus Add-on for this expert to work 

Highlights 

Long 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G>0 

Short 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G<0 

Out 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 


Symbols 

Long entry 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G>0 AND Ref(G,-1)<=0 


Short entry 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G<0 AND Ref(G,-1)>=0 

Long exit 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 AND Ref(G,-1)>0 


Short exit 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1; 
LX:=B>0 AND B<Ref(B,-1); 
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ; 
SX:=B<0 AND B>Ref(B,-1); 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 AND Ref(G,-1)<0
*****Advanced Get 4 Osc Expert w Patrick's latch*****
Highlights 

LONG : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 1 

SHORT : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = -1 

out : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 

Symbols tab 

ENTER LONG : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 1 AND Ref(B,-1) <> 1 

ENTER SHORT : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = -1 AND Ref(B,-1) <> -1 

EXIT LONG : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 AND Ref(B,-1) = 1 

EXIT SHORT : 

A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4); 
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3); 
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2); 
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1); 
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S); 
LE:=Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0); 
LX:=B>0 AND B<Ref(B,-1); 
SE:=Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0) ; 
SX:=B<0 AND B>Ref(B,-1); 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 AND Ref(B,-1) = -1