// Downloaded From https://www.WiseStockTrader.com _SECTION_BEGIN("Trend Color"); HaClose =EMA((O+H+L+C)/4,3); HaOpen = IIf(BarIndex()>0,AMA( Ref( HaClose, -1 ), 0.5 ),Open); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); p1=Param("Extreme period1",5,3,10); p2=Param("Extreme period2",8,3,20); p3=Param("Extreme period3",13,3,50); sc=Param("Score Limit",3,1,7); HaDiff = IIf(HaClose>HaOpen, 1, IIf((O+H+L+C)/4EMA(HaClose,p1), 1, IIf(HaCloseEMA(HaClose,p2), 1, IIf(HaCloseEMA(HaClose,p3), 1, IIf(HaCloseEMA(HaClose,p2), 1, IIf(EMA(HaClose,p1)EMA(HaClose,p3), 1, IIf(EMA(HaClose,p2)Ref(HaClose,-1), 1, IIf(HaClosesc AND NOT (Ref(TScore,-1)-sc AND Avg>Ref(Avg,-1)),ColorRGB(100,0,0),colorWhite)); mycolor=IIf(Tscore>0, colorGreen,colorRed); SetBarFillColor(Fillcolor); PlotOHLC(O,H,L,C,"Candlestick",myColor,styleCandle|styleLine); _SECTION_END(); _SECTION_BEGIN("Min"); // T = Param("Time", 3,1, 60,1); TimeFrameSet( T* in1Minute ); // switch to 5 minute frame P = Param("30Min P", 9, 3, 100,1); ma30_9 = MA( C, P); Plot( TimeFrameExpand( ma30_9, T* in1Minute), " EMA T",ParamColor( "T EMA", colorCycle ), ParamStyle("T Min style",styleLine | styleThick)); TimeFrameRestore(); // restore time frame to original TimeFrameSet( in5Minute ); // switch to 5 minute frame P = Param("5 Min P", 9, 3, 100,1); ma5_13 = MA( C, P); Plot( TimeFrameExpand( ma5_13, in5Minute), " EMA 5Min",ParamColor( "5Min EMA", colorCycle ), ParamStyle("5Min style",styleLine | styleThick)); TimeFrameRestore(); // restore time frame to original TimeFrameSet( in15Minute); // switch to 15 minute frame P = Param("15 Min P", 11, 3, 100,1); ma5_15 = MA( C, P); Plot( TimeFrameExpand( ma5_15, in15Minute), " EMA 15Min",ParamColor( "15Min EMA", colorCycle ), ParamStyle("15Min style",styleLine | styleNoRescale)); TimeFrameRestore(); // restore time frame to origina TimeFrameSet( inHourly ); // switch now to hourly P1 = Param("Hr P", 21, 3, 100,1); mah_9 = MA( C, P1 ); // moving average from hourly data Plot( TimeFrameExpand( mah_9, inHourly), " EMA Hrly",ParamColor( "Hr EMA", colorCycle ), ParamStyle("Hr style",styleLine | styleThick| styleNoRescale)); TimeFrameRestore(); // restore time frame to original TimeFrameSet( inDaily ); // switch now to hourly P2 = Param("Daily P", 21, 3, 100,1); mah_13D = MA( C, p2 ); // moving average from daily data Plot( TimeFrameExpand( mah_13D, inDaily), " EMA Daily",ParamColor( "Daily EMA", colorCycle ), ParamStyle("Daily style",styleLine | styleThick| styleNoRescale)); TimeFrameRestore(); // restore time frame to original _SECTION_END(); //---- pivot points DayH = TimeFrameGetPrice("H", inDaily,-1);// yesterdays high DayL = TimeFrameGetPrice("L", inDaily,-1);//low DayC = TimeFrameGetPrice("C", inDaily,-1);//close DayO = TimeFrameGetPrice("O", inDaily,-1);// current day open HiDay = TimeFrameGetPrice("H", inDaily); LoDay = TimeFrameGetPrice("L", inDaily); PP = (DayH + DayL + DayC) / 3 ; D = (DayH - DayL)/2; R1 = D+DayC; R2 = (DayH-DayL)+DayC; R3 = R2 +D ; S1 = DayC - D; S2 = DayC - (DayH - DayL); S3 = S2 - D; style = styleLine + styleNoRescale; rcolor = colorBlue; scolor = colorRed; pcolor = colorPink; Plot( PP, " P P", ParamColor( "PP", colorTeal ), ParamStyle("PPStyle") ); Plot(R1,"RES",colorRed, styleLine|styleDashed| styleNoRescale ); Plot(R2,"Mid",colorBlue, styleLine|styleDashed| styleNoRescale); Plot(R3,"SUP",colorGreen, styleLine|styleDashed| styleNoRescale ); Plot(S1,"RES",colorRed, styleLine|styleDashed| styleNoRescale ); Plot(s2,"Mid",colorBlue, styleLine|styleDashed| styleNoRescale); Plot(S3,"SUP",colorGreen, styleLine|styleDashed| styleNoRescale ); _SECTION_END(); //============== TITLE ============== _SECTION_BEGIN( "Title" ); y = Status( "pxchartheight" ); GfxTextOut( ("n j e t h v a @ y m a i l . c o m "), 20, y -30); _SECTION_END(); _SECTION_BEGIN("Bollinger Bands"); P = ParamField("Price field",-1); Periods = Param("Periods", 15, 2, 100, 1 ); Width = Param("Width", 2, 0, 10, 0.05 ); Color = ParamColor("Color", colorLightGrey ); Style = ParamStyle("Style", styleLine | styleNoLabel ) | styleNoLabel; Plot( bbt = BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); Plot( bbb = BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style ); PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.8 ), styleNoLabel| styleNoRescale | styleCloud | styleNoRescale, Null, Null, Null, -1 ); _SECTION_END();