Trend Play System :: Nifty Future Weekly Levels

_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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();


MinimumRange = Param("Trigger Range %",10,0,200);

LastYearClose = TimeFrameGetPrice("C",inMonthly,-4);
Range = ((LastYearClose-C) * 100)/LastYearClose;

//Range is always a positive number
Range = IIf(Range<0,Range * (-1),Range);

ColorSentiment = GetChartBkColor();

ColorSentiment = IIf(Range>=0 AND Range < 50,colorGreen,ColorSentiment);
ColorSentiment = IIf(Range>=50 AND Range < 150,colorOrange,ColorSentiment);
ColorSentiment = IIf(Range>150,colorRed,ColorSentiment);

Plot(LastYearClose,"\nStop Loss",colorRed,styleLine | styleThick );
Plot(Range,"\nRange",colorDefault,styleLine | styleThick | styleNoDraw | styleOwnScale);

Plot(1,"Sentiment",ColorSentiment,styleArea | styleOwnScale | styleNoLabel | styleNoTitle,0,50);


Buy = C>LastYearClose AND Range > MinimumRange ;
Sell = C<LastYearClose  AND Range > MinimumRange ;

Short = Sell;
Cover=Buy;

Buy = ExRem(Buy,Sell);
Sell = ExRem(Sell,Buy);




// -- OK, let's plot the signals using arrows

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-20);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-30);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-25);

PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=20);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=30);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-25);


// EXPLORATION CODE STARTS HERE
backColor = IIf( Buy, colorGreen,colorRed);

Filter = Buy OR Sell;
SetOption("NoDefaultColumns", True );
AddTextColumn(Name(), "Scrip",1.2,colorWhite,backColor ,80);
AddColumn(DateTime(), "Date" ,formatDateTime,colorWhite,backColor ,120);
AddColumn(IIf( Buy, 66, 83 ), "Signal", formatChar,colorWhite,backColor ,50);
AddColumn(C,"Trade Price",1.2,colorWhite,backColor ,80);
AddColumn(LastYearClose,"Stop Loss",1.2,colorWhite,backColor ,80);


// EXPLORATION CODE ENDS HERE
_SECTION_END();