Skip to main content

fibonacci extension updown for Amibroker (AFL)

vijaybaroda over 13 years ago Amibroker (AFL)

  • Rating:
    3 / 5 (Votes 7)
  • Tags:
    amibroker, fibonacci

using fibonacci of last day week ,month range..plotting fib lines,usefull levels for intraday as well as swing trade..
buy when price enter above 38.2 level and sell whenprice enter in lower 38.2 level below..

Screenshots

Indicator / Formula

Copy & Paste Friendly
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

_SECTION_BEGIN("fib extn up down vijay");
// Setup for Daily Range

TimeFrameSet(inDaily);
TOP_        = Open;
PDH_        = Ref(High,-1);
PDL_        = Ref(Low,-1);
PDO_        = Ref(Open,-1);
PDC_        = Ref(Close,-1);
PDM_        = (PDH_+PDL_)/2;
TimeFrameRestore();

TOP         = TimeFrameExpand(TOP_,inDaily,expandFirst);
PDH         = TimeFrameExpand(PDH_,inDaily,expandFirst); 
PDL         = TimeFrameExpand(PDL_,inDaily,expandFirst); 
PDO         = TimeFrameExpand(PDO_,inDaily,expandFirst);
PDC         = TimeFrameExpand(PDC_,inDaily,expandFirst); 

TOP         = TimeFrameExpand(TOP_,inDaily,expandFirst);
PDH         = TimeFrameExpand(PDH_,inDaily,expandFirst); 
PDL         = TimeFrameExpand(PDL_,inDaily,expandFirst); 
PDO         = TimeFrameExpand(PDO_,inDaily,expandFirst);
PDC         = TimeFrameExpand(PDC_,inDaily,expandFirst); 
//Bars       = BarsSince(TimeNum() >= 62900 AND TimeNum() < 64400);//,BarIndex(),1); // AND DateNum()==LastValue(DateNum());
 
// Day High
x0 =BarCount-5;
x1 = BarCount;
y0 = y1= pdh[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorGreen,styleLine|styleNoRescale);
// Day Close
y0 = y1= pdc[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorWhite,styleLine|styleNoRescale);
// Day Low
y0 = y1= pdl[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorRed,styleLine|styleNoRescale);

PlotText("Day High "+ pdh, BarCount+1, pdh[BarCount-1], colorGreen );
PlotText("Day Close "+ pdc, BarCount+1, pdc[BarCount-1], colorWhite );
PlotText("Day Low "+ pdl, BarCount+1, pdl[BarCount-1], colorRed );

// fib ext
base = pdh -pdl ;
fu423_6 = pdc + (base * 4.236);
fu261_8 = pdc + (base * 2.618);
fu161_8 = pdc + (base * 1.618);
fu127_2 = pdc + (base * 1.272);
fu100 = pdc + (base * 1.000);
fu61_8 = pdc + (base * 0.618);
fu50 = pdc + (base * 0.500);
fu38_2 = pdc + (base * 0.382);
fu23_6 = pdc + (base * 0.236);
fu11_8 = pdc + (base * 0.118);
fd11_8 = pdc - (base * 0.118);
fd23_6 = pdc - (base * 0.236);
fd38_2 = pdc - (base * 0.382);
fd50 = pdc - (base * 0.500);
fd61_8 = pdc - (base * 0.618);
fd100 = pdc - (base * 1.000);
fd127_2 = pdc - (base * 1.272);
fd161_8 = pdc - (base * 1.618);
fd261_8 = pdc - (base * 2.618);
fd423_6 = pdc - (base * 4.236);

x0 =BarCount-10;
x1 = BarCount;


// Up
/*
// FU423_6
y0 = y1= fu423_6[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+423.60% @ " + fu423_6 , BarCount+1, y0, colorBlueGrey);


// FU261_8
y0 = y1= fu261_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+261.80% @ " + fu261_8 , BarCount+1, y0, colorBlueGrey);
*/
// FU161_8
y0 = y1= fu161_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+161.80% @ " + fu161_8 , BarCount+1, y0, colorBlueGrey);

