[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [amibroker] Re: CAN THIS INDICATOR BE IN SCAN/EXPLORATION MODE?



PureBytes Links

Trading Reference Links



HI GUYS

Dont have any idea in programing, I have attached a pix on VCHART, I REALLY need to get a SCAN/EXPLORATION MODE on this fomular. CAN ANYONE HELP PLEEEAAASE!!!!!


--- On Thu, 4/23/09, progster01 <progster@xxxxxxxxxxxxxxxxxx> wrote:

From: progster01 <progster@xxxxxxxxxxxxxxxxxx>
Subject: [amibroker] Re: CAN THIS INDICATOR BE IN SCAN/EXPLORATION MODE?
To: amibroker@xxxxxxxxxxxxxxx
Date: Thursday, April 23, 2009, 2:06 AM



There's no reason why it couldn't be.

Just supply AddColumn() statements for what you want to see in the Exploration.

>From the Help file, where examples are also provided:

AddColumn( array, name, format = 1.2, textColor = colorDefault, bkgndColor = colorDefault, width = -1 )

--- In amibroker@xxxxxxxxx ps.com, "rashmo_70" <rashmo_70@x ..> 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",colorLightGre y);
> Plot(BottomMid, "Bottom Mid Chart Line",colorLightGre y);
> 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-MidBarAverag e)/LRange;
> PlotOHLC(VOpen, VHigh,VLow, VClose,"ValueCha rt",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/





Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Attachment: VALUE CHART 1.JPG
Description: JPEG image