Volume Based Intraday AFl

Volume based intraday trading strategy, suitable for algo traders. Buy and Sell conditions are based on previous day Volume. Trigger price, start Time, end time, stop loss and target has been added.

SetPositionSize(1, spsShares);
SetBarsRequired(sbrAll, sbrAll);

SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkGradientFill(colorBlack,colorBlack,colorBlack);
SetBarFillColor(IIf(C>O,colorPaleBlue,IIf(C<=O,colorOrange,colorLightGrey)));
Plot(C,"\nPrice",IIf(C>O,colorPaleBlue,IIf(C<=O,colorOrange,colorLightGrey)),64|styleNoTitle,0,0,0,0);
GraphXSpace = 10;

// Time Given for MCX You can Change this
StartTime = ParamTime("Start Time", "10:00:00");
StopTime = ParamTime("End Time", "23:00:00");

Target = Param("Target %", 1, 0.1, 50, 0.01)/100;
StopLoss = Param("Stop Loss %", 0.6, 0.1, 50, 0.01)/100;


DCAL = DateNum();
HCAL = 0;
HCALPrice = 0;
LCALPrice = 0;
CurDNPrice = 0;
FirDNDNPrice = DCAL[0];
TN = TimeNum();
DT = DateTime();
LDT = DT[BarCount-1];

VOLPRICECAL = Null;
VOLLOWPRICECAL = Null;

HIGPRCCALC = Null;
LOWPRCCALC = Null;

PrevDay = 0;

for(i = 1; i < BarCount; i++)
{
if(CurDNPrice != DCAL[i] && FirDNDNPrice != DCAL[i])
{
VOLPRICECAL = HCALPrice;
VOLLOWPRICECAL = LCALPrice;

CurDNPrice = DCAL[i];
HCAL = 0;
HCALPrice = 0;
LCALPrice = 0;
HIGPRCCALC[i-1] = Null;
LOWPRCCALC[i-1] = Null;
}

HIGPRCCALC[i] = VOLPRICECAL;
LOWPRCCALC[i] = VOLLOWPRICECAL;

if(HCAL < Volume[i])
{
HCAL = Volume[i];
HCALPrice = High[i];
LCALPrice = Low[i];
}
}


Plot(HIGPRCCALC, "Prev High", colorGrey50, styleStaircase|styleDashed);
Plot(LOWPRCCALC, "Prev Low", colorGrey50, styleStaircase|styleDashed);

Buy = Ref(Close > HIGPRCCALC, -1) AND TN > StartTime AND TN < StopTime AND TN > Ref(TN, -1);
Short = Ref(Close < LOWPRCCALC, -1) AND TN > StartTime AND TN < StopTime AND TN > Ref(TN, -1);

Sell = Ref(Close < LOWPRCCALC, -1) OR TN >= StopTime;
Cover = Ref(Close > HIGPRCCALC, -1) OR TN >= StopTime;

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

Short = ExRem(Short, Cover);
Cover = ExRem(Cover, Short);

BuyPrice = ValueWhen(Buy, Open);
ShortPrice = ValueWhen(Short, Open);

SellPrice = ValueWhen(Sell, Open);
CoverPrice = ValueWhen(Cover, Open);

LongTargetPrice = BuyPrice + (BuyPrice * Target);
ShortTargetPrice = ShortPrice - (ShortPrice * Target);

LongSLPrice = BuyPrice - (BuyPrice * Target);
ShortSLPrice = ShortPrice + (ShortPrice * Target);

Sell1 = High > LongTargetPrice;
Sell2 = Low < LongSLPrice;

Cover1 = Low < ShortTargetPrice;
Cover2 = High > ShortSLPrice;

Sell = Sell OR Sell1 OR Sell2;
Cover = Cover OR Cover1 OR Cover2;

SellPrice = IIf(Sell1, LongTargetPrice, IIf(Sell2, LongSLPrice, SellPrice));
CoverPrice = IIf(Cover1, ShortTargetPrice, IIf(Cover2, ShortSLPrice, CoverPrice));

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

Short = ExRem(Short, Cover);
Cover = ExRem(Cover, Short);

BuyPlotsCandles = (BarsSince(Buy)<BarsSince(Sell)) AND (BarsSince(Buy)!=0);
ShortPlotCandles = (BarsSince(Cover)>BarsSince(Short)) AND (BarsSince(Short)!=0);

Plot(IIf(BuyPlotsCandles, BuyPrice, Null), "Buy Price", colorYellow, styleStaircase|styleDashed);
Plot(IIf(BuyPlotsCandles, LongTargetPrice, Null), "Long Target", colorBrightGreen, styleStaircase|styleDashed);
Plot(IIf(BuyPlotsCandles, LongSLPrice, Null), "Long Target", colorCustom12, styleStaircase|styleDashed);

Plot(IIf(ShortPlotCandles, ShortPrice, Null), "Short Price", colorYellow, styleStaircase|styleDashed);
Plot(IIf(ShortPlotCandles, ShortTargetPrice, Null), "Short Target", colorBrightGreen, styleStaircase|styleDashed);
Plot(IIf(ShortPlotCandles, ShortSLPrice, Null), "Short Target", colorCustom12, styleStaircase|styleDashed);

Buyshape = Buy * shapeUpArrow;
SellShape = Sell * shapeStar;
PlotShapes( Buyshape, colorBrightGreen, 0, Low );
PlotShapes( SellShape, colorRed, 0, High );

Shortshape = Short * shapeDownArrow;
CoverShape = Cover * shapeStar;
PlotShapes( Shortshape, colorOrange, 0, High, -30);
PlotShapes( CoverShape, colorTurquoise, 0, Low, -30 );