// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartOptions(2, chartWrapTitle ); 
_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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

WMA3=WMA( C, 8 );
Plot( WMA3,"WMA3", colorBlue, styleLine); 

WMA9=WMA( C, 13 );
Plot( WMA9, "WMA9", colorRed,styleLine ); 


WMA20=WMA( C, 21 );
Plot(WMA20, "WMA20", colorGreen,styleLine ); 


function Momentum( array, period )
{
  return (array - Ref( array, -period )) - 100;
}

function RSIoran(array)
{
	return (array*100) / Ref(array,-1);
}


momopt=Optimize("Momentum",47,30,50,1);
Mom=Momentum(C,momopt);
momMaopt=Optimize("Momentum MA",30,10,40,1);
MomMA=MA(Mom,momMaopt);

stokkopt=Optimize("stockk",37,25,50,1);
stokkopt2=Optimize("stockk2",4,3,15,1);
//stockdopt=Optimize("stockd",5,3,10,1);
StokD=StochD(stokkopt,stokkopt2,5);
StokK=StochK(stokkopt,stokkopt2);

RSIopt=Optimize("rsi",26,20,50,1);

RSIegim=RSIoran(RSI(RSIopt));

RSImaopt=Optimize("RsiMA",17,10,45,1);

Buy=(RSI(RSIopt)> MA(RSI(RSIopt),RSImaopt)) AND (Mom > MomMA AND StokK > StokD) ;
Sell=((RSI(RSIopt)< MA(RSI(RSIopt),RSImaopt)) AND (Mom < MomMA AND C < WMA20) AND StokK < StokD) OR RSIegim < -10;
Short=Sell;
Cover=Buy;
Short=ExRem(Short,Cover);
Cover=ExRem(Cover,Short);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

PlotShapes(Buy*shapeUpArrow,colorGreen,0,L);
PlotShapes(Sell*shapeDownArrow,colorRed,0,H);