// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Price") ;
SetChartOptions(0,chartShowArrows|chartShowDates);
GraphXSpace=Param("GraphXSpace",25,0,100,1);
Title = EncodeColor(colorGold)+Name()+" - "+EncodeColor(colorBrightGreen)+FullName()+"\n "+
EncodeColor(colorGold)+StrFormat(" - Open %g, Hi %g, Lo %g, Close %g ",O,H,L,C )+EncodeColor(colorBrightGreen)+" - "+Date()+
" - Volume :"+WriteVal(V,1.0);
SetChartOptions(0,chartShowDates);
MyColor = IIf(C > Ref(C,-1),ParamColor("ColorUp", colorGreen),ParamColor("ColorDown", colorRed) );
MyStyle=ParamStyle("Style",styleCandle,maskAll);
Plot( C, "Close", MyColor , MyStyle);
_SECTION_END();
_SECTION_BEGIN("NMAW1");
GPeriode=Param("GPeriode", 13, 2, 500, 1 );
kurs = (High+Close+Low+O)/4;
ma11 = WMA (kurs, GPeriode);
a=C-kurs ;
x=a/2;
starting=ma11 - x;
Plot(starting,"starting",colorGreen,styleStaircase);
Buy= Cross(C , starting ) AND O>starting AND L>starting AND H>starting;
Sell= Cross(starting,C )AND O<starting AND L<starting AND H<starting;;
PlotShapes(IIf(Buy,shapeUpArrow ,shapeNone),colorBlue,0,L,-35);
PlotShapes(IIf(Sell,shapeDownArrow , shapeNone),colorRed,0,H,-35);