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)
|
This expert needs the PowerPivots Plus Add-on to work
Highlights
Long
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long Entry
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short entry
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Long exit
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short exit
pds:=6;
Vt:=Stdev(C,5)/Mov(Stdev(C,5),10,S);
pds:=pds*.75/(Vt+.1);
pds:=If(Cum(1)-13<pds,Cum(1)-13,pds);
pds:=If(pds<1,1,pds);
D1:=C*2/(pds+1)+PREV*(1-2/(pds+1));
D2:=C*2/(pds*3+1)+PREV*(1-2/(pds*3+1));
TD:=ExtFml("PowerPivots.TrendDirection",1,2);
LE:=D1>D2 and TD=1;
SE:=D1<D2 and TD=-1;
LX:=D1<D2;
SX:=D1>D2;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|