// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Background");
SetChartOptions(0,chartShowArrows|chartShowDates);   

strWeekday = StrMid("SunMonTueWedThuFriSat", SelectedValue(DayOfWeek())*3,3);  
GraphXSpace=Param("GraphXSpace",20,0,100,1);
_SECTION_END();
_SECTION_BEGIN("Price");
Candlefill =  IIf(C>=Ref(C,-1),colorDarkOliveGreen,ParamColor("red candle",colorBrown) ); 
pricestyle=ParamToggle("Price style","Bar|Candle",1);
if (pricestyle == 1) 
{
//Candlefill =  IIf(C>=Ref(C,-1),ParamColor("Green candle",colorGreen),ParamColor("red candle",colorRed) ); 
SetBarFillColor (Candlefill);
//Candlefill =  IIf(C>=Ref(C,-1),colorDarkOliveGreen,ParamColor("red candle",colorBrown) ); 
//SetBarFillColor (Candlefill);
PlotOHLC( Open,  High,  Low,  Close, "", Candlefill, styleCandle,maskPrice);
}
if (pricestyle == 0) 
{
Candlefill =  IIf(C>=Ref(C,-1),ParamColor("Green candle",colorGreen),ParamColor("red candle",colorRed) ); 
PlotOHLC( Open,  High,  Low,  Close, "", Candlefill, styleBar,maskPrice);

}
_SECTION_END();

//=================================================
_SECTION_BEGIN("NMAW");
GPeriode=Param("GPeriode", 89, 2, 500, 1 );
Kperiode=Param("KPeriode", 21, 2, 500, 1 );
kurs = (High+Close+Low)/3;
lamda = GPeriode/Kperiode;
alpha = lamda*(GPeriode-1)/(GPeriode-lamda);
ma1  =  WMA(kurs, GPeriode);
ma2 =   WMA(ma1, KPeriode);
nmaw = (alpha+1)*ma1 - alpha*ma2;
nmawcolor = IIf(C>=nmaw,colorGreen,colorRed);
Plot(nmaw,"nmaw",nmawcolor,styleThick);
//Plot1 (nmaw," nmaw ");
_SECTION_END();

_SECTION_BEGIN("EMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); 
_SECTION_END();