Skip to main content

Volume day trading buy or sell for Amibroker (AFL)

kamaleshvm over 11 years ago Amibroker (AFL)

  • Rating:
    3 / 5 (Votes 7)
  • Tags:
    bull, bear, amibroker, volume

This is my first afl code. I have taken from various code and added as one indicator.

It will work good for the intraday. It will give the buy or sell based volume. you can use this additional indicator. It will show which side is having the upper hand for the particular day.

Indicator / Formula

Copy & Paste Friendly
//********Dedicated to my father*************

SetBarsRequired(sbrAll,sbrAll);

// calculate the trading volume
BV = IIf( (H==L), 0, (V*(C-L)/(H-L)) );
SV = IIf( (H==L), 0, (V*(H-C)/(H-L)));

// starting of the day

Bars_so_far_today = 1 + BarsSince( Day() != Ref(Day(), -1));

StartBar = ValueWhen(TimeNum() == 091500, BarIndex());

//total volume traded

TodayVolume = Sum(V,Bars_so_far_today);
 TBUYVOL=Sum(BV,Bars_so_far_today);
 TSELVOL=Sum (SV,Bars_so_far_today);
 SVbull= TBUYVOL>= TSELVOL;
 SVbear=TSELVOL>=TBUYVOL;

 PlotShapes(iif(SVbull,shapeUpArrow, shapeNone),colorGreen, 0, L, Offset=85);
PlotShapes(iif(SVbear,shapedownArrow, shapeNone),colorred, 0, L, Offset=-85);

Title= " Today Volume :"+WriteVal(TodayVolume/1000,2.2)+"  TBUYV :"+WriteVal(TBUYVOL/1000,2.2)+"  TSellV :"+WriteVal(TSELVOL/1000,2.2);

12 comments

6. kamaleshvm
about 11 years ago

Hi Fahi,

Please add the below code. It will show the chart

Plot( C, “Close”, ParamColor(“Color”, colordefault ), styleNoTitle | GetPriceStyle() );

Report as Spam
7. kv_maligi
about 11 years ago

My rating 5/5.

Did few changes. Modifies code is given below

//********Dedicated to my father*************

SetBarsRequired(sbrAll,sbrAll);

TenkanSen = (HHV(H,9) + LLV(L,9))/2;
KijunSen  = (HHV(H,26)+ LLV(L,26))/2; 
Color_bars =  IIf(Close > KijunSen AND TenkanSen > KijunSen, colorBlue,
              IIf(Close > KijunSen AND TenkanSen < KijunSen,colorCustom11, // Light blue
              IIf(Close < KijunSen AND TenkanSen < KijunSen, colorRed,
              IIf(Close < KijunSen AND TenkanSen > KijunSen, colorCustom12, colorYellow)))); // Darkred & yellow means TenkanSen = KijunSen
Plot( C, "Close", Color_bars, styleBar|styleNoTitle); // TK bars

// calculate the trading volume
BV = IIf( (H==L), 0, (V*(C-L)/(H-L)) );
SV = IIf( (H==L), 0, (V*(H-C)/(H-L)));

// starting of the day

Bars_so_far_today = 1 + BarsSince( Day() != Ref(Day(), -1));
StartBar = ValueWhen(TimeNum() == 091500, BarIndex());

//total volume traded

TodayVolume = Sum(V,Bars_so_far_today);
 TBUYVOL=Sum(BV,Bars_so_far_today);
 TSELVOL=Sum (SV,Bars_so_far_today);
 SVbull= TBUYVOL>= TSELVOL;
 SVbear=TSELVOL>=TBUYVOL;

SVbull = ExRem( SVbull, SVbear );
SVbear = ExRem( SVbear, SVbull ); 

PlotShapes(IIf(SVbull,shapeUpArrow, shapeNone),colorGreen, 0, L, Offset=-35);
PlotShapes(IIf(SVbear,shapeDownArrow, shapeNone),colorRed, 0, L, Offset=-55);

Title= " Today Volume :"+WriteVal(TodayVolume/1000,2.2)+"  TBUYV :"+WriteVal(TBUYVOL/1000,2.2)+"  TSellV :"+WriteVal(TSELVOL/1000,2.2);
Report as Spam
9. kv_maligi
about 11 years ago

cut & paste was not done properly. herewith attaching again

//********Dedicated to my father*************

SetBarsRequired(sbrAll,sbrAll);

TenkanSen = (HHV(H,9) + LLV(L,9))/2;
KijunSen  = (HHV(H,26)+ LLV(L,26))/2; 
Color_bars =  IIf(Close > KijunSen AND TenkanSen > KijunSen, colorBlue,
              IIf(Close > KijunSen AND TenkanSen < KijunSen,colorCustom11, // Light blue
              IIf(Close < KijunSen AND TenkanSen < KijunSen, colorRed,
              IIf(Close < KijunSen AND TenkanSen > KijunSen, colorCustom12, colorYellow)))); // Darkred & yellow means TenkanSen = KijunSen
Plot( C, "Close", Color_bars, styleBar|styleNoTitle); // TK bars

// calculate the trading volume
// calculate the trading volume
BV = IIf( (H==L), 0, (V*(C-L)/(H-L)) );
SV = IIf( (H==L), 0, (V*(H-C)/(H-L)));

// starting of the day

Bars_so_far_today = 1 + BarsSince( Day() != Ref(Day(), -1));
StartBar = ValueWhen(TimeNum() == 091500, BarIndex());

//total volume traded

TodayVolume = Sum(V,Bars_so_far_today);
TBUYVOL=Sum(BV,Bars_so_far_today);
TSELVOL=Sum (SV,Bars_so_far_today);
SVbull= TBUYVOL>= TSELVOL;
SVbear=TSELVOL>=TBUYVOL;

SVbull = ExRem( SVbull, SVbear );
SVbear = ExRem( SVbear, SVbull );

PlotShapes(IIf(SVbull,shapeUpArrow, shapeNone),colorGreen, 0, L, Offset=-35);
PlotShapes(IIf(SVbear,shapeDownArrow, shapeNone),colorRed, 0, L, Offset=-55);

Title= " Today Volume :“WriteVal(TodayVolume/1000,2.2)” TBUYV :“WriteVal(TBUYVOL/1000,2.2)” TSellV :"+WriteVal(TSELVOL/1000,2.2);
Report as Spam
10. kv_maligi
about 11 years ago

Plz refer here as it is getting pasted correctly

http://wisestocktrader.com/indicatorpasties/1512-volume-day-trading-buy-sell

Report as Spam
12. tkskamlesh
almost 10 years ago

this afl a very useful,
i want 1 request for in afl
please do in afl font size big or small setting..
i min font size setting…
please help me

Report as Spam

Leave Comment

Please login here to leave a comment.