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);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1>0
Short
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1<0
Out
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1=0
Symbols
Long entry
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1>0 AND Ref(B1,-1)<=0
Short entry
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1<0 AND Ref(B1,-1)>=0
Long Exit
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1=0 AND Ref(B1,-1)>0
Short exit
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
A:=Mov(C,10,E);A1:=Mov(C,50,E);
B:=ROC(Mov(C,10,E),1,$);
D:=If(A>Ref(A,-1) AND B>0,-1,If(A<Ref(A,-1) AND B<0,1,0));
F:=If(D=-1 AND C>A1,-1,If(D=1 AND C<A1,1,0));
LE:=F=-1 and TD=1;
SE:=F=1 and TD=-1;
LX:=F<>-1;
SX:=F<>1;
B1:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B1=0 AND Ref(B1,-1)<0
|
