/*---------------------------------------------------
Automatic Fib Levels
Aron Pipa, December, 11, 2005
modified by jan,11,2010
--------------------------------------------------------*/
GraphXSpace=2;
Plot(C,"", colorWhite,styleCandle);
// Get values for fib levels
StartBar=SelectedValue(BarIndex());
FinishBar = EndValue( BarIndex() );
i = startbar;
period = FinishBar - StartBar;
Lo =LLV(L,4);
Hi = HHV(H,4);
Line0 = 0;
Line1 = 0;
Line2 = 0;
Line3 = 0;
Line4 = 0;
Line5 = 0;
Line6 = 0;
Line7 = 0;
Line8 = 0;
Line9 = 0;
Line10 = 0;
Line11 = 0;
Line12 = 0;
Line13 = 0;
Line14 = 0;
Line15 = 0;
Line16 = 0;
Line17 = 0;
Line18 = 0;
Line100 = 0;
for( i = startbar; i < finishbar; i++ )
{
if(EndValue(C)<SelectedValue(C))
{
Line0 = EndValue(Lo);
Line100 = EndValue(Hi);
Line1 = Line0 + abs(Line100-Line0)*0.0;
Line2 = Line0 + abs(Line100-Line0)*0.145;
Line3 = Line0 + abs(Line100-Line0)*0.236;
Line4 = Line0 + abs(Line100-Line0)*0.382;
Line5 = Line0 + abs(Line100-Line0)*0.500;
Line6 = Line0 + abs(Line100-Line0)*0.618;
Line7 = Line0 + abs(Line100-Line0)*0.764;
Line8 = Line0 + abs(Line100-Line0)*0.855;
Line9 = Line0 + abs(Line100-Line0)*1.00;
Line10 = Line0 + abs(Line100-Line0)*1.145;
Line11 = Line0 + abs(Line100-Line0)*1.236;
Line12 = Line0 + abs(Line100-Line0)*1.382;
Line13 = Line0 + abs(Line100-Line0)*1.500;
Line14 = Line0 + abs(Line100-Line0)*1.618;
Line15 = Line0 + abs(Line100-Line0)*1.764;
Line16 = Line0 + abs(Line100-Line0)*1.855;
Line17 = Line0 + abs(Line100-Line0)*2.00;
}
else
{
Line100 = EndValue(Lo);
Line0 = EndValue(Hi);
Line1 = Line0 - abs(Line100-Line0)*0.0;
Line2 = Line0 - abs(Line100-Line0)*0.145;
Line3 = Line0 - abs(Line100-Line0)*0.236;
Line4 = Line0 - abs(Line100-Line0)*0.382;
Line5 = Line0 - abs(Line100-Line0)*0.500;
Line6 = Line0 - abs(Line100-Line0)*0.618;
Line7 = Line0 - abs(Line100-Line0)*0.764;
Line8 = Line0 - abs(Line100-Line0)*0.855;
Line9 = Line0 - abs(Line100-Line0)*1.00;
Line10 = Line0 - abs(Line100-Line0)*1.145;
Line11 = Line0 - abs(Line100-Line0)*1.236;
Line12 = Line0 - abs(Line100-Line0)*1.382;
Line13 = Line0 - abs(Line100-Line0)*1.500;
Line14 = Line0 - abs(Line100-Line0)*1.618;
Line15 = Line0 - abs(Line100-Line0)*1.764;
Line16 = Line0 - abs(Line100-Line0)*1.855;
Line17 = Line0 - abs(Line100-Line0)*2.00;
}
}
// external fib lines begining fom selecetdbarindex()
fib0= LineArray(startbar, Line0, finishbar, Line0, 0, 1);
fib100 = LineArray(startbar, Line100, finishbar, Line100, 0, 1);
// depth of middle lines
n= round((finishbar-startbar)/2);
// middle lines
fib1= LineArray((finishbar-n), Line1, finishbar, Line1, 0, 1);
fib2= LineArray((finishbar-n), Line2, finishbar, Line2, 0, 1);
fib3= LineArray((finishbar-n), Line3, finishbar, Line3, 0, 1);
fib4= LineArray((finishbar-n), Line4, finishbar, Line4, 0, 1);
fib5= LineArray((finishbar-n), Line5, finishbar, Line5, 0, 1);
fib6= LineArray((finishbar-n), Line6, finishbar, Line6, 0, 1);
fib7= LineArray((finishbar-n), Line7, finishbar, Line7, 0, 1);
fib8= LineArray((finishbar-n), Line8, finishbar, Line8, 0, 1);
fib9= LineArray((finishbar-n), Line9, finishbar, Line9, 0, 1);
fib10= LineArray((finishbar-n), Line10, finishbar, Line10, 0, 1);
fib11= LineArray((finishbar-n), Line11, finishbar, Line11, 0, 1);
fib12= LineArray((finishbar-n), Line12, finishbar, Line12, 0, 1);
fib13= LineArray((finishbar-n), Line13, finishbar, Line13, 0, 1);
fib14= LineArray((finishbar-n), Line14, finishbar, Line14, 0, 1);
fib15= LineArray((finishbar-n), Line15, finishbar, Line15, 0, 1);
fib16= LineArray((finishbar-n), Line16, finishbar, Line16, 0, 1);
fib17= LineArray((finishbar-n), Line17, finishbar, Line17, 0, 1);
fib18= LineArray((finishbar-n), Line18, finishbar, Line18, 0, 1);
Plot(fib0,"", colorWhite);
Plot(fib100,"", colorRed);
Plot(fib1,"0.0%=", colorOrange);
Plot(fib2,"14.5%=", colorRed);
Plot(fib3,"23.6%=", colorRed);
Plot(fib4,"38.2%=", colorRed);
Plot(fib5,"50.0%=", colorRed);
Plot(fib6,"61.8%=", colorRed);
Plot(fib7,"76.4%=", colorRed);
Plot(fib8,"85.5%=", colorRed);
Plot(fib9,"100.0%=", colorRed);
Plot(fib10,"114.5%=", colorRed);
Plot(fib11,"123.6%=", colorRed);
Plot(fib12,"138.2%=", colorRed);
Plot(fib13,"150%=", colorRed);
Plot(fib14,"161.8%=", colorRed);
Plot(fib15,"176.4%=", colorRed);
Plot(fib16,"185.5%=", colorRed);
Plot(fib17,"200.0%=", colorRed);
//Plot(fib18,"", colorPink);
Title = Name() + " - Auto FIB LEVELS "
+"\n"+EncodeColor(colorRed)+"0.0% = "+line1
+"\n"+EncodeColor(colorRed)+"14.5% = "+line2
+"\n"+EncodeColor(colorRed)+"23.6% = "+line3
+"\n"+EncodeColor(colorRed)+"38.2% = "+line4
+"\n"+EncodeColor(colorRed)+"50.0%= "+line5
+"\n"+EncodeColor(colorRed)+"61.8%= "+line6
+"\n"+EncodeColor(colorRed)+"76.4%= "+line7
+"\n"+EncodeColor(colorRed)+"85.5%= "+line8
+"\n"+EncodeColor(colorRed)+"100.0%= "+line9
+"\n"+EncodeColor(colorRed)+"114.5%= "+line10
+"\n"+EncodeColor(colorRed)+"123.6%= "+line11
+"\n"+EncodeColor(colorRed)+"138.2%= "+line12
+"\n"+EncodeColor(colorRed)+"150.0%= "+line13
+"\n"+EncodeColor(colorRed)+"161.8%= "+line14
+"\n"+EncodeColor(colorRed)+"176.4%= "+line15
+"\n"+EncodeColor(colorRed)+"185.5%= "+line16
+"\n"+EncodeColor(colorRed)+"200.0%= "+line17
+"\n "
;
This is afl modified by me, takes HI LOW of last 4 days, n draws levels. U can replace 4 with 1 for last days HI LOW, also u can replace Fibo numbers with ur preferred numbers