DEMA 34 w Power Pivots Expert
You will need the PowerPivots plus Add-on for this expert to work 

Highlights 

long 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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 

LE:=Cross(C,Dema(C,34)); 
SE:=Cross(Dema(C,34),C); 
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