CCT Coppock Curve Expert
Highlights Tab 

Long 

PK:=(ROC(C,14,%)*10 + ROC(C,11,%)*10 + ROC(Ref(C,-1),14,%)*9 + ROC(Ref(C,-1),11,%)*9 + ROC(Ref(C,-2),14,%)*8 + ROC(Ref(C,-2),11,%)*8 + ROC(Ref(C,-3),14,%)*7 + ROC(Ref(C,-3),11,%)*7 + ROC(Ref(C,-4),14,%)*6 + ROC(Ref(C,-4),11,%)*6 + ROC(Ref(C,-5),14,%)*5 + ROC(Ref(C,-5),11,%)*5 + ROC(Ref(C,-6),14,%)*4 + ROC(Ref(C,-6),11,%)*4 + ROC(Ref(C,-7),14,%)*3 + ROC(Ref(C,-7),11,%)*3 + ROC(Ref(C,-8),14,%)*2 + ROC(Ref(C,-8),11,%)*2 + ROC(Ref(C,-9),14,%) + ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=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:=(ROC(C,14,%)*10 + ROC(C,11,%)*10 + ROC(Ref(C,-1),14,%)*9 + ROC(Ref(C,-1),11,%)*9 + ROC(Ref(C,-2),14,%)*8 + ROC(Ref(C,-2),11,%)*8 + ROC(Ref(C,-3),14,%)*7 + ROC(Ref(C,-3),11,%)*7 + ROC(Ref(C,-4),14,%)*6 + ROC(Ref(C,-4),11,%)*6 + ROC(Ref(C,-5),14,%)*5 + ROC(Ref(C,-5),11,%)*5 + ROC(Ref(C,-6),14,%)*4 + ROC(Ref(C,-6),11,%)*4 + ROC(Ref(C,-7),14,%)*3 + ROC(Ref(C,-7),11,%)*3 + ROC(Ref(C,-8),14,%)*2 + ROC(Ref(C,-8),11,%)*2 + ROC(Ref(C,-9),14,%) + ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=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:=(ROC(C,14,%)*10+ROC(C,11,%)*10+ ROC(Ref(C,-1),14,%)*9+ROC(Ref(C,-1),11,%)*9+ROC(Ref(C,-2),14,%)*8+ROC(Ref(C,-2),11,%)*8+ROC(Ref(C,-3),14,%)*7+ROC(Ref(C,-3),11,%)*7+ROC(Ref(C,-4),14,%)*6+ROC(Ref(C,-4),11,%)*6+ROC(Ref(C,-5),14,%)*5+ROC(Ref(C,-5),11,%)*5+ROC(Ref(C,-6),14,%)*4+ROC(Ref(C,-6),11,%)*4+ROC(Ref(C,-7),14,%)*3+ROC(Ref(C,-7),11,%)*3+ROC(Ref(C,-8),14,%)*2+ROC(Ref(C,-8),11,%)*2+ROC(Ref(C,-9),14,%)+ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=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:=(ROC(C,14,%)*10 + ROC(C,11,%)*10 + ROC(Ref(C,-1),14,%)*9 + ROC(Ref(C,-1),11,%)*9 + ROC(Ref(C,-2),14,%)*8 + ROC(Ref(C,-2),11,%)*8 + ROC(Ref(C,-3),14,%)*7 + ROC(Ref(C,-3),11,%)*7 + ROC(Ref(C,-4),14,%)*6 + ROC(Ref(C,-4),11,%)*6 + ROC(Ref(C,-5),14,%)*5 + ROC(Ref(C,-5),11,%)*5 + ROC(Ref(C,-6),14,%)*4 + ROC(Ref(C,-6),11,%)*4 + ROC(Ref(C,-7),14,%)*3 + ROC(Ref(C,-7),11,%)*3 + ROC(Ref(C,-8),14,%)*2 + ROC(Ref(C,-8),11,%)*2 + ROC(Ref(C,-9),14,%) + ROC(Ref(C,-9),11,%))/2; 
Green:=If(PK>Ref(PK,-1),PK,0); 
Red:=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)