// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Resistance And Support Levels");
DayH = Param( "DayH ",100, 100, 60000,1 );
DayL = Param( "DayL ",100, 100, 60000,1 );   
DayC = Param( "DayC ",100, 100, 60000,1 );
DayO =  Param( "DayO ",100, 100, 60000,1 );
TimeFrameSet(inDaily);
Pivot = ( DayH + DayL + DayC + DayO) / 4;
S1 = Pivot - 0.382 * (DayH - DayL );
S2 = Pivot - 0.618 * (DayH - DayL );
S3 = Pivot - 1.000 * (DayH - DayL );
S4 = Pivot - 1.270 * (DayH - DayL );
S5 = Pivot - 1.620 * (DayH - DayL );
R1 = Pivot + 0.382 * (DayH - DayL );
R2 = Pivot + 0.618 * (DayH - DayL );
R3 = Pivot + 1.000 * (DayH - DayL );
R4 = Pivot + 1.270 * (DayH - DayL );
R5 = Pivot + 1.620 * (DayH - DayL );
TimeFrameRestore();
Plot(TimeFrameExpand(R4,inDaily,expandLast), "R4", colorGreen, styleDashed);
Plot(TimeFrameExpand(R5,inDaily,expandLast), "R5", colorGreen, styleDashed);
Plot(TimeFrameExpand(R2,inDaily,expandLast), "R2", colorGreen, styleDashed);
Plot(TimeFrameExpand(R3,inDaily,expandLast), "R3", colorGreen, styleDashed);
Plot(TimeFrameExpand(R1,inDaily,expandLast), "R1", colorGreen, styleThick);
Plot(TimeFrameExpand(Pivot ,inDaily,expandLast), "Pivot", colorBlue, styleThick);
Plot(TimeFrameExpand(S3,inDaily,expandLast), "s3" , colorRed, styleDashed);
Plot(TimeFrameExpand(S1,inDaily,expandLast), "s1",colorRed, styleThick);
Plot(TimeFrameExpand(S2,inDaily,expandLast), "S2", colorRed, styleDashed);
Plot(TimeFrameExpand(S4,inDaily,expandLast), "s4" , colorRed, styleDashed);
Plot(TimeFrameExpand(S5,inDaily,expandLast), "s5" , colorRed, styleDashed);
GraphXSpace = 10;
Highs = TEMA(High, 30);
Lows = TEMA(Low, 30);
UpTrend = C > Highs;
DnTrend = C < Lows ;
Colors = IIf(UpTrend, colorGreen, IIf(DnTrend, colorRed, colorLightGrey));
Plot(Close, "Price", Colors, styleCandle | styleThick);