Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers Joined: 10/29/2004(UTC) Posts: 1,394 Location: Glastonbury, CT
Was thanked: 2 time(s) in 2 post(s)
|
This expert needs the Power Pivots Plus Add-on to work.
It also needs the NYSE new Highs and the NYSE New Lows to be in the proper Data Files
Highlights
Long
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long Entry
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short Entry
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long exit
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short Exit
NH:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-H",C);
NL:=Security("c:\\Metastock Data\\indices & indicators\\market indicators\\X.NYSE-L",C);
B1:=Mov(NH,10,S)/(NH+NL);
B2:=Mov(NL,10,S)/(NH+NL);
G:=If(B1>=B2,1,0);
A:=Mov(C,3,S)-Mov(C,10,S);
Sig:=Mov(A,16,S);
LE:=Cross(A,Sig) and G=1;
SE:=Cross(Sig,A) and G=0;
LX:=Cross(Sig,A) and G=1;
SX:=Cross(A,Sig) and G=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
It should also be noted that you should use this on stocks from the NYSE
|