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)
|
you will need the powerpivots plus add-on for this expert to work
Highlights
Long
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long entry
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short entry
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long exit
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short exit
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A1:=Mov(MP(),5,S);
A2:=Mov(MP(),34,S);
Sig:=Mov(A1,5,S);
LE:=Cross(A1,A2) OR Cross(A1,Sig) AND A1>A2 AND TD=1;
LX:=Cross(Sig,A1) AND A1>A2;
SE:=Cross(A2,A1) OR Cross(Sig,A1) AND A1<A2 AND TD=-1;
SX:=Cross(A1,Sig) AND A1<A2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|
