// Downloaded From https://www.WiseStockTrader.com
TimeFrameSet( inWeekly );
isCrossStochUp=Cross(StochK(15,3),StochD(15,3,3)) AND StochK(15,3)<60 ;
isCrossStochDown=Cross(StochD(15,3,3),StochK(15,3))  ;
targetPrice=EMA(H,15)+ 2*ATR(15);

buyCross=isCrossStochUp ;
sellCross=isCrossStochDown;

TimeFrameRestore();
Buy = isCrossStochUp  AND C*MA(V,30)>10000000 AND ((targetPrice-Close)*100/Close>3 OR 100*ATR(30)/MA(C,30)>2); 
Sell =  isCrossStochDown  ;


Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
SetTradeDelays( 1, 1, 1, 1 );
BuyPrice = SellPrice = Close;
AddColumn( Close, "Close", 1,IIf(buyCross, colorRed, IIf(sellCross , colorBrightGreen, colorBlack)),IIf(buyCross, colorBrightGreen, IIf(sellCross , colorRed, IIf(Sell  , colorYellow , colorPaleGreen))) );
AddColumn( ROC(C,1), "% ROC", format=1.2,IIf(buyCross, colorRed, IIf(sellCross , colorBrightGreen, colorBlack)),IIf(buyCross, colorBrightGreen, IIf(sellCross , colorRed, IIf(Sell   , colorYellow , colorPaleGreen))));
AddColumn( targetPrice, "target price", format=1.2,IIf(buyCross, colorRed, IIf(sellCross , colorBrightGreen, colorBlack)),IIf(buyCross, colorBrightGreen, IIf(sellCross , colorRed, IIf(Sell   , colorYellow , colorPaleGreen))));
AddColumn( (targetPrice-Close)*100/Close, "% target", format=1.2,IIf(buyCross, colorRed, IIf(sellCross , colorBrightGreen, colorBlack)),IIf(buyCross, colorBrightGreen, IIf(sellCross , colorRed, IIf(Sell   , colorYellow , colorPaleGreen))));

SetPositionSize( 25, spsPercentOfEquity );
Filter = Buy;