// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Red Buy Green Sell");

GraphXSpace=8;

P1 = Param( "MA01 Period", 6, 2, 200 );
P2 = Param( "MA02 Period", 12, 2, 200 );

MA01=MA(C,P1 );
MA02=MA(C,P2 );

RG=IIf(MA01>MA02,MA01-MA02,-(MA02-MA01));

PlotOHLC( MA02,RG+MA02,MA02,RG+MA02,"",23, styleCandle+4096); 
Plot( SelectedValue(C), "",IIf(SelectedValue(MA01)>SelectedValue(MA02),4,34),styleNoLine);
_SECTION_BEGIN("FDS SWING");
no=55;
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
supres=IIf(avn==1,sup,res);

Plot(supres,"Swing SL",colorBlue,styleThick);
_SECTION_END();range = 28;//Param("Periods", 14, 2, 200, 1 );

ADXi=ADX(range);

PDIi=PDI(range);

MDIi=MDI(range);

//Plot( ADXi=ADX(range), _DEFAULT_NAME(), ParamColor( "ADX color", colorBlue ), ParamStyle("ADX style", styleThick ) );

//Plot( PDIi=PDI(range), "", ParamColor( "+DI color", colorGreen ), ParamStyle("+DI style") );

//Plot( MDIi=MDI(range), "", ParamColor( "-DI color", colorRed ), ParamStyle("-DI style") );

uptrend=PDIi>MDIi;//+di greater than -di

downtrend=MDIi>PDIi;//-di greater than +di

Ribboncol=IIf(upTrend,colorGreen, IIf(downtrend,colorRed, colorBlack));

Plot(6, "", Ribboncol, styleOwnScale|styleArea|styleNoLabel, -7.5,100);