// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Coppock");
/*
Coppock  based on original formula of Coppock.

Mov(ROC(C,14,%) + ROC(C,11,%)10;

AFL by Bill Dodd
*/
C1=SelectedValue(TimeFrameGetPrice( "C", inDaily, -1 ));
H1=SelectedValue( TimeFrameGetPrice( "H", inDaily, -1 ));
L1=SelectedValue(TimeFrameGetPrice( "L", inDaily, -1 ));
Change=((C-C1)/C1*100);

/*PIVOT Calculation*/
p = ( H1+ L1 + C1 )/3;
s1 = (2*p)-H1;
r1 = (2*p)-L1;
s2 = p -(H1 - L1);
s3 = S1 - (H1-L1);
r2 = p +(H1 - L1);
r3 = R1 +(H1-L1);

_N(Title = StrFormat("{{{DATE}} (RSI %g){StochF %g StochS %g} Close %g (%.1f%%)S3 %g  S2 %g  S1 %g PVT %g  R1 %g  R2 %g  R3 %g
{{VALUES}}",  round(RSI(14)), round(StochK(15,3)), round(StochD(15,3,3)), C,change,  s3, s2, s1, p, r1, r2, r3, SelectedValue( ROC( C, 1 ) ) ));

GraphXSpace=1;  
Param("EMA",10,2,100,1,0);
r1=ROC(C,14);
r2=ROC(C,11);
C=EMA((r1+r2),10);

Plot(IIf(C>0 AND ROC(C,1)>0,C,0),"",42,6);       /*  uptrend   */
Plot(IIf(C>0 AND ROC(C,1)<0,C,0),"",32,6);       /*  up sideways */
Plot(IIf(C<0 AND ROC(C,1)>0,C,0),"",49,6);       /*  down sideways */
Plot(IIf(C<0 AND ROC(C,1)<0,C,0),"",29,6);  	    /*  down trend */



/*
dynamic_color = IIf (C >0, colorRed, colorGreen );
Plot(C,"", dynamic_color ,styleHistogram | styleThick  );*/

_SECTION_END();