|
PureBytes Links
Trading Reference Links
|
Reinsley,
I run Hourly charts and typically use tick charts for anything less than the hourly time frame. I just changed to the 5 minute time frame and checked the ES mini, (ES #F), Nasdaq mini (NQ #F) Dow mini (YM #F) and Gold (GC #F=1) using ESignal data feed. All of the SR lines appear. My database is set to tick as the base interval and the number of bars is set to 1,500,000. I don't understand why the lines would appear on your 15 minute but not your 5 minute. I know one problem that I recently encountered was when the CME "unbundled" their tick data the number of increased exponentially and my data did not go back far but that does not sound like the problem you are encountering.
Are their any "experts" that can help us with this?
David K.
--- In amibroker@xxxxxxxxxxxxxxx, reinsley <reinsley@xxx> wrote:
>
>
> Hi Woozi,
>
> No errors with this version.
>
> My first plot was in 5' timeframe. Only three S&R were displayed and a
> zero line on price.
>
> I change TU to 15' and all the things appeared, stars and all the lines,
> the zero line disapeard.
>
> I came back to 5' and all was there except the stars.
>
> There are many interesting lines of code.
>
> Best regards
>
> wooziwog a écrit :
> >
> >
> > Reinsley,
> >
> > Thanks for the feedback. Replace your copy with the code below and you
> > will not receive the message. The "Plot Shapes" is for plotting starts
> > at the Highs and Lows of the various pivots - I have never used it so I
> > can't be sure that all is right. The error message you received was due
> > to the fact that the arrays were not turned on when the plot shapes was
> > turned on. To minimize execution time on my intraday charts I avoid
> > executing the arrays when the lines or text are not being used. Now the
> > arrays will also be processed when plot shapes are turned on. I have not
> > tested the shapes plot yet - it is supposed to plot stars at the highs
> > and lows of the various time frames. Let me know how it works :-)
> >
> > David K.
> >
> > //======================
> > _SECTION_BEGIN("Chart Settings");
> > //======================
> > SetChartOptions(0, chartShowDates);
> > SetChartBkColor(1);
> > GraphXSpace=Param("GraphXSpace",15,0,300,1);
> > dec= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
> > bc = BarCount-1;
> > bi = BarIndex();
> > Lbi = LastValue(bi);
> > sbi = SelectedValue(BarIndex());
> > tn = TimeNum();
> > Plot(C,"",IIf(C>O,34,IIf(C<O,32,55)),128,4);
> > //======================
> > pxchartright = Status("pxChartRight");//returns y-coordinate of top-left
> > corner
> > //======================
> > _SECTION_BEGIN("GFX X Conversion");
> > function tpX(bar) {
> > lvb = Status("LastVisibleBar");
> > fvb = Status("FirstVisibleBar");
> > pxchartleft = Status("pxChartLeft");
> > pxchartright = Status("pxChartRight");
> > pxheight = Status("pxheight");
> > pxchartwidth = Status("pxChartWidth");
> > return pxchartleft+(bar-fvb)*pxchartwidth/(Lvb-fvb+1); }
> > _SECTION_END();
> > //======================
> > _SECTION_BEGIN("GFX Y Conversion");
> > function tPY(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)); }
> > _SECTION_END();
> > //======================
> > _SECTION_BEGIN("GFX Text+Label, GFX Y, Std X");
> > //======================
> > dec=0; ha=0;
> > procedure gtx(val,color,string,xpos) {
> > GfxSetTextColor(color);
> > gtext=GfxDrawText(NumToStr(val,dec)+"-"+
> > StrExtract(string,0)+" ",xpos,tpY(SelectedValue(val))+ha,0,0,256);
> > return gtext; }
> > _SECTION_END();
> > //======================
> > _SECTION_BEGIN("Plot Shapes");
> > //======================
> > procedure plshp(x,y,shape,color,shift)
> > { PlotShapes(IIf(BarIndex()==x,shape,0),color,0,y,shift); }
> > //===========================
> > lls=0; sln=0;
> > procedure hrplt(tf,value,color,sty,shf) {
> > Lin=LineArray(Lbi-lls-shf,LastValue(value),
> > Lbi+shf,LastValue(value),1);
> > Plot(IIf(tf AND sln==0,value,Null),"",color,sty,0,0,shf);
> > Plot(IIf(sln==1,Lin,Null),"",color,sty,0,0,shf); }
> > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > //Time and Dates
> > begD = DateNum() != Ref(DateNum(),-1);//Begin New Day
> > fboD = LastValue(ValueWhen(begD,bi,1));//First Bar of Day
> > endD = DateNum() != Ref(DateNum(), 1);//End of Day
> > lboD = LastValue(ValueWhen(endD,bi,1));//Last Bar of Day
> > lbpd = LastValue(ValueWhen(begD,bi,2)-1);//Last Bar of Previous Day
> > tday = DateNum()==LastValue(DateNum(),1);//Includes current fbod to
> > future lbod
> > pdaz= ValueWhen(begD,Ref(DateNum(),-1),1);//All bars prior to existing lbod
> > prdaz=pdaz AND NOT tday;
> > notda= NOT tday;
> > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > _SECTION_BEGIN("Intraday Time Pivots");
> > //===============================
> > ipv = ParamList("Sup Res Pivots","Off|All|Calculate|OHLC|Lines|Labels",3);
> > psh= ParamToggle("Plot Shapes", "Off|On",0);
> > htx = Param("Text Shift",18,-200,150,1);
> > sln= ParamToggle("Short Lines", "Off|On",1);
> > lls = Param("Short Line Length",3,0,500,1)*10;
> > shf = Param("Shift Line Right",2,0,50,1);
> > rsc = ParamToggle("No Rescale","Off|On",1);
> > sty = ParamStyle("Style",4096);
> > optn= Param("Market Open",93000,00000,235959,000500);
> > cltn= Param("Market Close",161500,00000,235959,000500);
> > plsi= Param("Start Plotting",083000,00000,240000,000500);
> > plei= Param("End Plotting",161500,00000,240000,000500);
> > //===================
> > function tvy(tstart,tframe,array) {
> > if(array==1)y = ValueWhen(tframe,HighestSince(Cross(tn,tstart),H),1);
> > if(array==2)y = ValueWhen(tframe,LowestSince(Cross(tn,tstart),L),1);
> > y0=IIf(y>0,y,Null);
> > return y0; }
> > //======================
> > function xbar(tstart,tframe,array) {
> > if(array==1) {
> > y=ValueWhen(tframe,HighestSince(Cross(tn,tstart),H),1);
> > x=BarIndex()==ValueWhen(tframe AND H==y,bi);
> > x0=bc-LastValue(BarsSince(x>0),1); }
> > if(array==2) {
> > y=ValueWhen(tframe,LowestSince(Cross(tn,tstart),L),1);
> > x=bi==ValueWhen(tframe AND L==y,bi);
> > x0=bc-BarsSince(x>0); }
> > return x0; }
> > //==============
> > if(ipv=="All" OR ipv=="Calculate" OR ipv=="Lines" OR ipv=="Labels" OR
> > ipv=="OHLC" OR psh==1) {
> > pmtn = optn-010000; premkt = tn >= pmtn AND tn <= optn;
> > mk05 = optn+000500; tfrm05 = tn>=optn AND tn<= mk05;
> > mk15 = optn+001500; tfrm15 = tn>=optn AND tn<= mk15;
> > mk30 = optn+003000; tfrm30 = tn>=optn AND tn<= mk30;
> > mk45 = optn+004500; tfrm45 = tn>=optn AND tn<= mk45;
> > mk60 = optn+010000; tfrm60 = tn>=optn AND tn<= mk60;
> > mkss = 110000;
> > mkse = 133000; tfrslo = tn>=mkss AND tn<= mkse;
> > va30 = 154500; tfva30 = tn>=va30 AND tn<= cltn;
> > va2h = cltn-020000; tf2hrs = tn>=va2h AND tn<= cltn;
> > mktHrs = tn>=optn AND tn<= cltn;
> > pltval = tn>=plsi AND tn<= va2h;
> > //======================
> >
> > cyHi = HighestSince(bi==fbod,H);
> > cxHi = ValueWhen(tday AND H==cyHi,bi);
> > cyLo = LowestSince(bi==fbod,L);
> > cxLo = ValueWhen(tday AND L==cyLo,bi);
> > pyHi = ValueWhen(prdaz,HighestSince(bi==lbpd,H),1);
> > pxHi = ValueWhen(H==pyHi AND NOT tday ,bi);
> > pyLo = ValueWhen(prdaz,LowestSince(bi==lbpd,L),1);
> > pxLo = ValueWhen(L==pyLo AND NOT tday,bi);
> > mkOp = ValueWhen(Cross(tn,cltn),O,1);
> > xmOp = bc-BarsSince(Cross(tn,optn)>0);
> > mkCl = ValueWhen(Cross(TimeNum(),160000),C);
> > xmCL = bc-BarsSince(Cross(TimeNum(),160000)>0);
> > xpmk = bc-BarsSince(Cross(tn,optn)>0);
> > //======================
> > poHi=tvy(pmtn,premkt,1); poLo=tvy(pmtn,premkt,2);
> > mkHi=tvy(optn,mktHrs,1); mkLo=tvy(optn,mktHrs,2);
> > Hi05=tvy(optn,tfrm05,1); Lo05=tvy(optn,tfrm05,2);
> > Hi15=tvy(optn,tfrm15,1); Lo15=tvy(optn,tfrm15,2);
> > Hi30=tvy(optn,tfrm30,1); Lo30=tvy(optn,tfrm30,2);
> > Hi60=tvy(optn,tfrm60,1); Lo60=tvy(optn,tfrm60,2);
> > vH2h=tvy(va2h,tf2hrs,1); vL2h=tvy(va2h,tf2hrs,2);
> > vH30=tvy(va30,tfva30,1); vL30=tvy(va30,tfva30,2);
> > ACDos = (Hi15- Lo15) * 0.50;
> > ACDHi=Hi15+ACDos; ACDLo=Lo15-ACDos;
> > dRange = cyHi - cyLo;
> > mRange = mkHi - mkLo;
> > }
> > //===================
> > sty1=8|sty|rsc*2048; sty2=32|sty|rsc*2048;
> > tfplt = TimeNum()>=plsi AND TimeNum()<=plei;
> > if(ipv=="All" OR ipv=="Lines" OR ipv=="OHLC") {
> > hrplt(tfplt,mkOp,29,sty1,shf); hrplt(tfplt,mkCl,55,sty1,shf);
> > hrplt(tfplt,poHi,10,sty1,shf); hrplt(tfplt,poLo,10,sty1,shf);
> > hrplt(tfplt,mkHi,32,sty1,shf); hrplt(tfplt,mkLo,34,sty1,shf);
> > hrplt(tfplt,pyHi,25,sty1,shf); hrplt(tfplt,pyLo,51,sty1,shf);
> > }
> > if(ipv=="All" OR ipv=="Lines") {
> > hrplt(tfplt,Hi05,27,sty2,shf); hrplt(tfplt,Lo05,27,sty2,shf);
> > hrplt(tfplt,Hi15,42,sty2,shf); hrplt(tfplt,Lo15,42,sty2,shf);
> > hrplt(tfplt,Hi30,11,sty2,shf); hrplt(tfplt,Lo05,11,sty2,shf);
> > hrplt(tfplt,Hi60,36,sty2,shf); hrplt(tfplt,Lo60,36,sty2,shf);
> > hrplt(tfplt,vH2h,33,sty2,shf); hrplt(tfplt,vL2h,34,sty2,shf);
> > hrplt(tfplt,vH30,25,sty2,shf); hrplt(tfplt,vL30,51,sty2,shf);
> > hrplt(tfplt,ACDHi,42,sty1,shf); hrplt(tfplt,ACDLo,42,sty1,shf);
> > }
> > //===================
> > GfxSelectFont("Tahoma",10,400); GfxSetBkColor(16); GfxSetOverlayMode(1);
> > GfxSetBkMode(2);
> > xp=Min(tpX(htx+sbi),pxchartright-80); ha=-5;
> > if(ipv=="All" OR ipv=="Labels" OR ipv=="OHLC") {
> > gtx(vH2h,33,"vH2h",xp); gtx(vL2h,34,"vL2h",xp); gtx(vH30,25,"vH30",xp);
> > gtx(vL30,51,"vL30",xp);
> > gtx(mkOp,10,"mkOp",xp); gtx(mkCl,55,"mkCl",xp); gtx(pyHi,25,"prHi",xp);
> > gtx(pyLo,51,"prLo",xp);
> > }
> > if(ipv=="All" OR ipv=="Labels") {
> > gtx(poHi,10,"preH",xp); gtx(poLo,10,"PreL",xp); gtx(mkHi,32,"mkHi",xp);
> > gtx(mkLo,34,"mkLo",xp);
> > gtx(Hi05,27,"Hi05",xp); gtx(Lo05,27,"Lo05",xp); gtx(Hi15,42,"Hi15",xp);
> > gtx(Hi30,11,"Hi30",xp);
> > gtx(Lo30,11,"Lo30",xp); gtx(Hi60,36,"Hi60",xp); gtx(Lo60,36,"Lo60",xp);
> > }
> > //===========================
> > up=shapeStar; dn=shapeStar; shp=shapeNone;
> > os=30;
> > //======================
> > if(psh==1) {
> > xoHi=xbar(pmtn,premkt,1); plshp(xoHi,poHi,dn,10, os);
> > xoLo=xbar(pmtn,premkt,2); plshp(xoLo,poLo,up,10,-os);
> > xmHi=xbar(optn,mktHrs,1); plshp(xmHi,mkHi,dn,32, os+10);
> > xmLo=xbar(optn,mktHrs,2); plshp(xmLo,mkLo,up,34,-os+10);
> > xH05=xbar(optn,tfrm05,1); plshp(xH05,Hi05,dn,51, os);
> > xL05=xbar(optn,tfrm05,2); plshp(xL05,Lo05,dn,34,-os);
> > xH15=xbar(optn,tfrm15,1); plshp(xH15,Hi15,up,42, os+15);
> > xL15=xbar(optn,tfrm15,2); plshp(xL15,Lo15,up,42,-os+15);
> > xH30=xbar(optn,tfrm30,1); plshp(xH30,Hi30,dn,11, os+10);
> > xL30=xbar(optn,tfrm30,2); plshp(xL30,Lo30,up,11,-os+10);
> > xH60=xbar(optn,tfrm60,1); plshp(xH60,Hi60,dn,36, os);
> > xL60=xbar(optn,tfrm60,2); plshp(xL60,Lo60,up,36,-os+15);
> > xvH2=xbar(va2h,tf2hrs,1); plshp(xvH2,vH2h,dn,34, os);
> > xvL2=xbar(va2h,tf2hrs,2); plshp(xvL2,vL2h,up,33,-os);
> > xvH3=xbar(va30,tfva30,1); plshp(xvH3,vH30,dn,43, os);
> > xvL3=xbar(va30,tfva30,2); plshp(xvL3,vL30,up,25,-os);
> > }
> > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > _SECTION_BEGIN("Market Markers");
> > //===============================
> > mkrs= ParamToggle("Plot Markers", "Off|On",0);
> > if(mkrs==1) {
> > VbarO = Cross(TimeNum(),optn);
> > VbarC = Cross(TimeNum(),cltn);
> > Plot(VbarO,"",10,2|32|styleOwnScale|4096|4);
> > Plot(VbarC,"",55,2|32|styleOwnScale|4096|4);
> > }
> > _SECTION_END();
> > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > Title = EncodeColor(55)+ Title = Name() + " " + EncodeColor(32) + Date()
> > + " " + EncodeColor(5) + "{{INTERVAL}} " +
> > //Title = EncodeColor(55)+ Date() + " Tick = " + EncodeColor(5) +
> > Interval()+
> > EncodeColor(55)+ " Open = "+ EncodeColor(52)+ WriteVal(O,dec) +
> > EncodeColor(55)+ " High = "+ EncodeColor(5) + WriteVal(H,dec) +
> > EncodeColor(55)+ " Low = "+ EncodeColor(32)+ WriteVal(L,dec) +
> > EncodeColor(55)+ " Close = "+ EncodeColor(52)+ WriteVal(C,dec) +
> > EncodeColor(55)+ " Volume = "+EncodeColor(52)+ WriteVal(V,1.0) +
> > EncodeColor(55)+ " bi= "+EncodeColor(42)+ WriteVal(sbi,1) +
> > EncodeColor(55)+ " Bar to End = "+ EncodeColor(10)+ WriteVal(Lbi-sbi,1.0);
> >
> > --- In amibroker@xxxxxxxxxxxxxxx <mailto:amibroker%40yahoogroups.com>,
> > reinsley <reinsley@> wrote:
> > >
> > >
> > > Woozi,
> > >
> > > The initial plot is ok. As soon as I modify param "Plot Shapes" to ON, I
> > > get errors.
> > >
> > > I hope my screen captures are published...
> > >
> > > Best regards
> > >
> > > wooziwog a écrit :
> > > >
> > > >
> > > > Hi Reinsley,
> > > >
> > > > I see your post "Many variables not initialized" but don't understand
> > > > what arrays / values your are referring to.
> > > > I would appreciate additional details.
> > > >
> > > > Thanks,
> > > >
> > > > David K.
> > > >
> > > > --- In amibroker@xxxxxxxxxxxxxxx
> > <mailto:amibroker%40yahoogroups.com> <mailto:amibroker%40yahoogroups.com>,
> > > > reinsley <reinsley@> wrote:
> > > > >
> > > > >
> > > > > Woozi, Thanks for sharing
> > > > >
> > > > > Many variables not initialized...
> > > > >
> > > > > Best regards
> > > > >
> > > > >
> > > > > wooziwog a écrit :
> > > > > >
> > > > > >
> > > > > > Tim,
> > > > > >
> > > > > > The following uses AB functions for plotting intraday pivots.
> > > > > > You can modify it to suit your needs.
> > > > > > I am using version 5.2.9.2. If you have any problems with it
> > check for
> > > > > > line wrapping, I copied it from my intraday chart and tested it.
> > > > > >
> > > > > > David K.
> > > > > >
> > > > > > //======================
> > > > > > _SECTION_BEGIN("Chart Settings");
> > > > > > //======================
> > > > > > SetChartOptions(0, chartShowDates);
> > > > > > SetChartBkColor(1);
> > > > > > GraphXSpace=Param("GraphXSpace",15,0,300,1);
> > > > > > dec= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
> > > > > > bc = BarCount-1;
> > > > > > bi = BarIndex();
> > > > > > Lbi = LastValue(bi);
> > > > > > sbi = SelectedValue(BarIndex());
> > > > > > tn = TimeNum();
> > > > > > Plot(C,"",IIf(C>O,34,IIf(C<O,32,55)),128,4);
> > > > > > //======================
> > > > > > pxchartright = Status("pxChartRight");//returns y-coordinate of
> > > > top-left
> > > > > > corner
> > > > > > //======================
> > > > > > _SECTION_BEGIN("GFX X Conversion");
> > > > > > function tpX(bar) {
> > > > > > lvb = Status("LastVisibleBar");
> > > > > > fvb = Status("FirstVisibleBar");
> > > > > > pxchartleft = Status("pxChartLeft");
> > > > > > pxchartright = Status("pxChartRight");
> > > > > > pxheight = Status("pxheight");
> > > > > > pxchartwidth = Status("pxChartWidth");
> > > > > > return pxchartleft+(bar-fvb)*pxchartwidth/(Lvb-fvb+1); }
> > > > > > _SECTION_END();
> > > > > > //======================
> > > > > > _SECTION_BEGIN("GFX Y Conversion");
> > > > > > function tPY(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)); }
> > > > > > _SECTION_END();
> > > > > > //======================
> > > > > > _SECTION_BEGIN("GFX Text+Label, GFX Y, Std X");
> > > > > > //======================
> > > > > > dec=0; ha=0;
> > > > > > procedure gtx(val,color,string,xpos) {
> > > > > > GfxSetTextColor(color);
> > > > > > gtext=GfxDrawText(NumToStr(val,dec)+"-"+
> > > > > > StrExtract(string,0)+" ",xpos,tpY(SelectedValue(val))+ha,0,0,256);
> > > > > > return gtext; }
> > > > > > _SECTION_END();
> > > > > > //======================
> > > > > > _SECTION_BEGIN("Plot Shapes");
> > > > > > //======================
> > > > > > procedure plshp(x,y,shape,color,shift)
> > > > > > { PlotShapes(IIf(BarIndex()==x,shape,0),color,0,y,shift); }
> > > > > > //======================
> > > > > > lls=0; sln=0;
> > > > > > procedure hrplt(tf,value,color,sty,shf) {
> > > > > > Lin=LineArray(Lbi-lls-shf,LastValue(value),
> > > > > > Lbi+shf,LastValue(value),1);
> > > > > > Plot(IIf(tf AND sln==0,value,Null),"",color,sty,0,0,shf);
> > > > > > Plot(IIf(sln==1,Lin,Null),"",color,sty,0,0,shf); }
> > > > > > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > > > > > _SECTION_BEGIN("Intraday Time Pivots");
> > > > > > //===============================
> > > > > > ipv = ParamList("Sup Res
> > > > Pivots","Off|All|Calculate||OHLC|Lines|Labels",3);
> > > > > > psh= ParamToggle("Plot Shapes", "Off|On",0);
> > > > > > htx = Param("Text Shift",18,-200,150,1);
> > > > > > sln= ParamToggle("Short Lines", "Off|On",1);
> > > > > > lls = Param("Short Line Length",3,0,500,1)*10;
> > > > > > shf = Param("Shift Line Right",2,0,50,1);
> > > > > > rsc = ParamToggle("No Rescale","Off|On",1);
> > > > > > sty = ParamStyle("Style",4096);
> > > > > > optn= Param("Market Open",93000,00000,235959,000500);
> > > > > > cltn= Param("Market Close",161500,00000,235959,000500);
> > > > > > plsi= Param("Start Plotting",083000,00000,240000,000500);
> > > > > > plei= Param("End Plotting",161500,00000,240000,000500);
> > > > > > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > > > > > //Time and Dates
> > > > > > begD = DateNum() != Ref(DateNum(),-1);//Begin New Day
> > > > > > fboD = LastValue(ValueWhen(begD,bi,1));//First Bar of Day
> > > > > > endD = DateNum() != Ref(DateNum(), 1);//End of Day
> > > > > > lboD = LastValue(ValueWhen(endD,bi,1));//Last Bar of Day
> > > > > > lbpd = LastValue(ValueWhen(begD,bi,2)-1);//Last Bar of Previous Day
> > > > > > tday = DateNum()==LastValue(DateNum(),1);//Includes current fbod to
> > > > > > future lbod
> > > > > > pdaz= ValueWhen(begD,Ref(DateNum(),-1),1);//All bars prior to
> > > > existing lbod
> > > > > > prdaz=pdaz AND NOT tday;
> > > > > > notda= NOT tday;
> > > > > > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > > > > > function tvy(tstart,tframe,array) {
> > > > > > if(array==1)y =
> > ValueWhen(tframe,HighestSince(Cross(tn,tstart),H),1);
> > > > > > if(array==2)y =
> > ValueWhen(tframe,LowestSince(Cross(tn,tstart),L),1);
> > > > > > y0=IIf(y>0,y,Null);
> > > > > > return y0; }
> > > > > > //======================
> > > > > > function xbar(tstart,tframe,array) {
> > > > > > if(array==1) {
> > > > > > y=ValueWhen(tframe,HighestSince(Cross(tn,tstart),H),1);
> > > > > > x=BarIndex()==ValueWhen(tframe AND H==y,bi);
> > > > > > x0=bc-LastValue(BarsSince(x>0),1); }
> > > > > > if(array==2) {
> > > > > > y=ValueWhen(tframe,LowestSince(Cross(tn,tstart),L),1);
> > > > > > x=bi==ValueWhen(tframe AND L==y,bi);
> > > > > > x0=bc-BarsSince(x>0); }
> > > > > > return x0; }
> > > > > > //==============
> > > > > > if(ipv=="All" OR ipv=="Calculate" OR ipv=="Lines" OR
> > ipv=="Labels" OR
> > > > > > ipv=="OHLC") {
> > > > > > pmtn = optn-010000; premkt = tn >= pmtn AND tn <= optn;
> > > > > > mk05 = optn+000500; tfrm05 = tn>=optn AND tn<= mk05;
> > > > > > mk15 = optn+001500; tfrm15 = tn>=optn AND tn<= mk15;
> > > > > > mk30 = optn+003000; tfrm30 = tn>=optn AND tn<= mk30;
> > > > > > mk45 = optn+004500; tfrm45 = tn>=optn AND tn<= mk45;
> > > > > > mk60 = optn+010000; tfrm60 = tn>=optn AND tn<= mk60;
> > > > > > mkss = 110000;
> > > > > > mkse = 133000; tfrslo = tn>=mkss AND tn<= mkse;
> > > > > > va30 = 154500; tfva30 = tn>=va30 AND tn<= cltn;
> > > > > > va2h = cltn-020000; tf2hrs = tn>=va2h AND tn<= cltn;
> > > > > > mktHrs = tn>=optn AND tn<= cltn;
> > > > > > pltval = tn>=plsi AND tn<= va2h;
> > > > > > //======================
> > > > > >
> > > > > > cyHi = HighestSince(bi==fbod,H);
> > > > > > cxHi = ValueWhen(tday AND H==cyHi,bi);
> > > > > > cyLo = LowestSince(bi==fbod,L);
> > > > > > cxLo = ValueWhen(tday AND L==cyLo,bi);
> > > > > > pyHi = ValueWhen(prdaz,HighestSince(bi==lbpd,H),1);
> > > > > > pxHi = ValueWhen(H==pyHi AND NOT tday ,bi);
> > > > > > pyLo = ValueWhen(prdaz,LowestSince(bi==lbpd,L),1);
> > > > > > pxLo = ValueWhen(L==pyLo AND NOT tday,bi);
> > > > > > mkOp = ValueWhen(Cross(tn,cltn),O,1);
> > > > > > xmOp = bc-BarsSince(Cross(tn,optn)>0);
> > > > > > mkCl = ValueWhen(Cross(TimeNum(),160000),C);
> > > > > > xmCL = bc-BarsSince(Cross(TimeNum(),160000)>0);
> > > > > > xpmk = bc-BarsSince(Cross(tn,optn)>0);
> > > > > > //======================
> > > > > > poHi=tvy(pmtn,premkt,1); poLo=tvy(pmtn,premkt,2);
> > > > > > mkHi=tvy(optn,mktHrs,1); mkLo=tvy(optn,mktHrs,2);
> > > > > > Hi05=tvy(optn,tfrm05,1); Lo05=tvy(optn,tfrm05,2);
> > > > > > Hi15=tvy(optn,tfrm15,1); Lo15=tvy(optn,tfrm15,2);
> > > > > > Hi30=tvy(optn,tfrm30,1); Lo30=tvy(optn,tfrm30,2);
> > > > > > Hi60=tvy(optn,tfrm60,1); Lo60=tvy(optn,tfrm60,2);
> > > > > > vH2h=tvy(va2h,tf2hrs,1); vL2h=tvy(va2h,tf2hrs,2);
> > > > > > vH30=tvy(va30,tfva30,1); vL30=tvy(va30,tfva30,2);
> > > > > > ACDos = (Hi15- Lo15) * 0.50;
> > > > > > ACDHi=Hi15+ACDos; ACDLo=Lo15-ACDos;
> > > > > > dRange = cyHi - cyLo;
> > > > > > mRange = mkHi - mkLo;
> > > > > > }
> > > > > > //===================
> > > > > > sty1=8|sty|rsc*2048; sty2=32|sty|rsc*2048;
> > > > > > tfplt = TimeNum()>=plsi AND TimeNum()<=plei;
> > > > > > if(ipv=="All" OR ipv=="Lines" OR ipv=="OHLC") {
> > > > > > hrplt(tfplt,mkOp,29,sty1,shf); hrplt(tfplt,mkCl,55,sty1,shf);
> > > > > > hrplt(tfplt,poHi,10,sty1,shf); hrplt(tfplt,poLo,10,sty1,shf);
> > > > > > hrplt(tfplt,mkHi,32,sty1,shf); hrplt(tfplt,mkLo,34,sty1,shf);
> > > > > > hrplt(tfplt,pyHi,25,sty1,shf); hrplt(tfplt,pyLo,51,sty1,shf);
> > > > > > }
> > > > > > if(ipv=="All" OR ipv=="Lines") {
> > > > > > hrplt(tfplt,Hi05,27,sty2,shf); hrplt(tfplt,Lo05,27,sty2,shf);
> > > > > > hrplt(tfplt,Hi15,42,sty2,shf); hrplt(tfplt,Lo15,42,sty2,shf);
> > > > > > hrplt(tfplt,Hi30,11,sty2,shf); hrplt(tfplt,Lo05,11,sty2,shf);
> > > > > > hrplt(tfplt,Hi60,36,sty2,shf); hrplt(tfplt,Lo60,36,sty2,shf);
> > > > > > hrplt(tfplt,vH2h,33,sty2,shf); hrplt(tfplt,vL2h,34,sty2,shf);
> > > > > > hrplt(tfplt,vH30,25,sty2,shf); hrplt(tfplt,vL30,51,sty2,shf);
> > > > > > hrplt(tfplt,ACDHi,42,sty1,shf); hrplt(tfplt,ACDLo,42,sty1,shf);
> > > > > > }
> > > > > > //===================
> > > > > > GfxSelectFont("Tahoma",10,400); GfxSetBkColor(16);
> > > > GfxSetOverlayMode(1);
> > > > > > GfxSetBkMode(2);
> > > > > > xp=Min(tpX(htx+sbi),pxchartright-80); ha=-5;
> > > > > > if(ipv=="All" OR ipv=="Labels" OR ipv=="OHLC") {
> > > > > > gtx(vH2h,33,"vH2h",xp); gtx(vL2h,34,"vL2h",xp);
> > > > gtx(vH30,25,"vH30",xp);
> > > > > > gtx(vL30,51,"vL30",xp);
> > > > > > gtx(mkOp,10,"mkOp",xp); gtx(mkCl,55,"mkCl",xp);
> > > > gtx(pyHi,25,"prHi",xp);
> > > > > > gtx(pyLo,51,"prLo",xp);
> > > > > > }
> > > > > > if(ipv=="All" OR ipv=="Labels") {
> > > > > > gtx(poHi,10,"preH",xp); gtx(poLo,10,"PreL",xp);
> > > > gtx(mkHi,32,"mkHi",xp);
> > > > > > gtx(mkLo,34,"mkLo",xp);
> > > > > > gtx(Hi05,27,"Hi05",xp); gtx(Lo05,27,"Lo05",xp);
> > > > gtx(Hi15,42,"Hi15",xp);
> > > > > > gtx(Hi30,11,"Hi30",xp);
> > > > > > gtx(Lo30,11,"Lo30",xp); gtx(Hi60,36,"Hi60",xp);
> > gtx(Lo60,36,"Lo60",xp);
> > > > > > }
> > > > > > //===========================
> > > > > > up=shapeStar; dn=shapeStar; shp=shapeNone;
> > > > > > os=30;
> > > > > > //======================
> > > > > > if(psh==1) {
> > > > > > xoHi=xbar(pmtn,premkt,1); plshp(xoHi,preH,dn,10, os);
> > > > > > xoLo=xbar(pmtn,premkt,2); plshp(xoLo,preL,up,10,-os);
> > > > > > xmHi=xbar(optn,mktHrs,1); plshp(xmHi,mkHi,dn,32, os+10);
> > > > > > xmLo=xbar(optn,mktHrs,2); plshp(xmLo,mkLo,up,34,-os+10);
> > > > > > xH05=xbar(optn,tfrm05,1); plshp(xH05,Hi05,dn,51, os);
> > > > > > xL05=xbar(optn,tfrm05,2); plshp(xL05,Lo05,dn,34,-os);
> > > > > > xH15=xbar(optn,tfrm15,1); plshp(xH15,Hi15,up,42, os+15);
> > > > > > xL15=xbar(optn,tfrm15,2); plshp(xL15,Lo15,up,42,-os+15);
> > > > > > xH30=xbar(optn,tfrm30,1); plshp(xH30,Hi30,dn,11, os+10);
> > > > > > xL30=xbar(optn,tfrm30,2); plshp(xL30,Lo30,up,11,-os+10);
> > > > > > xH60=xbar(optn,tfrm60,1); plshp(xH60,Hi60,dn,36, os);
> > > > > > xL60=xbar(optn,tfrm60,2); plshp(xL60,Lo60,up,36,-os);
> > > > > > xvH2=xbar(va2h,tf2hrs,1); plshp(xvH2,vH2h,dn,34, os);
> > > > > > xvL2=xbar(va2h,tf2hrs,2); plshp(xvL2,vL2h,up,33,-os);
> > > > > > xvH3=xbar(va30,tfva30,1); plshp(xvH3,vH30,dn,43, os);
> > > > > > xvL3=xbar(va30,tfva30,2); plshp(xvL3,vL30,up,25,-os);
> > > > > > }
> > > > > > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > > > > > _SECTION_BEGIN("Market Markers");
> > > > > > //===============================
> > > > > > mkrs= ParamToggle("Plot Markers", "Off|On",0);
> > > > > > if(mkrs==1) {
> > > > > > VbarO = Cross(TimeNum(),optn);
> > > > > > VbarC = Cross(TimeNum(),cltn);
> > > > > > Plot(VbarO,"",10,2|32|styleOwnScale|4096|4);
> > > > > > Plot(VbarC,"",55,2|32|styleOwnScale|4096|4);
> > > > > > }
> > > > > > _SECTION_END();
> > > > > > //xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> > > > > > Title = EncodeColor(55)+ Title = Name() + " " + EncodeColor(32) +
> > > > Date()
> > > > > > + " " + EncodeColor(5) + "{{INTERVAL}} " +
> > > > > > //Title = EncodeColor(55)+ Date() + " Tick = " + EncodeColor(5) +
> > > > > > Interval()+
> > > > > > EncodeColor(55)+ " Open = "+ EncodeColor(52)+ WriteVal(O,dec) +
> > > > > > EncodeColor(55)+ " High = "+ EncodeColor(5) + WriteVal(H,dec) +
> > > > > > EncodeColor(55)+ " Low = "+ EncodeColor(32)+ WriteVal(L,dec) +
> > > > > > EncodeColor(55)+ " Close = "+ EncodeColor(52)+ WriteVal(C,dec) +
> > > > > > EncodeColor(55)+ " Volume = "+EncodeColor(52)+ WriteVal(V,1.0) +
> > > > > > EncodeColor(55)+ " bi= "+EncodeColor(42)+ WriteVal(sbi,1) +
> > > > > > EncodeColor(55)+ " Bar to End = "+ EncodeColor(10)+
> > > > WriteVal(Lbi-sbi,1.0);
> > > > > >
> > > > > > --- In amibroker@xxxxxxxxxxxxxxx
> > <mailto:amibroker%40yahoogroups.com>
> > > > <mailto:amibroker%40yahoogroups.com>
> > <mailto:amibroker%40yahoogroups.com>,
> > > > > > "Tim" <timkthung@> wrote:
> > > > > > >
> > > > > > > Thanks de again. Let me try to figure out something.
> > > > > > >
> > > > > > >
> > > > > > > From: de_techneut
> > > > > > > Sent: Friday, December 04, 2009 6:50 AM
> > > > > > > To: amibroker@xxxxxxxxxxxxxxx
> > <mailto:amibroker%40yahoogroups.com>
> > > > <mailto:amibroker%40yahoogroups.com>
> > <mailto:amibroker%40yahoogroups.com>
> > > > > > > Subject: [amibroker] Re: SUPER PIVOT POINTS
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Hi Tim, I am also just getting to know Amibroker and AFL, the
> > .dll
> > > > > > was not written by me. I would like to ask more experienced
> > users to
> > > > > > help a hand here. I can tell you the logic in the code but
> > > > implementing
> > > > > > it and getting nothing but green (no errors ) is a bridge to far
> > > > for me
> > > > > > now. the logic to be used could be : determine the highest high
> > of a
> > > > > > period the lowest low and the close. calculate your pivots
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > use deFlagTimeRange( starttime, endtime) to mark your market
> > open
> > > > and
> > > > > > you market close
> > > > > > >
> > > > > > >
> > > > > > > then something like
> > > > > > >
> > > > > > >
> > > > > > > openmarket=deFlagTimeRange( starttime, endtime);
> > > > > > >
> > > > > > >
> > > > > > > highofmarket=null;//initialisation
> > > > > > > lowofmarket=null;//initialisation
> > > > > > > if (openmarket)
> > > > > > > {
> > > > > > > highofmarket=iif(h>highofmarket,h,highofmarket);
> > > > > > > lowofmarket=iif(l<lowofmarket,l,lowofmarket);
> > > > > > > marketpivot= (highofmarket+ lowofmarket+c)/3;
> > > > > > > suport1=(marketpivot*2)-highofmarket;
> > > > > > > resistance1=(marketpivot*2)-lowofmarket;
> > > > > > > /* and so on */
> > > > > > > }
> > > > > > > this is just of the top of my head, i haven't tested this
> > code ( i
> > > > > > doubt it works but maybe you get the idea and can take it further.
> > > > > > >
> > > > > > >
> > > > > > > Kind regards
> > > > > > > Marc
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > --- In amibroker@xxxxxxxxxxxxxxx
> > <mailto:amibroker%40yahoogroups.com>
> > > > <mailto:amibroker%40yahoogroups.com>
> > > > > > <mailto:amibroker%40yahoogroups.com>, "Tim" <timkthung@> wrote:
> > > > > > >
> > > > > > >
> > > > > > > >
> > > > > > > > Thanks de. I had downloaded it. Would you please show me
> > how to
> > > > use
> > > > > > it.
> > > > > > > >
> > > > > > > >
> > > > > > > > From: de_techneut
> > > > > > > > Sent: Thursday, December 03, 2009 11:29 PM
> > > > > > > > To: amibroker@xxxxxxxxxxxxxxx
> > <mailto:amibroker%40yahoogroups.com>
> > > > <mailto:amibroker%40yahoogroups.com>
> > <mailto:amibroker%40yahoogroups.com>
> > > > > > > > Subject: [amibroker] Re: SUPER PIVOT POINTS
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Hi Tim, it is possible to do that with the use of a plugin
> > called
> > > > > > deDATETIME. it has functions which enables you to define your
> > own time
> > > > > > interval hope this helps. Marc
> > > > > > > > --- In amibroker@xxxxxxxxxxxxxxx
> > <mailto:amibroker%40yahoogroups.com>
> > > > <mailto:amibroker%40yahoogroups.com>
> > > > > > <mailto:amibroker%40yahoogroups.com>, "Tim" timkthung@ wrote:
> > > > > > > > >
> > > > > > > > > Hello everybody,
> > > > > > > > > Would anyone please tell me whether we could define the
> > cutting
> > > > > > time in calculating the daily pivots for the next day.
> > > > > > > > > I raise this issue because of my time-zone difference from
> > > > the NY
> > > > > > stock exchange.
> > > > > > > > > Much appreciate if anyone could help.
> > > > > > > > >
> > > > > > > > > Tim
> > > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > > >
> > >
> >
> >
>
------------------------------------
**** 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:
amibroker-digest@xxxxxxxxxxxxxxx
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/
|