Perfect 1 Expert
You will need the PowerPivots Plus Add-on to use this expert 

Highlights 

Long 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0
*****Perfect 1 w Pivot stops Expert*****
You will need the PowerPivots plus Add-on to use this Expert 

Highlights 

Long 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
lP:=ExtFml("PowerPivots.NthPivotPrice",-1,0,1); 
hP:=ExtFml("PowerPivots.NthPivotPrice", 1,0,1); 
LX:=Cross(lP,CLOSE); 
SX:=Cross(CLOSE,hP); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Perfect 2 Expert*****
You will need the PowerPivots Plus Add-on to use this Expert 

Highlights 

Long 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,Ref(A,-1)); 
SE:=Cross(Ref(A,-1),A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,Ref(A,-1)); 
SE:=Cross(Ref(A,-1),A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Symbols 

Long entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,Ref(A,-1)); 
SE:=Cross(Ref(A,-1),A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,Ref(A,-1)); 
SE:=Cross(Ref(A,-1),A); 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0
*****Perfect 1 w Trend Direction Expert*****
You will need to have Powerpivots Plus Add-on Installed for this expert to work 

Highlights 

Long 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

long Entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short entry 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:= Cross(A,0) AND TD=1; 
SE:= Cross(0,A) AND TD=-1; 
LX:= Cross(0,A) AND TD>=0; 
SX:= Cross(A,0) AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Perfect 1 Expert w Patrick's Latch*****
Highlights 

LONG : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 1 

SHORT : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = -1 

out : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 

Symbols tab 

ENTER LONG : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 1 AND Ref(B,-1) <> 1 

ENTER SHORT : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = -1 AND Ref(B,-1) <> -1 

EXIT LONG : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 AND Ref(B,-1) = 1 

EXIT SHORT : 

A:=((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
Mov(((Mov(WC(),5,E) - Mov(WC(),15,E))-1) - 
ROC((Mov(WC(),5,E) - 
Mov(WC(),15,E))-1,5,$),27,E); 
LE:=Cross(A,0); 
SE:=Cross(0,A); 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 AND Ref(B,-1) = -1