Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Looped Coppock Smoothner for Amibroker (AFL)
Very First i thank to him who developed this logic of Coppock smoothing for coppock curve.
I’ve used the logic to create some good indicators.
1. Coppock smoothed Close (used in top price panel)
2. Coppock Curve (in second panel)
3. Coppock smoothed CCI (Used in third panel)
i’ve no need to advertise these indicators. you yourselves will see tht these can really be helpful in your trading.
i’ve given almost all the provisions in parameter section to the user to make these indicator work as he would like to.
range 14 will be good for Coppock close and original Coppock curve and 10 will be good for Coppocked CCi.
u can adjust as per your liking.
this is the fresh code you will never get this anywhere else.
looking forwar for any suggestions or any improvements.
Rohit Patil.
rhn_patel@rediffmail.com
Screenshots
Similar Indicators / Formulas
Indicator / Formula
/* Looped Coppock Curve
Code By : Rohit Patil.
email : rhn_patel@rediffmail.com
my thanks goes to te original Coppock logic creator
i'm just coder and little bit researcher or say improviser */
x=Param(" I : ",14,1,500,1);
y=Param(" II : ",11,1,500,1);
r=Param("Range : ",14,1,500,1);
p11 =ParamToggle("Plot 0 line","No,Yes",0);
p12 =ParamToggle("Plot +/- 6K lines","No,Yes",0);
Type = ParamList("Type", "ROC,CCi,Close");
bo=0;
bh=0;
bl=0;
bc=0;
if( Type == "ROC" )
{
for(i=0;i<=r;i++)
{
ao=(ROC(Ref(O,-i),x)*(r-i) + ROC(Ref(O,-i),y)*(r-i))/2;
bo=bo+ao;
ah=(ROC(Ref(H,-i),x)*(r-i) + ROC(Ref(H,-i),y)*(r-i))/2;
bh=bh+ah;
al=(ROC(Ref(L,-i),x)*(r-i) + ROC(Ref(L,-i),y)*(r-i))/2;
bl=bl+al;
ac=(ROC(Ref(C,-i),x)*(r-i) + ROC(Ref(C,-i),y)*(r-i))/2;
bc=bc+ac;
}
O=bo;H=bh;L=bl;C=bc;
}
if( Type == "CCi" )
{
for(i=0;i<=r;i++)
{
ao=(CCIa(Ref(O,-i),x)*(r-i) + CCIa(Ref(O,-i),y)*(r-i))/2;
bo=bo+ao;
ah=(CCIa(Ref(H,-i),x)*(r-i) + CCIa(Ref(H,-i),y)*(r-i))/2;
bh=bh+ah;
al=(CCIa(Ref(L,-i),x)*(r-i) + CCIa(Ref(L,-i),y)*(r-i))/2;
bl=bl+al;
ac=(CCIa(Ref(C,-i),x)*(r-i) + CCIa(Ref(C,-i),y)*(r-i))/2;
bc=bc+ac;
}
O=bo;H=bh;L=bl;C=bc;
}
if( Type == "Close" )
{
for(i=0;i<=r;i++)
{
ao=((Ref(O,-i)*(r-i)) + (Ref(O,-i)*(r-i)))/2;
bo=bo+ao;
ah=((Ref(H,-i)*(r-i)) + (Ref(H,-i)*(r-i)))/2;
bh=bh+ah;
al=((Ref(L,-i)*(r-i)) + (Ref(L,-i)*(r-i)))/2;
bl=bl+al;
ac=((Ref(C,-i)*(r-i)) + (Ref(C,-i)*(r-i)))/2;
bc=bc+ac;
}
d=0;
for(m=1;m<=r;m++)
{ d=d+m;
}
bo=bo/d;
bh=bh/d;
bl=bl/d;
bc=bc/d;
}
Col=IIf((Ref(bc,-1)==bc),colorBlack,IIf((Ref(bc,-1)<bc),colorLime,colorOrange));
PlotOHLC(bo,bh,bl,bc,"Coppock ("+r+") @ ("+Type+")",Col,ParamStyle("Copock sty ",styleLine,maskAll));
if(p11==1)
Plot(0,"",colorBlack,styleDashed);
if(p12==1)
{Plot(6000,"",ColorRGB(155,155,0),styleDashed);
Plot(-6000,"",ColorRGB(155,155,0),styleDashed);}2 comments
Leave Comment
Please login here to leave a comment.
Back
The code is very slow. Can it be speeded up. When a parameter is changed the curve does not change for quite sometime.
colion, i’m using it since last few months. have never faced such problem. but if opt for higher values of range the n obviously it will slow a bit because for higher range the set of calculation drastically increases.
and usually u wont need such ranges for trading