Here is an indicator created by Blu-Ray. The original thread is located here.

Here is an video sample posted by wsam29 from the TTM site here.

Value Chart Video

Since I no longer use TS, I will not be able to post any screenshots.

Many thanks to Blu-Ray for developing this free indicator.

[Strade]

I user amibroker. Could any one convert it to amibroker indicator?

[bats97]

Originally Posted by Strade »

I user amibroker. Could any one convert it to amibroker indicator?

i'm using amibroker too, anyone has an afl version? thanks!

[atuldoc]

AFL for amibroker plz

[nilu_2005]

If AFL version of Amibroker is available, please post it.

[trader_08]

Originally Posted by nilu_2005 »

If AFL version of Amibroker is available, please post it.

Here is the afl for amibroker...

////  Vchart
//This was converted from code created for tradestation by Mark W. Helweg of ValueCharts.com
VarNumbars = Param("Number of Bars",5,2,1000,1);
Color = Param("Bar Color",colorBlue);
Top = Param("Top Chart Line",8);
TopMid = Param("Top Mid Chart Line",4);
BottomMid = Param("Bottom Mid Chart Line",-4);
Bottom = Param("Bottom Chart Line",-8);
Plot(Top,"Top Chart Line",colorRed);
Plot(TopMid,"Top Mid Chart Line",colorLightGrey);
Plot(BottomMid,"Bottom Mid Chart Line",colorLightGrey);
Plot(Bottom,"Bottom Chart Line",colorRed);

LRange = 0;
	VarP = round(VarNumBars/5);
if (VarNumBars > 7) 
{
	VarA=HHV(H,VarP)-LLV(L,VarP);
	VarR1 = IIf(VarA==0 AND VarP==1,abs(C-Ref(C,-Varp)),VarA);
	VarB=Ref(HHV(H,VarP),-VarP+1)-Ref(LLV(L,VarP),-VarP);
	VarR2 = IIf(VarB==0 AND VARP==1,abs( Ref(C,-VarP)-Ref(C,-Varp*2) ),VarB);
	VarC=Ref(HHV(H,VarP),-VarP*2)-Ref(LLV(L,VarP),-VarP*2);
	VarR3 = IIf(VarC == 0 AND VarP==1,abs(Ref(C,-Varp*2)-Ref(C,-Varp*3)),VarC);  
	VarD = Ref(HHV(H,VarP),-VarP*3)-Ref(LLV(L,VarP),-VarP*3);
	VarR4 = IIf(VarD == 0 AND VarP==1,abs(Ref(C,-Varp*3)-Ref(C,-Varp*4)),VarD);	
	VarE = Ref(HHV(H,VarP),-VarP*4)-Ref(LLV(L,VarP),-VarP*4);
	VarR5 = IIf(VarE == 0 AND VarP==1,abs(Ref(C,-Varp*4)-Ref(C,-Varp*5)),VarE);	
	LRange=((VarR1+VarR2+VarR3+VarR4+VarR5)/5)*.2;
};


CDelta = abs(C - Ref(C,-1));
if (VarNumBars <=7)
{
	Var0 = IIf(CDelta > (H-L) OR H==L,CDelta,(H-L));
	LRange = MA(Var0,5)*.2;
}
MidBarAverage = MA( (H+L)/2,VarNumbars);
VOpen = (Open- MidBarAverage)/LRange;
VHigh = (High-MidBarAverage)/LRange;
VLow = (Low-MidBarAverage)/LRange; 
VClose = (Close-MidBarAverage)/LRange; 
PlotOHLC(VOpen,VHigh,VLow,VClose,"ValueChart",color,styleBar | styleThick ,-12,12);
Title= Name() + " " + WriteVal( DateTime(), formatDateTime )+
	"\nVOpen " + VOpen + "\n"+ " VHigh "+ VHigh + "\n"+ " VLow " + Vlow  + "\n"+ " VClose " + VClose;

[nilu_2005]

This code is working fine in Amibroker. Thanks trader_08 for sharing this code.

[scottzim46]

If anyone has a valuechart radarsceen ELD could you please post. Thank you.