// Downloaded From https://www.WiseStockTrader.com _SECTION_BEGIN("Multiple Trend"); // Define label bar (x) position location #pragma nocache blankRightBars = 0; //insert actual blank right bars specified in Preferences barsInView = Status("lastvisiblebarindex") - Status("firstvisiblebarindex") - blankRightBars; Offset = Param("Offset Bar", 0.95, 0, 1, 0.01); textOffset = BarCount - (Offset * barsInView); TimeFrameSet( in5Minute) ; HaClose5 = EMA((O+H+L+C)/4,3); HaOpen5 = AMA( Ref( HaClose5, -1 ), 0.5 ); X5 = HaClose5 < Ref( HaClose5,-1) OR AlmostEqual( Haopen5 , Ref(Haopen5,-1) ); Color5m = IIf( HaOpen5 > HaClose5, colorRed, IIf( X5,colorYellow, colorGreen)); event1 = Haopen5 >= Haclose5; event2 = Haopen5 < Haclose5; TimeFrameRestore(); TimeFrameSet( in15Minute) ; HaClose15 =EMA((O+H+L+C)/4,3); HaOpen15 = AMA( Ref( HaClose15, -1 ), 0.5 ); X15 = HaClose15 < Ref( HaClose15,-1) OR AlmostEqual( HaOpen15,Ref(HaOpen15,-1)); Color15m = IIf( Haopen15 > Haclose15, colorRed, IIf( X15,colorYellow, colorGreen)); event3= Haopen15 >= Haclose15; event4= Haopen15 < Haclose15; TimeFrameRestore(); TimeFrameSet( inHourly) ; HaCloseH =EMA((O+H+L+C)/4,3); HaOpenH = AMA( Ref( HaCloseH, -1 ), 0.5 ); XH = HaCloseH < Ref( HaCloseH,-1) OR AlmostEqual( HaopenH,Ref(HaopenH,-1)); ColorHr = IIf( HaopenH > HacloseH, colorRed, IIf( XH,colorYellow, colorGreen)); event5 = HaopenH >= HacloseH; event6 = HaopenH < HacloseH; TimeFrameRestore(); TimeFrameSet(inDaily) ; HaCloseD = EMA((O+H+L+C)/4,3); HaOpenD = AMA( Ref( HaCloseD, -1 ), 0.5 ); XD = HaCloseD <= Ref( HaCloseD,-1) OR AlmostEqual( HaopenD, Ref(HaopenD,-1)); Color20D = IIf( HaOpenD > HacloseD, colorRed, IIf( XD , colorYellow, colorGreen)); event7 = HaopenD >= HacloseD; event8 = HaopenD < HacloseD; TimeFrameRestore(); PlotShapes( IIf(TimeFrameExpand( event1 , in5Minute ), shapeCircle,shapeNone) ,TimeFrameExpand( Color5m , in5Minute ), 0,81.10); PlotShapes( IIf(TimeFrameExpand( event2 , in5Minute ), shapeCircle,shapeNone) , TimeFrameExpand( Color5m , in5Minute ), 0,81.10); PlotShapes( IIf(TimeFrameExpand( event3 , in15Minute ), shapeCircle,shapeNone) ,TimeFrameExpand( Color15m , in15Minute ), 0,81.30); PlotShapes( IIf(TimeFrameExpand( event4 , in15Minute ), shapeCircle,shapeNone) ,TimeFrameExpand( Color15m , in15Minute ), 0,81.30); PlotShapes( IIf(TimeFrameExpand( event5 , inHourly ), shapeCircle,shapeNone) ,TimeFrameExpand( ColorHr , inHourly ), 0,81.50); PlotShapes( IIf(TimeFrameExpand( event6 , inHourly ), shapeCircle,shapeNone) ,TimeFrameExpand( ColorHr , inHourly ), 0,81.50); PlotShapes( IIf(TimeFrameExpand( event7 , inDaily ), shapeCircle,shapeNone) ,TimeFrameExpand( Color20D , inDaily ), 0,81.73); PlotShapes( IIf(TimeFrameExpand( event8 , inDaily ), shapeCircle,shapeNone) , TimeFrameExpand( Color20D , inDaily ), 0,81.73); Plot( 21,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); PlotText("5 min", textoffset, 81.09, colorWhite); Plot( 41,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); PlotText("15 min", textoffset, 81.28, colorWhite); Plot( 61,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); PlotText("Hourly", textoffset, 81.49, colorWhite); Plot( 81,"",colorBlack,styleOwnScale|styleArea|styleNoLabel,0, 100 ); PlotText("Daily", textoffset, 81.70, colorWhite); Sell = TimeFrameExpand( event1 , in5Minute ) AND TimeFrameExpand( event3 , in15Minute ) AND TimeFrameExpand( event5 , inHourly )/* AND TimeFrameExpand( event7 , inDaily )*/ ; Buy = TimeFrameExpand( event2 , in5Minute ) AND TimeFrameExpand( event4 , in15Minute ) AND TimeFrameExpand( event6 , inHourly ) AND TimeFrameExpand( event8 , inDaily ) ; Buy=ExRem (Buy,Sell); Sell=ExRem(Sell,Buy); PlotShapes( IIf(Buy, shapeUpArrow,shapeNone) , colorSkyblue, 0,81.8); PlotShapes( IIf(Sell, shapeDownArrow,shapeNone) , colorOrange, 0,81.8,10); GraphXSpace = 10; _SECTION_END();