This is very similar to cumulative delta but with more info. Easylanguage code below.
- [+] show the code
Code: Select all
Variables:
TickSize( MinMove / PriceScale ),
VolumeDelta(0),
TotalVolume(0),
VolumeUptick(0),
VolumeDowntick(0),
LeftMostLocationOnChart(0),
VerticalLocation(0);
VerticalLocation = GetAppInfo(aiLowestDispValue) + TickSize;
LeftMostLocationOnChart = GetAppInfo(aiLeftDispDateTime);
VolumeDelta = UpTicks - DownTicks;
TotalVolume = UpTicks + DownTicks;
VolumeUptick = UpTicks;
VolumeDowntick = DownTicks;
Value99 = Text_New(Date, Time, 0, " ");
Text_SetString(Value99, "Delta" );
Text_SetLocation(Value99, Date, GetAppInfo(aiRightDispDateTime) , VerticalLocation + 3*TickSize);
Text_SetStyle(Value99, 2, 2);
Text_setColor(Value99, Yellow);
Value98 = Text_New(Date, Time, 0, " ");
Text_SetString(Value98, "Total Volume" );
Text_SetLocation(Value98, Date, GetAppInfo(aiRightDispDateTime), VerticalLocation);
Text_SetStyle(Value98, 2, 2);
text_setColor(Value98, Cyan);
Value97 = Text_New(Date, Time, 0, " ");
Text_SetString(Value97, "UpTicks");
Text_SetLocation(Value97, Date, GetAppInfo(aiRightDispDateTime), VerticalLocation + 2*TickSize);
Text_SetStyle(Value97, 2, 2);
text_setColor(Value97, Green);
Value96 = Text_New(Date, Time, 0, " ");
Text_SetString(Value96, "DownTicks");
Text_SetLocation(Value96, Date, GetAppInfo(aiRightDispDateTime), VerticalLocation + 1*TickSize);
Text_SetStyle(Value96, 2, 2);
text_setColor(Value96, Red);
If VolumeDelta >= 0 Then
Begin
{If Datetime = LeftMostLocationOnChart Then
Begin
Value99 = Text_New(Date, Time, 0, " ");
Text_SetString(Value99, "Delta" );
Text_SetLocation(Value99, Date, Time, VerticalLocation + 3*TickSize);
Text_SetStyle(Value99, 2, 2);
Text_setColor(Value99, Yellow);
Value98 = Text_New(Date, Time, 0, " ");
Text_SetString(Value98, "Total Volume" );
Text_SetLocation(Value98, Date, Time, VerticalLocation);
Text_SetStyle(Value98, 2, 2);
text_setColor(Value98, Cyan);
Value97 = Text_New(Date, Time, 0, " ");
Text_SetString(Value97, "UpTicks");
Text_SetLocation(Value97, Date, Time, VerticalLocation + 2*TickSize);
Text_SetStyle(Value97, 2, 2);
text_setColor(Value97, Green);
Value96 = Text_New(Date, Time, 0, " ");
Text_SetString(Value96, "DownTicks");
Text_SetLocation(Value96, Date, Time, VerticalLocation + 1*TickSize);
Text_SetStyle(Value96, 2, 2);
text_setColor(Value96, Red);
End;}
Value99 = Text_New(Date, Time, 0, " ");
Text_SetString(Value99, numtostr(VolumeDelta,0) );
Text_SetLocation(Value99, Date, Time, VerticalLocation + 3*TickSize);
Text_SetStyle(Value99, 2, 2);
Text_setColor(Value99, Green);
Value98 = Text_New(Date, Time, 0, " ");
Text_SetString(Value98, numtostr(TotalVolume,0) );
Text_SetLocation(Value98, Date, Time, VerticalLocation);
Text_SetStyle(Value98, 2, 2);
text_setColor(Value98, Cyan);
Value97 = Text_New(Date, Time, 0, " ");
Text_SetString(Value97, numtostr(VolumeUptick,0) );
Text_SetLocation(Value97, Date, Time, VerticalLocation + 2*TickSize);
Text_SetStyle(Value97, 2, 2);
text_setColor(Value97, Green);
Value96 = Text_New(Date, Time, 0, " ");
Text_SetString(Value96, numtostr(VolumeDowntick,0) );
Text_SetLocation(Value96, Date, Time, VerticalLocation + 1*TickSize);
Text_SetStyle(Value96, 2, 2);
text_setColor(Value96, Red);
End
Else
Begin
{If Datetime = LeftMostLocationOnChart Then
Begin
Value99 = Text_New(Date, Time, 0, " ");
Text_SetString(Value99, "Delta" );
Text_SetLocation(Value99, Date, Time, VerticalLocation + 3*TickSize);
Text_SetStyle(Value99, 2, 2);
Text_setColor(Value99, Yellow);
Value98 = Text_New(Date, Time, 0, " ");
Text_SetString(Value98, "Total Volume" );
Text_SetLocation(Value98, Date, Time, VerticalLocation);
Text_SetStyle(Value98, 2, 2);
text_setColor(Value98, Cyan);
Value97 = Text_New(Date, Time, 0, " ");
Text_SetString(Value97, "UpTicks");
Text_SetLocation(Value97, Date, Time, VerticalLocation + 2*TickSize);
Text_SetStyle(Value97, 2, 2);
text_setColor(Value97, Green);
Value96 = Text_New(Date, Time, 0, " ");
Text_SetString(Value96, "DownTicks");
Text_SetLocation(Value96, Date, Time, VerticalLocation + 1*TickSize);
Text_SetStyle(Value96, 2, 2);
text_setColor(Value96, Red);
End;}
Value99 = Text_New(Date, Time, 0, " ");
Text_SetString(Value99, numtostr(VolumeDelta,0) );
Text_SetLocation(Value99, Date, Time, VerticalLocation + 3*TickSize);
Text_SetStyle(Value99, 2, 2);
Text_setColor(Value99, Red);
Value98 = Text_New(Date, Time, 0, " ");
Text_SetString(Value98, numtostr(TotalVolume,0) );
Text_SetLocation(Value98, Date, Time, VerticalLocation );
Text_SetStyle(Value98, 2, 2);
text_setColor(Value98, Cyan);
Value97 = Text_New(Date, Time, 0, " ");
Text_SetString(Value97, numtostr(VolumeUptick,0) );
Text_SetLocation(Value97, Date, Time, VerticalLocation + 2*TickSize);
Text_SetStyle(Value97, 2, 2);
text_setColor(Value97, Green);
Value96 = Text_New(Date, Time, 0, " ");
Text_SetString(Value96, numtostr(VolumeDowntick,0) );
Text_SetLocation(Value96, Date, Time, VerticalLocation + 1*TickSize);
Text_SetStyle(Value96, 2, 2);
text_setColor(Value96, Red);
End;