[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[EquisMetaStock Group] Dual Directional Movement Expert



PureBytes Links

Trading Reference Links

You need the Power Pivots Plus Add-on to use this expert!!!!

Here is an expert for Dual Directional Movement 

Under highlights tab

Long {color Green}

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 

Short {Color Red}

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0

Out {Color Pale Blue}

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0


Under the Symbol Tab

LE

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0

LX

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0

SE

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0

SX

A1:=Mov(Mov(PDI(10)-MDI(10),2,S),2,S);
A2:=Mov(Mov(PDI(50)-MDI(50),2,S),2,S);
A3:=ADX(5)-ADX(25);
LE:=A1>A2 AND A1>0 AND A3>15;
LX:=A1<A2 AND A1>0;
SE:=A1<A2 AND A1<0 AND A3>15;
SX:=A1>A2 AND A1<0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0

now test this expert in the Enhanced System Tester as a Point's only 
test, set a 1 bar delay and the price set to open, no commissions or 
stops and see for yourself that the New Enhanced System Tester has 
serious analytical problems and needs to be rewritten 

Henry




 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
     http://groups.yahoo.com/group/equismetastock/

<*> To unsubscribe from this group, send an email to:
     equismetastock-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
     http://docs.yahoo.com/info/terms/