// Downloaded From https://www.WiseStockTrader.com
SetChartOptions(0,chartShowArrows|chartShowDates);
SetPositionSize( 100, spsShares );  

_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();

_SECTION_BEGIN("suktam level");
//---- suktam points
DayH = TimeFrameGetPrice("H", inWeekly, -1);		// yesterdays high
DayL = TimeFrameGetPrice("L", inWeekly, -1);		//				low
DayC = TimeFrameGetPrice("C", inWeekly, -1);		//				close
DayO = TimeFrameGetPrice("O", inWeekly);			// current day open

// suktam pivots
if ( True )
{
R = DayH - DayL;	  // range
R11 = (R * 0.116)+DayC;
S11 = DayC-(R * 0.116);
R22 = (R * 0.236)+DayC;
S22 = DayC-(R * 0.236);
R33 = (R * 0.386)+DayC;
S33 = DayC-(R * 0.386);
R44 = (R * 0.5)+DayC;
S44 = DayC-(R * 0.5);
R55 = (R * 0.612)+DayC;
S55 = DayC-(R * 0.612);
R66 = (R * 0.786)+DayC;
S66 = DayC-(R * 0.786);
R77 = (R *1 )+DayC;
S77 = DayC-(R *1);
R88 = (R * 1.127)+DayC;
S88 = DayC-(R * 1.127);
R100 = (R * 1.61)+DayC;
S100 = DayC-(R * 1.61);
//R111 = (R * 1.11)+DayC;
//S111 = DayC-(R * 1.11);
//R122 = (R * 1.22)+DayC;
//S122 = DayC-(R * 1.22);
mid=(R11+S11)/2;
}
Plot(R11, "",colorGreen,styleDots+styleNoLine);
Plot(S11, "",colorGreen,styleDots+styleNoLine);
Plot(R22, "",colorRed,styleStaircase);
Plot(S22, "",colorRed,styleStaircase);
Plot(R33, "",colorBlue,styleDots+styleNoLine);
Plot(S33, "",colorBlue,styleDots+styleNoLine);
Plot(R44, "",colorBlack,styleStaircase);
Plot(S44, "",colorBlack,styleStaircase);
Plot(R55, "",colorBrightGreen,styleStaircase);
Plot(S55, "",colorBrightGreen,styleStaircase);
Plot(R66, "",colorDarkGrey,styleStaircase);
Plot(S66, "",colorDarkGrey,styleStaircase);
Plot(R77, "",colorRed,styleStaircase);
Plot(S77, "",colorRed,styleStaircase);
Plot(R88, "",colorGreen,styleStaircase);
Plot(S88, "",colorGreen,styleStaircase);
Plot(R100, "",colorBlue,styleDots+styleNoLine);
Plot(S100, "",colorBlue,styleDots+styleNoLine);
//Plot(R111, "",colorViolet,styleStaircase);
//Plot(S111, "",colorViolet,styleStaircase);
//Plot(R122, "",colorCustom13,styleStaircase);
Plot(mid, "",colorCustom13,styleStaircase);


//----


Filter=1;
AddColumn(C,"cmp",1.2);
AddColumn(R11,"R11",1.2);
AddColumn(S11,"S11",1.2);
AddColumn(R22,"R22",1.2);
AddColumn(S22,"S22",1.2);
AddColumn(R33,"R33",1.2);
AddColumn(S33,"S33",1.2);
AddColumn(R44,"R44",1.2);
AddColumn(S44,"S44",1.2);
AddColumn(R55,"R55",1.2);
AddColumn(S55,"S55",1.2);
AddColumn(R66,"R66",1.2);
AddColumn(S66,"S66",1.2);
AddColumn(R77,"R77",1.2);
AddColumn(S77,"S77",1.2);
AddColumn(R88,"R88",1.2);
AddColumn(S88,"S88",1.2);
//AddColumn(R100,"R100",1.2);
//AddColumn(S100,"S100",1.2);
//AddColumn(R111,"R111",1.2);
//AddColumn(S111,"S111",1.2);
//AddColumn(R122,"R122",1.2);
//AddColumn(S22,"S122",1.2);


_SECTION_END();

Buy=Cover=Cross (C, R22);
Sell=Short= Cross (S22 ,C);

// plot arrows

shape = Buy * shapeUpArrow + Sell * shapeDownArrow;

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ), 0, IIf( Buy, Low, High ) );