Dynamic EMA 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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0
*****Dynamic EMA Expert w Patrick's Latch*****
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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 1 

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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = -1 

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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 

Symbols tab 

ENTER 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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 1 AND Ref(B,-1) <> 1 

ENTER 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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = -1 AND Ref(B,-1) <> -1 

EXIT 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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 AND Ref(B,-1) = 1 

EXIT 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)); 
LE:=D1>D2; 
SE:=D1<D2; 
LX:=0; 
SX:=0; 
B:= ExtFml("ForumDll.Latch",LE,LX,SE,SX); 
B = 0 AND Ref(B,-1) = -1