// FU127_2
y0 = y1= fu127_2[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+127.20% @ " + fu127_2 , BarCount+1, y0, colorBlueGrey);

// FU100
y0 = y1= fu100[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+100.00% @ " + fu100 , BarCount+1, y0, colorBlueGrey);

// FU61_8
y0 = y1= fu61_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+61.80% @ " + fu61_8 , BarCount+1, y0, colorBlueGrey);


// FU50
y0 = y1= fu50[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+50.00% @ " + fu50 , BarCount+1, y0, colorBlueGrey);

// FU38_2
y0 = y1= fu38_2[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+38.20% @ " + fu100 , BarCount+1, y0, colorBlueGrey);

// FU23_6
y0 = y1= fu23_6[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+23.60% @ " + fu23_6 , BarCount+1, y0, colorBlueGrey);

// FU11_8
y0 = y1= fu11_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorBlueGrey,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("+11.80% @ " + fu11_8 , BarCount+1, y0, colorBlueGrey);


//Down

// FD11_8
y0 = y1= fd11_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-11.80% @ " + fd11_8 , BarCount+1, y0, colorDarkYellow);

// FD23_6
y0 = y1= fd23_6[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-23.60% @ " + fd23_6 , BarCount+1, y0, colorDarkYellow);

// FD38_2
y0 = y1= fd38_2[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-38.20% @ " + fd38_2 , BarCount+1, y0, colorDarkYellow);

// FD50
y0 = y1= fd50[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-50.00% @ " + fd50 , BarCount+1, y0, colorDarkYellow);

// FD61_8
y0 = y1= fd61_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-61.80% @ " + fd61_8 , BarCount+1, y0, colorDarkYellow);

// FD100
y0 = y1= fd100[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-100.00% @ " + fd100 , BarCount+1, y0, colorDarkYellow);

// FD127_2
y0 = y1= fd127_2[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-127.20% @ " + fd127_2 , BarCount+1, y0, colorDarkYellow);

// FD161_8
y0 = y1= fd161_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-161.80% @ " + fd161_8 , BarCount+1, y0, colorDarkYellow);
/*
// FD261_8
y0 = y1= fd261_8[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-261.80% @ " + fd261_8 , BarCount+1, y0, colorDarkYellow);

// FD423_6
y0 = y1= fd423_6[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorDarkYellow,styleLine|styleDashed ); //styleNoRescale colorLightGrey
PlotText("-423.60% @ " + fd423_6 , BarCount+1, y0, colorDarkYellow);
*/
/*

// Setup for Weekly Range
TimeFrameSet(inWeekly);
TOW_        = Open;
PWH_        = Ref(High,-1);
PWL_        = Ref(Low,-1);
PWO_        = Ref(Open,-1);
PWC_        = Ref(Close,-1);
TimeFrameRestore();

TOW         = TimeFrameExpand(TOW_,inDaily,expandFirst);
PWH         = TimeFrameExpand(PWH_,inDaily,expandFirst); 
PWL         = TimeFrameExpand(PWL_,inDaily,expandFirst); 
PWO         = TimeFrameExpand(PWO_,inDaily,expandFirst);
PWC         = TimeFrameExpand(PWC_,inDaily,expandFirst); 

// Weekly High
x0 =BarCount-40;
x1 = BarCount;
y0 = y1= pwh[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorGreen,styleLine|styleNoRescale);
// Weekly Close
y0 = y1= pwc[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorWhite,styleLine|styleNoRescale);
// Weekly Low
y0 = y1= pwl[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorRed,styleLine|styleNoRescale);

PlotText("Weekly High "+ pwh, BarCount+1, pwh[BarCount-1], colorGreen );
PlotText("Weekly Close "+ pwc, BarCount+1, pwc[BarCount-1], colorWhite );
PlotText("Weekly Low "+ pwl, BarCount+1, pwl[BarCount-1], colorRed );

// Setup for Monthly Range
TimeFrameSet(inMonthly);
TOM_        = Open;
PMH_        = Ref(High,-1);
PML_        = Ref(Low,-1);
PMO_        = Ref(Open,-1);
PMC_        = Ref(Close,-1);
TimeFrameRestore();

TOM         = TimeFrameExpand(TOM_,inDaily,expandFirst);
PMH         = TimeFrameExpand(PMH_,inDaily,expandFirst); 
PML         = TimeFrameExpand(PML_,inDaily,expandFirst); 
PMO         = TimeFrameExpand(PMO_,inDaily,expandFirst);
PMC         = TimeFrameExpand(PMC_,inDaily,expandFirst); 

// Monthly High
x0 =BarCount-20;
x1 = BarCount;
y0 = y1= pmh[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorGreen,styleLine|styleNoRescale);
// Monthly Close
y0 = y1= pmc[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorWhite,styleLine|styleNoRescale);
// Monthly Low
y0 = y1= pml[BarCount-1]+1;
Plot(LineArray(x0,y0,x1,y1,0),"",colorRed,styleLine|styleNoRescale);

PlotText("Monthly High "+ pmh, BarCount+1, pmh[BarCount-1], colorGreen );
PlotText("Monthly Close "+ pmc, BarCount+1, pmc[BarCount-1], colorWhite );
PlotText("Monthly Low "+ pml, BarCount+1, pml[BarCount-1], colorRed );
*/
_SECTION_END();

3 comments

3. aaron
over 10 years ago

vijay sir,
Please +38.2 is error would you corrects and in daily chart levels are little bit cramp.
please make it larger if possible and last but not least very much thankful to you for this afl as i am searching this afl for long ago.
Thanx

Report as Spam

Leave Comment

Please login here to leave a comment.