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(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
A1:=If(Mov(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
A1:=If(Mov(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long entry
A1:=If(Mov(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short entry
A1:=If(Mov(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long exit
A1:=If(Mov(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short exit
A1:=If(Mov(Typ(),10,S)>Ref(Mov(Typ(),10,S),-1),1,-1);
A2:=If(Mov(Typ(),30,S)>Ref(Mov(Typ(),30,S),-1),1,-1);
A3:=If(Mov(Typ(),50,S)>Ref(Mov(Typ(),50,S),-1),1,-1);
B:=Sum(A1+A2+A3,3)/3;
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=(Mov(B,3,S)>0) AND TD=1;
SE:=(0>Mov(B,3,S)) AND TD=-1;
LX:=(0>Mov(B,3,S));
SX:=(Mov(B,3,S)>0);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|
