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

Re: [amibroker] Re: SUPER PIVOT POINTS [1 Attachment]


  • Date: Sat, 05 Dec 2009 15:09:14 +0100
  • From: reinsley <reinsley@xxxxxxxx>
  • Subject: Re: [amibroker] Re: SUPER PIVOT POINTS [1 Attachment]

PureBytes Links

Trading Reference Links

<*>[Attachment(s) from reinsley included below]


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@xxx> 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
>  > > > > > > >
>  > > > > > >
>  > > > > >
>  > > > >
>  > > > >
>  > > >
>  > >
>  > >
>  >
> 
> 



<*>Attachment(s) from reinsley:

<*> 1 of 1 Photo(s) http://groups.yahoo.com/group/amibroker/attachments/folder/1841673573/item/list 
  <*> WooziOK.jpg

------------------------------------

**** 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/