.

Magic Dots Upper Lower Trend Detector - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

Magic Dots Upper Lower Trend Detector

 Version(5.21);
 xx=BarIndex();x=xx;Lx=LastValue(x);
 tf=Param("Time Frame (min)",60,1,500,1);tfrm=in1Minute*tf;

 TimeFrameSet(tfrm); 
 H_tfrm=H;
 L_tfrm=L;
 TimeFrameRestore();
 Lkbk=tfrm/Interval();
 if(Lkbk>1)
 {
 H_tfrm=TimeFrameExpand(H_tfrm,tfrm,expandFirst); 
 L_tfrm=TimeFrameExpand(L_tfrm,tfrm,expandFirst);
 }

 H_mark=H_tfrm==H;
 L_mark=L_tfrm==L;

 GraphXSpace=5;
 SetChartOptions(0,chartShowDates);
 SetBarFillColor(IIf(C>O,ColorRGB(0,75,0),IIf(C<=O, ColorRGB(75,0,0),colorLightGrey)));
 Plot(C,"\nPrice",IIf(C>O,ColorRGB(0,255,0),IIf(C<= O,ColorRGB(255,0,0),colorLightGrey)),64,0,0,0,0);
 PlotShapes(IIf(L_mark,shapeSmallCircle,shapeNone), colorGreen,0,L,-15);
 PlotShapes(IIf(L_mark,shapeHollowCircle,shapeNone) ,colorLightGrey,0,L,-15);
 PlotShapes(IIf(H_mark,shapeSmallCircle,shapeNone), colorRed,0,H,15);
 PlotShapes(IIf(H_mark,shapeHollowCircle,shapeNone) ,colorLightGrey,0,H,15);
 Plot(H_tfrm,"",colorRed,styleLine);
 Plot(L_tfrm,"",colorGreen,styleLine);

 qq=Interval()/60;
 if(qq < 60){tf=" min";tt=qq;}
 else if(qq >= 60 AND qq < 1440){tf=" hrs";tt=qq/60;}
 else if(qq >= 1440){tf=" days";tt=(qq/60)/24;}
 qq=Max(tfrm/60,Interval()/60);
 if(qq < 60){tfa=" min";tta=qq;}
 else if(qq >= 60 AND qq < 1440){tfa=" hrs";tta=qq/60;}
 else if(qq >= 1440){tfa=" days";tta=(qq/60)/24;}

 Title = Name() + EncodeColor( colorYellow ) + " | " +
 EncodeColor( ColorRGB(131,111,255) ) + "Chart Timeframe: " + tt + tf + EncodeColor( colorBlue ) + " | " + 
 EncodeColor( ColorRGB(131,111,255) ) + "Trend Timeframe: " + tta + tfa + EncodeColor( colorDarkGrey ) 
 + EncodeColor( colorBlue ) + " | ";
Previous Post Next Post