AMI volume it can be displayed in the figure

KelvinHand

Well-Known Member
#2
Such as the title


Kreangast
2013/6/13

If you are telling the forum that you had the 3D AFL script, then provide us.


Otherwise I assume your title is misleading. Please write proper English.

The title should be "Can Amibroker display it Volume as in the figure?"
Then show the source of the figure come from.

Amibroker is very flexible in programming. it had the Graphic Window API (in GFX functions), it can be done.
But you need to pay for a highly skill graphic programmer to do it, otherwise wait till the day it appear somewhere for free.

Otherwise stick to current amibroker version.
 
Last edited:
#3
Hi KelvinHand
Sorry ,I mean, did not express clearly.
I want to figure the price marked as trading volume.
No 3D code, I'm looking for.
Kreangast
2013/6/13
 

johnnypareek

Well-Known Member
#5
To day i posted an afl for the same kind, though that was highest vol condition but basic is ur need will be solved

HTML:
_SECTION_BEGIN("Price");

GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 

_SECTION_END();

Buy=V>Ref(HHV(V,30),-1);
dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ ) 
{ 
 if( Buy[i] ) 
 {
  PlotText( "\nV:" + V[ i ]  , i, L[ i ]-dist[i], colorGreen, colorWhite );
 }
 //if( Sell[i] )
 {
 // PlotText( "Sell:" + H[ i ] + "\nT= " + (H[i]*0.995) + "\nSL= " + (H[i]*1.0025), i, H[ i ]+dist1[i], colorRed, colorWhite ); 
 }
}
 

KelvinHand

Well-Known Member
#10
To day i posted an afl for the same kind, though that was highest vol condition but basic is ur need will be solved

HTML:
_SECTION_BEGIN("Price");

GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 

_SECTION_END();

Buy=V>Ref(HHV(V,30),-1);
dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ ) 
{ 
 if( Buy[i] ) 
 {
  PlotText( "\nV:" + V[ i ]  , i, L[ i ]-dist[i], colorGreen, colorWhite );
 }
 //if( Sell[i] )
 {
 // PlotText( "Sell:" + H[ i ] + "\nT= " + (H[i]*0.995) + "\nSL= " + (H[i]*1.0025), i, H[ i ]+dist1[i], colorRed, colorWhite ); 
 }
}

He want this way
Code:
Version(5.6); 
function ToChartX(Pixels)
{
	lvb=Status("lastvisiblebar");
	fvb=Status("firstvisiblebar");
	pxchartleft=Status("pxchartleft");
	pxchartwidth=Status("pxchartwidth");
	fac=pxchartwidth/Pixels;
	bar=(lvb-fvb)/fac;
	return bar;
} 

function ToChartY(Pixels) 
{
	local Miny,Maxy,pxchartbottom,pxchartheight;
	Miny=Status("axisminy");
	Maxy=Status("axismaxy");
	pxchartbottom=Status("pxchartbottom");
	pxchartheight=Status("pxchartheight");
	fac=pxchartheight/Pixels;
	Value=(Maxy-Miny)/fac;
	return Value;
} 

function ToScrX(bar) 
{ 
	lvb=Status("lastvisiblebar"); 
	fvb=Status("firstvisiblebar"); 
	pxchartleft=Status("pxchartleft"); 
	pxchartwidth=Status("pxchartwidth"); 
	return pxchartleft+bar*pxchartwidth/(lvb-fvb+1); 
} 


function ToScrY(value) 
{
	local Miny,Maxy,pxchartbottom,pxchartheight; 
	Miny=Status("axisminy");
	Maxy=Status("axismaxy");
	pxchartbottom=Status("pxchartbottom");
	pxchartheight=Status("pxchartheight");
	return pxchartbottom-floor(0.5+(Value-Miny)*pxchartheight/(Maxy-Miny)); 
} 

function GetVisiBarsPerChart()
{
    lvb = Status( "lastvisiblebar" );
    fvb = Status( "firstvisiblebar" );

    return Min( Lvb - fvb, BarCount - fvb );
}

bgTop = ParamColor("BgTop",    colorBlack);
bgBot = ParamColor("BgBottom", colorBlack);
SetChartBkGradientFill( bgTop ,bgBot);


lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");

GfxSetBkMode( 0 );
GfxSelectFont("Arial", 8, 400, False, False, 900);
GfxSetTextColor(colorWhite);


Plot(V,"",IIf (C>O, colorGreen, colorRed),styleHistogram|styleNoLabel, Null,Null, 0,0, 5); 

Buy=V>Ref(HHV(V,30),-1);


TotalBars = Lvb - fvb;

for( i = 0; i < TotalBars AND i < ( BarCount - fvb ); i++ )
{
 if( Buy[i] ) 
 {
  s= NumToStr(V[i]/1000000, 1.0);
     GfxTextOut( s, ToScrX(i), ToScrY(V[i]));
 }

}
 
Last edited:

Similar threads