|
PureBytes Links
Trading Reference Links
|
In the line beginning with "PlotOHLC", replace "styleBar" with "styleCandle"
John
--- In amibroker@xxxxxxxxxxxxxxx, "rashmo_70" <rashmo_70@xxx> wrote:
>
> //// 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;
>
------------------------------------
**** IMPORTANT PLEASE READ ****
This group is for the discussion between users only.
This is *NOT* technical support channel.
TO GET TECHNICAL SUPPORT send an e-mail directly to
SUPPORT {at} amibroker.com
TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
http://www.amibroker.com/feedback/
(submissions sent via other channels won't be considered)
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/amibroker/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:amibroker-digest@xxxxxxxxxxxxxxx
mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx
<*> To unsubscribe from this group, send an email to:
amibroker-unsubscribe@xxxxxxxxxxxxxxx
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|