Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Coppock Modified for Amibroker (AFL)

Rating:
3 / 5 (Votes 2)
Tags:
oscillator, amibroker, pivots

Coppock along with RSI, STOCHASTICS and Pivot levels.

Similar Indicators / Formulas

Determine price at a specific RSI
Submitted by taifur_pavel over 8 years ago
Disparity Index
Submitted by morgen about 9 years ago
Klinger Oscillator
Submitted by Yohannes over 8 years ago
HEIKIN ASHI CANDLESTICK OSCILLATOR
Submitted by AndrewThomas over 8 years ago
The Finite Volume Element Oscillator
Submitted by investor_tr over 8 years ago
STOCHASTIC SYSTEM
Submitted by hermix over 8 years ago

Indicator / Formula

Copy & Paste Friendly
_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();

0 comments

Leave Comment

Please login here to leave a comment.

Back