// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();


k= StochK(45,15);
d= StochD(45,15,15);

sh= Cross(k,d);
sl= Cross(d,k);

Hh= HighestSince(sh,H,1);
Ll= LowestSince(sl,L,1);
Hhc= ValueWhen(sl,Hh,1);
Llc= ValueWhen(sh,Ll,1);

x1 = IIf(C>Hhc,1,IIf(C<Llc,-1,0));
y1 = IIf(C<Llc,1,IIf(C>Hhc,-1,0));
x2 = ValueWhen(x1!=0,x1,1);
y2 = ValueWhen(y1!=0,y1,1);
sts = IIf(x2==1,Llc,Null);
str = IIf(y2==1,Hhc,Null);
Plot(sts,"Support",IIf(C<sts,colorBlue,colorYellow),styleLine|styleThick);
Plot(str,"Resistance",IIf(C>str,colorYellow,colorBlue),styleLine|styleThick);

Buy0= C>Hhc;
Short0= C<Llc;
Buy0= ExRem(Buy0,Short0);
Short0= ExRem(Short0,Buy0);


k1= StochK(5,3);
d1= StochD(5,3,3);
sh1= Cross(k1,d1);
sl1= Cross(d1,k1);

Hh1= HighestSince(sh1,H,1);
Ll1= LowestSince(sl1,L,1);
Hhc1= ValueWhen(sl1,Hh1,1);
Llc1= ValueWhen(sh1,Ll1,1);

x5 = IIf(C>Hhc1,1,IIf(C<Llc1,-1,0));
y5 = IIf(C<Llc1,1,IIf(C>Hhc1,-1,0));
x6 = ValueWhen(x5!=0,x5,1);
y6 = ValueWhen(y5!=0,y5,1);
sts1 = IIf(x6==1,Llc1,Null);
str1 = IIf(y6==1,Hhc1,Null);
Plot(sts1,"Support",IIf(C<sts1,colorOrange,colorPink),styleDashed);
Plot(str1,"Resistance",IIf(C>str1,colorPink,colorOrange),styleDashed);

Buy1= C>Hhc1;
Short1= C<Llc1;
Buy1= ExRem(Buy1,Short1);
Short1= ExRem(Short1,Buy1);


k2= StochK(15,5);
d2= StochD(15,5,5);

sh2= Cross(k2,d2);
sl2= Cross(d2,k2);

Hh2= HighestSince(sh2,H,1);
Ll2= LowestSince(sl2,L,1);
Hhc2= ValueWhen(sl2,Hh2,1);
Llc2= ValueWhen(sh2,Ll2,1);

x3 = IIf(C>Hhc2,1,IIf(C<Llc2,-1,0));
y3 = IIf(C<Llc2,1,IIf(C>Hhc2,-1,0));
x4 = ValueWhen(x3!=0,x3,1);
y4 = ValueWhen(y3!=0,y3,1);
sts2 = IIf(x4==1,Llc2,Null);
str2 = IIf(y4==1,Hhc2,Null);
Plot(sts2,"Support",IIf(C<sts2,colorAqua,colorLime),styleLine|styleThick);
Plot(str2,"Resistance",IIf(C>str2,colorLime,colorAqua),styleLine|styleThick);

Buy2= C>Hhc2;
Short2= C<Llc2;
Buy2= ExRem(Buy2,Short2);
Short2= ExRem(Short2,Buy2);


PlotShapes(IIf(Buy0,shapeUpArrow,shapeNone),colorBlue,0,L,-30);
PlotShapes(IIf(Short0,shapeDownArrow,shapeNone),colorYellow,0,H,-30);
PlotShapes(IIf(Buy1,shapeUpArrow,shapeNone),colorOrange,0,L,-30);
PlotShapes(IIf(Short1,shapeDownArrow,shapeNone),colorOrange,0,H,-30);
PlotShapes(IIf(Buy2,shapeUpArrow,shapeNone),colorLime,0,L,-30);
PlotShapes(IIf(Short2,shapeDownArrow,shapeNone),colorLime,0,H,-30);