TCF indicators and Experts
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