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
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long Entry
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short Entry
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long Exit
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short exit
a:=If(PREV=1,If(CLOSE<HighestSince(1,PREV<>1,CLOSE)*.96,-1,PREV),If(PREV=-1,If(CLOSE>LowestSince(1,PREV<>-1,CLOSE)*1.04,+1,PREV),If(PREV=0,If(CLOSE>Lowest(CLOSE)*1.04,+1,If(CLOSE<Highest(CLOSE)*.96,-1,PREV)),PREV)));
D:=If(A=1,1,0);
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D=1 AND Sum(TD>0,2)>1;
SE:=D=0 AND Sum(TD<0,2)>1;
LX:=D=0;
SX:=D=1;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|
