// Downloaded From https://www.WiseStockTrader.com // Subhankar chakraborty // ph8768142154, // waves analysisest // pivot analysisest // box analysisest //afl SetBarsRequired(1000); BarLum1 = Param("Bar Color Intensity", 8, 0, 10,01); UpBarColor = ColorBlend(ColorRGB(5,36,5), ColorRGB(10,75,10), BarLum1); DnBarColor = ColorBlend(ColorRGB(36,5,5), ColorRGB(75,10,10), BarLum1); BarColor = IIf(Close > Open, UpBarColor, DnBarColor); SetBarFillColor(BarColor); stylecndl=ParamToggle("Bar or Candle chart?","Bar|Candle",0); Showboll=ParamToggle("Show Bollinger Bands","No|Yes",0); showgann=ParamToggle("Show shortest path?","No|Yes",1); nobars=Param("N bars = ",2,1,5,1); upbar=downbar=j=k=0; if (nobars==1)upbar=H>Ref(H,-1); if (nobars==2)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2); if (nobars==3)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3); if (nobars==4)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3) AND Ref(H,-3)>Ref(H,-4); if (nobars==5)upbar=H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3) AND Ref(H,-3)>Ref(H,-4) AND Ref(H,-4)>Ref(H,-5);; if (nobars==1)downbar=L=nobars+2) { //if (i>begi+1)PlotText(WriteVal(I>begi+1,1.0),i,H[i]+15,colorOrange); if ((upbar[i] AND i>beglo ) OR (H[i]>H[beghi])) { if (((beghi>beglo AND H[i]>H[beghi]) OR beghi==0) OR beglo>beghi) { tline[i]=H[i]; barhi=1; barlo=0; prevhi=beghi; beghi=i; if ((H[beghi]>H[prevhi] AND prevhi>beglo) OR beglo>prevhi) {lasthi1=Lasthi;Lasthi=i;} } } if ((downbar[i] AND i>beghi ) OR (L[i]beghi AND L[i]beglo) { tline[i]=L[i]; barlo=1; barhi=0; prevlo=beglo; beglo=i; if ((L[beglo]beghi) OR beghi>prevlo){lastlo1=lastlo;Lastlo=i;} } } } if (i==beglo) { if (prevlo>beghi) { if (showgann==0){begi=prevlo; begval=L[prevlo];} else {begi=Lasthi; begval=H[lasthi];} endi=beglo;endval=L[beglo]; } else if (beghi>prevlo) { if (showgann==0){begi=beghi; begval=H[beghi];} else {begi=Lasthi; begval=H[lasthi];} endi=beglo;endval=L[beglo]; } } if (i==beghi) { if (prevhi>beglo) { if (showgann==0){begi=prevhi; begval=H[prevhi];} else {begi=Lastlo; begval=L[Lastlo];} endi=beghi;endval=H[beghi]; } else if (beglo>prevhi) { if (showgann==0){begi=beglo; begval=L[beglo];} else {begi=Lastlo; begval=L[Lastlo];} endi=beghi;endval=H[beghi]; } } if (endi-begi>1) { incr=(endval-begval)/(endi-begi); for (k=begi;k<=endi;k++) { tline[k]=begval+(k-begi)*incr; } } if (tline[i]==0)tline[i]=Null; //trend line end } tline=IIf(tline>0,tline,Null); Plot(tline,"Trendline",colorWhite,styleLine); //PlotOHLC(ox,Hx,Lx,cx,"Gann Trend",colorGreen,styleBar); if (showboll) { _SECTION_BEGIN("B"); P = ParamField("Price field",-1); Periods = Param("Periods", 15, 2, 300, 1 ); Width = Param("Width", 2, 0, 10, 0.05 ); Color = ParamColor("Color", colorCycle ); Style = ParamStyle("Style"); Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style ); _SECTION_END(); _SECTION_BEGIN("MA"); P = ParamField("Price field",-1); Periods = Param("Periods", 15, 2, 300, 1, 10 ); Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); _SECTION_END(); }