|
PureBytes Links
Trading Reference Links
|
Nice formula. Thanks.
wooziwog a écrit :
>
> Hello,
>
> I have provided fib retracements. Please review the code since the
> lines are set with "stylenolabel" and must be changed if you want
> them to appear on the y axis. I use the text labels.
> Also note that changing "Decimals" parameter will change the format
> for all labels.
>
> David K.
>
> _SECTION_BEGIN("Chart Settings");
> SetChartOptions(0,chartShowArrows|chartShowDates);
> SetChartBkColor(ParamColor("Outer panel",colorBlack));
> SetChartBkGradientFill(
> ParamColor("Inner panel upper",colorDarkGrey),
> ParamColor("Inner panel lower",colorBlack));
> numbars = LastValue(Cum(Status("barvisible")));
> dec = (Param("Decimals",2,0,7,1)/10)+1;
> bi=BarIndex();
> sbi = BarIndex();
>
> Plot(C,"",IIf(C>O,27, IIf(C<O,32,colorGrey50)),64);
>
> _SECTION_BEGIN("Fib Levels");
> pct = Param( "Pivot %",1.0,0.10,60,0.10);
> fibi = ParamToggle("Plot IR Fibs","Off|On",0);
> hLb=Param("High Look Back",1,1,30,1);
> lLb=Param("Low Look Back",1,1,30,1);
> irtxt = ParamToggle("IR Text Labels","Off|On",0);
> fts = Param ("Text H Shift", -36.1,-50,50,0.10);
> /////////////////////
> pk=PeakBars(H,pct)==0;
> tr=TroughBars(L,pct)==0;
> zHi=Zig(H,pct); zLo=Zig(L,pct); HLAvg=(zHi+zLo)/2;
> zp=IIf(pk,zHi,IIf(tr,zLo,IIf(HLAvg>Ref(HLAvg,-1),H,L)));
> za=Zig(zp,pct);
> pR=Ref(za,-1)<za AND za>Ref(za,1);
> pS=Ref(za,-1)>za AND za<Ref(za,1);
>
> Plot(za,"",11,1|styleNoLabel);
> PlotShapes(shapeDownArrow*pR,colorBrightGreen,0,H,-18);
> PlotShapes(shapeUpArrow*pS,colorYellow,0,L,-18);
> ////////////////////////////////////////////////
> _SECTION_BEGIN("Fibs");
> xr0=SelectedValue(ValueWhen(pR,sbi,hLb));
> yr0=SelectedValue(ValueWhen(pR,zp,hLb));
> xs0=SelectedValue(ValueWhen(pS,sbi,lLb));
> ys0=SelectedValue(ValueWhen(pS,zp,lLb));
> x1=BarCount-1;
> deltaP=abs(yr0-ys0);
> sup=xs0>xr0;
> res=xr0>xs0;
> respct = IIf(xr0>xs0,0,100);
> suppct = IIf(xs0>xr0,0,100);
> resLp=LineArray(xr0,yr0,x1,yr0,0);
> supLp = LineArray(xs0,ys0,x1,ys0,0);
> ////////////////////
> function fibr(fibv)
> {
> delta=abs(yr0-ys0);
> retval=delta*fibv;
> fibval=IIf(res,yr0-retval,IIf(sup,ys0+retval,Null));
> return fibval;
> }
> ////////////////Fib Retracements/////////////////
> f236=fibr(0.236);f382=fibr(0.382);f500=fibr(0.500);
> f618=fibr(0.618);f786=fibr(0.786);f127=fibr(1.272);
> f162=fibr(1.620);f200=fibr(2.000);f262=fibr(2.620);
> f314=fibr(3.141);f424=fibr(4.240);
> ////////////////////////
> function ifib(ifib)
> {
> x0= IIf(res,xr0,xs0);
> x1=BarCount-1;
> ifibline=LineArray(x0,ifib,x1,ifib);
> return ifibline;
> }
>
> if(fibi==1) {
> istyle=styleDashed|styleNoLabel|styleNoRescale;
> Plot(resLp,"",32,8);
> Plot(supLp,"",55,8);
> Plot(ifib(f236),"",40,istyle); Plot(ifib(f382),"",36,istyle);
> Plot(ifib(f500),"", 6,istyle); Plot(ifib(f618),"",43,istyle);
> Plot(ifib(f786),"",42,istyle); Plot(ifib(f127),"",10,istyle);
> Plot(ifib(f162),"",34,istyle); Plot(ifib(f200),"",55,istyle);
> Plot(ifib(f262),"",51,istyle); Plot(ifib(f424),"",32,istyle);
> }
> if(irtxt==1) {
> VizBars = Status("LastVisibleBar")-Status("FirstVisibleBar");
> Bars = (round(Vizbars/fts));
> mxpos = SelectedValue(BarIndex())-(Bars);
> ////////////////////
> PlotText(StrFormat("%.2f %.0f % ",resLp,respct)+"%",mxpos,yr0,32);
> PlotText(StrFormat("%.2f %.0f % ",supLp,suppct)+"%",mxpos,ys0,55);
> PlotText("" + NumToStr(f236,dec)+ " 23%",mxpos,f236,40,1);
> PlotText("" + NumToStr(f382,dec)+ " 38%",mxpos,f382,36,1);
> PlotText("" + NumToStr(f500,dec)+ " 50%",mxpos,f500,11,1);
> PlotText("" + NumToStr(f618,dec)+ " 62%",mxpos,f618,43,1);
> PlotText("" + NumToStr(f786,dec)+ " 78%",mxpos,f786,42,1);
> PlotText("" + NumToStr(f127,dec)+ " 127%",mxpos,f127,10,1);
> PlotText("" + NumToStr(f162,dec)+ " 162%",mxpos,f162,34,1);
> PlotText("" + NumToStr(f200,dec)+ " 200%",mxpos,f200,55,1);
> PlotText("" + NumToStr(f262,dec)+ " 262%",mxpos,f262,51,1);
> PlotText("" + NumToStr(f424,dec)+ " 424%",mxpos,f424,32,1);
> }
>
> Title = EncodeColor(55)+ Title = Name() + " " + EncodeColor(55)
> + Date() + " " + EncodeColor(3) + "{{INTERVAL}} " +
> EncodeColor(55)+ " Open = "+ EncodeColor(10)+ NumToStr
> (O,dec) +
> EncodeColor(55)+ " High = "+ EncodeColor(43) + NumToStr
> (H,dec) +
> EncodeColor(55)+ " Low = "+ EncodeColor(32)+ NumToStr
> (L,dec) +
> EncodeColor(55)+ " Close = "+ EncodeColor(42)+ NumToStr
> (C,dec) +
> EncodeColor(55)+ " BI = "+ EncodeColor(42)+ NumToStr
> (bi,1.0) +
> EncodeColor(55)+ " Volume = "+ EncodeColor(55)+ NumToStr
> (V,1.0) +"\n"+"\n"+
> EncodeColor(55)+ " Sup = "+ EncodeColor(55)+ NumToStr
> (ys0,dec) +"\n"+
> EncodeColor(40)+ " 23%= "+ EncodeColor(40)+ NumToStr
> (f236,dec) +"\n"+
> EncodeColor(36)+ " 38%= "+ EncodeColor(36)+ NumToStr
> (f382,dec) +"\n"+
> EncodeColor(55)+ " 50% = "+ EncodeColor(55) + NumToStr
> (f500,dec) +"\n"+
> EncodeColor(43)+ " 62% = "+ EncodeColor(43)+ NumToStr
> (f618,dec) +"\n"+
> EncodeColor(42)+ " 78% = "+ EncodeColor(42)+ NumToStr
> (f786,dec) +"\n"+
> EncodeColor(55)+ " Res = "+ EncodeColor(55)+ NumToStr
> (yr0,dec) +"\n"+
> EncodeColor(10)+ "127% = "+ EncodeColor(10)+ NumToStr
> (f127,dec) +"\n"+
> EncodeColor(34)+ "162% = "+ EncodeColor(34)+ NumToStr
> (f162,dec) +"\n"+
> EncodeColor(55)+ "200% = "+ EncodeColor(55) + NumToStr
> (f200,dec) +"\n"+
> EncodeColor(25)+ "262% = "+ EncodeColor(25)+ NumToStr
> (f262,dec) +"\n"+
> EncodeColor(32)+ "424% = "+ EncodeColor(32)+ NumToStr
> (f424,dec);
>
> GraphXSpace=12;
>
> --- In amibroker@xxxxxxxxxxxxxxx <mailto:amibroker%40yahoogroups.com>,
> "l_abarr" <l_abarr@xxx> wrote:
> >
> > Hi,
> >
> > Can anyone help me create a simple but customizable Retracement (or
> > ratio) Indicator? Like the Fib ratios provided with AmiBroker
> (.382,
> > .5, and .618), but I'd like to add additional retracement ratios.
> >
> > Thanks!!
> >
>
>
------------------------------------
**** IMPORTANT ****
This group is for the discussion between users only.
This is *NOT* technical support channel.
*********************
TO GET TECHNICAL SUPPORT from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
*********************
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
For other support material please check also:
http://www.amibroker.com/support.html
*********************************
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/
|