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)
|
Here are 2 indicators
+TCF
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
Sum(pc,35)-Sum(ncf,35)
-TCF
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
pcf:=If(pc=0,0,PREV+pc);
Sum(nc,35)-Sum(pcf,35)
Now for the Experts
You Need to have the powerpivots Plus Add-on to use them
Highlights
long
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1;
SE:=D=1;
LX:=0;
SX:=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1;
SE:=D=1;
LX:=0;
SX:=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Symbol
Long Entry
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1;
SE:=D=1;
LX:=0;
SX:=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Short Entry
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1;
SE:=D=1;
LX:=0;
SX:=0;
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Expert w 100 Ma filter
Highlights
long
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0
Short
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0
Out
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0
Symbols
Long entry
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B>0 AND Ref(B,-1)<=0
Long exit
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)>0
Short entry
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B<0 AND Ref(B,-1)>=0
Short exit
pc:=If(ROC(C,1,$)>0,ROC(C,1,$),0);
nc:=If(ROC(C,1,$)<0,Neg(ROC(C,1,$)),0);
ncf:=If(nc=0,0,PREV+nc);
PTCF:=Sum(pc,35)-Sum(ncf,35);
pcf:=If(pc=0,0,PREV+pc);
NTCF:=Sum(nc,35)-Sum(pcf,35);
D:=If(PTCF>(NTCF),-1,If((PTCF)<NTCF,1,0));
LE:=D=-1 AND C>Mov(C,100,S);
SE:=D=1 AND C<Mov(C,100,S);
LX:=D=1 AND C>Mov(C,100,S);
SX:=D=-1 AND C<Mov(C,100,S);
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!");
B=0 AND Ref(B,-1)<0
|