Dynamic EMA w Trend Direction Expert
This expert needs the PowerPivots Plus Add-on to work 

Highlights 

Long 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 


Short entry 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long exit 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

pds:=6; 
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S); 
pds:=pds*.75/(Vt+.1); 
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds); 
pds:=If(pds<1,1,pds); 
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1)); 
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D1>D2 and TD=1; 
SE:=D1<D2 and TD=-1; 
LX:=D1<D2; 
SX:=D1>D2; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0