Coppock Modified
Traders can modify the Coppock indicator using Amibroker data feed to align it with their specific trading strategies. Free data sources can be integrated with AFL code to enhance the accuracy and utility of this indicator, aiding in better trading decision-making.
_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();