Tema 1 -MACD Expert
You will need the powerPivots Plus Add-on for this Expert 

Highlights 

Long 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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
*****Tema 1 -MACD w Trend Direction Expert*****
You will need the PowerPivots Plus Add-on for this Expert to work 

Highlights 

Long 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
SX:=Cross(A,0) and TD=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
SX:=Cross(A,0) and TD=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
SX:=Cross(A,0) and TD=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

long Entry 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(A,0) and TD=1; 
SE:=Cross(0,A) and TD=0; 
LX:=Cross(0,A) and TD=1; 
SX:=Cross(A,0) and TD=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Another version w Trend Direction*****
You will need the PowerPivots Plus Add-on for this Expert to work 

Highlights 

Long 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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
*****TEMA 1 MACD Expert w Patrick's Latch*****
Highlights 

LONG : 

A:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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:=(((3*Mov(C,12,E)) - (3*Mov(Mov(C,12,E),12,E))) + 
Mov(Mov(Mov(C,12,E),12,E),12,E)) - 
(((3*Mov(C,26,E)) - (3*Mov(Mov(C,26,E),26,E))) + 
Mov(Mov(Mov(C,26,E),26,E),26,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