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

Auto Fib Extension & Retrace for Amibroker (AFL)

Rating:
5 / 5 (Votes 1)
Tags:
amibroker, Fib, fibonacci

Automatically generate Fibonacci retracements and up to 5 Extensions at each swing point or just the last one.

Screenshots

Indicator / Formula

Copy & Paste Friendly

Graph Fibonacci lines at each Swing Point on the price chart

_SECTION_BEGIN("Auto Fib Ext&Retrace");
//	
//	TimingPundit.com
//	4/14/2022
//	Based on Candle body. I found this slightly better than tails 
//	and much better than closing price.
//

Mode=ParamList("Retrace and/or Extensions","Both|Retracements|Extensions");
FibLines=ParamToggle("Fib Lines Shown","All|Last",1);
FibLabels=ParamToggle("Label Fibs?","No|Yes",1);
SPWidth=param("Swing Point Width",9,7,13,2); //suggest 7,9,13
arrows=ParamToggle("Swing POint Arrows","No|Yes",1);
NE=Param("Number of Extensions",1,1,5,1);

HV=HighestVisibleValue(H);
LV=LowestVisibleValue(L);
ymin=LV-.05*(hv-lv);
ymax=HV+.05*(hv-lv);
SetChartOptions(1,0,chartGridMiddle,ymin,ymax);

HB=Max(C,O);
LB=Min(C,O);
sp1=sp2=0;

sph = (HB==HHV(HB,SPWidth)) AND (HB==Ref(HHV(HB,SPWidth),SPWidth-1));
spl = (LB==LLV(LB,SPWidth)) AND (LB==Ref(LLV(LB,SPWidth),SPWidth-1));

fibmult1=.236;
fibmult2=.382;
fibmult3=.5;
fibmult4=.618;
fibmult5=.786;
fibmult6=1;
fibmult7=1.272;
fibmult8=1.618;
fibmult9=2.618;

txt1=NumToStr(fibmult1);
txt2=NumToStr(fibmult2);
txt3=NumToStr(fibmult3);
txt4=NumToStr(fibmult4);
txt5=NumToStr(fibmult5);
txt6=NumToStr(fibmult6);
txt7=NumToStr(fibmult7);
txt8=NumToStr(fibmult8);
txt9=NumToStr(fibmult9);

////// Eliminates 2 SPL or 2 SPH in a row. Picks most extreme  /////////
lasti=0;
for(i=0;i<=BarCount-1;i++){
	if(sph[i] AND sph[lasti]){
		if(HB[i]>HB[lasti]){
			sph[lasti]=0;
		}else{
			sph[i]=0;
		}	
	}	
	if(spl[i] AND spl[lasti]){
		if(LB[i]<LB[lasti]){
			spl[lasti]=0;
		}else{
			spl[i]=0;
		}	
	}
	if(sph[i] OR spl[i])	
		lasti=i;
}		
///////////////////////////////////////////////////////////////////////////////////////	
LB1=HB1=fib1=fib2=fib3=fib4=fib5=fib6=fib7=fib8=fib9=Null;
Lastfib=B=S=range=i=m=0;

