Abberation w Trend Direction Expert
This Expert needs the PowerPivots Plus Add-on for this expert to work 

Highlights 

Long 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

long Entry 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 


Short entry 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long exit 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=C>BBandTop(C,35,S,2) and TD=1; 
LX:=C < Mov(C,35,S); 
SE:=C<BBandBot(C,35,S,2) and TD=-1; 
SX:=C > Mov(C,35,S); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0