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
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G>0
Short
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G<0
Out
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G=0
Symbols
Long entry
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G>0 AND Ref(G,-1)<=0
Short entry
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G<0 AND Ref(G,-1)>=0
Long exit
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G=0 AND Ref(G,-1)>0
Short exit
A1:=If(Mov(MP(),5,S)-Mov(MP(),17,S)>=0,4,-4);
A2:=If(Mov(MP(),5,S)-Mov(MP(),35,S)>=0,3,-3);
A3:=If(Mov(MP(),10,S)-Mov(MP(),70,S)>=0,2,-2);
A4:=If(Mov(MP(),25,S)-Mov(MP(),85,S)>=0,1,-1);
B:=Mov(Mov(Mov(A1+A2+A3+A4,2,S),2,S),2,S);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Cross(B,0) OR (B>Ref(B,-1) AND Ref(B,-1)<Ref(B,-2) AND B>0)) and TD=1;
LX:=B>0 AND B<Ref(B,-1);
SE:=(Cross(0,B) OR (B<Ref(B,-1) AND Ref(B,-1)>Ref(B,-2) AND B<0)) and TD=-1 ;
SX:=B<0 AND B>Ref(B,-1);
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
G=0 AND Ref(G,-1)<0
|