function SetFibs(){
	if(sph[i] OR spl[i]){
		fib1[i]=B+S*range*FibMult1;
		fib2[i]=B+S*range*FibMult2;
		fib3[i]=B+S*range*FibMult3;
		fib4[i]=B+S*range*FibMult4;
		fib5[i]=B+S*range*FibMult5;
		fib6[i]=B+S*range*FibMult6;
		fib7[i]=B+S*range*FibMult7;
		fib8[i]=B+S*range*FibMult8;
		fib9[i]=B+S*range*FibMult9;
	}
	fib1[i+1]=fib1[i];
	fib2[i+1]=fib2[i];
	fib3[i+1]=fib3[i];
	fib4[i+1]=fib4[i];
	fib5[i+1]=fib5[i];
	fib6[i+1]=fib6[i];
	fib7[i+1]=fib7[i];
	fib8[i+1]=fib8[i];
	fib9[i+1]=fib9[i];
	if(fib1[i]!=fib1[i-1]){
		lastfib=i;
		if(FibLabels AND NOT fiblines){
			PlotText(txt1,i,fib1[i],colorblack,colorDefault);
			PlotText(txt2,i,fib2[i],colorblack,colorDefault);
			PlotText(txt3,i,fib3[i],colorblack,colorDefault);
			PlotText(txt4,i,fib4[i],colorblack,colorDefault);
			PlotText(txt5,i,fib5[i],colorblack,colorDefault);
			PlotText(txt6,i,fib6[i],colorblack,colorDefault);
			PlotText(txt7,i,fib7[i],colorblack,colorDefault);
			PlotText(txt8,i,fib8[i],colorblack,colorDefault);
			PlotText(txt9,i,fib9[i],colorblack,colorDefault);
		}
		fib1[i]=Null;
		fib2[i]=Null;
		fib3[i]=Null;
		fib4[i]=Null;
		fib5[i]=Null;
		fib6[i]=Null;
		fib7[i]=Null;
		fib8[i]=Null;
		fib9[i]=Null;
	}	
}
function PlotFibs(){
	if(fiblabels AND fiblines){
		PlotText(txt1,LastFib,fib1[lastfib+1],colorblack,colorDefault);
		PlotText(txt2,LastFib,fib2[lastfib+1],colorblack,colorDefault);
		PlotText(txt3,LastFib,fib3[lastfib+1],colorblack,colorDefault);
		PlotText(txt4,LastFib,fib4[lastfib+1],colorblack,colorDefault);
		PlotText(txt5,LastFib,fib5[lastfib+1],colorblack,colorDefault);
		PlotText(txt6,LastFib,fib6[lastfib+1],colorblack,colorDefault);
		PlotText(txt7,LastFib,fib7[lastfib+1],colorblack,colorDefault);
		PlotText(txt8,LastFib,fib8[lastfib+1],colorblack,colorDefault);
		PlotText(txt9,LastFib,fib9[lastfib+1],colorblack,colorDefault);
	}	
	if(FibLines){
		for(i=0;i<lastfib;i++){
			fib1[i]=Null;
			fib2[i]=Null;
			fib3[i]=Null;
			fib4[i]=Null;
			fib5[i]=Null;
			fib6[i]=Null;
			fib7[i]=Null;
			fib8[i]=Null;
			fib9[i]=Null;
		}		
	}
	Plot(fib1,txt1,colorLightBlue);
	Plot(fib2,txt2,colorLightBlue);
	Plot(fib3,txt3,colorLightBlue);
	Plot(fib4,txt4,colorRed,4);
	Plot(fib5,txt5,colorLightBlue);
	Plot(fib6,txt6,colorRed,4);
	Plot(fib7,txt7,colorbrightgreen);
	Plot(fib8,txt8,colorbrightgreen,4);
	Plot(fib9,txt9,colorbrightgreen);	
}

if(Mode=="Both" OR Mode=="Retracements"){
/////////////  Retracements ////////////////////		
	m=1;
	for(i=1;i<BarCount-1;i++){
		if(sph[i]){
			B=HB1=HB[i];
			S=-1;
			range=(HB1-LB1);
		}
		if(spl[i]){
			B=LB1=LB[i];
			S=1;
			range=(HB1-LB1);
		}
		SetFibs();
	}
	PlotFibs();
}	

if(mode=="Both" OR Mode=="Extensions"){
//////////////////  Extensions //////////////////
	n=0;
	S=1;
	for(i=1;i<BarCount-1;i++){
		if(sph[i]){
			n++;
			sp2=sp1;
			sp1=HB[i];
			delta[n]=sp1-sp2;
		}
		if(spl[i]){
			n++;
			sp2=sp1;
			sp1=LB[i];
			delta[n]=sp1-sp2;	
		}
	}
	for(j=1;j<=NE;j++){
		n=0;
		for(i=1;i<BarCount-1;i++){
			if(sph[i]){
				n++;
				B=HB[i];
			}
			if(spl[i]){
				n++;
				B=LB[i];
			}
			m=n-(j*2-1);
			if(m>0){
				range=delta[m];
				SetFibs();
			}	
		}
		PlotFibs();
	}
}				

/*
BuyPrice=LB;
SellPrice=HB;
Buy=spl;
Sell=sph;
Cover=Buy;
Short=Sell;
*/

if(arrows){
	shape=spl*shapeUpArrow+sph*shapeDownArrow;
	PlotShapes(shape,colorBlue,0,IIf(spl,Low,High));	
}

_SECTION_END();

0 comments

Leave Comment

Please login here to leave a comment.

Back