CCT Fib Accordion Expert
Highlights tab 

long 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=0 


Short 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State=1 

Symbol tab 

long 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State< Ref(State,-1) 

Short 

PK:=(Mov(C,13,E)-Mov(C,144,E)); 
Per1:=30; 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=If(PK<Ref(PK,-1),PK,0); 
Signal:=Mov(PK,5,S); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
EL:=If(PK>0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) 
,If(PK<0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,0)) OR Cross(PK,0); 
ES:=If(PK>0, 
Ref(Green,-2)>Ref(Red,-2) AND Ref(Green,-1)<Ref(Red,-1) AND Green<Red,If(PK<0, 
(Ref(Green,-2)>Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red) OR 
(Ref(Green,-2)<Ref(Red,-2) AND 
Ref(Green,-1)<Ref(Red,-1) AND Green>Red),0)) OR Cross(0,PK); 
State:=If(BarsSince(EL)>BarsSince(ES),1,0); 
State> Ref(State,-1)