Asis,
Until you update to the newer version 5.29.2 you will not be able to run the code successfully.
David K.
--- In
amibroker@xxxxxxxxx ps.com, Asis Ghosh <subhamedicalsjpg@ ...> wrote:
>
> Attached is the error snap-shot--- I think--there may be time zone
> difference-- I am in India--my AMI time is +11 hours than default
> ET--enclosed also the AFL file--please have a look into it(My Version is
> 4.8.2)
>
> Asis
>
>
> wooziwog wrote:
> >
> >
> > Asis,
> >
> > I copy and pasted the afl below into a new afl chart and did not
> > receive any errors. I tried all parameter variations and still was not
> > able to replicate the error
message you describe.
> >
> > David K.
> >
> > --- In
amibroker@xxxxxxxxx ps.com <mailto:amibroker% 40yahoogroups. com>,
> > Asis Ghosh <subhamedicalsjpg@ > wrote:
> > >
> > > Hello,
> > >
> > > I put this AFL --there is some minor error--(not producing any
> > signal in
> > > the chart)--ERROR MESSAGE: ERROR-29>>VARIABLE GTEXT BEING USED WITHOUT
> > > BEING INITIALIZED
> > >
> > > Can any one rectify this error ?
> > >
> > > Asis
> > >
> > >
> > > wooziwog wrote:
> > > >
> > > >
> > > > 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("GraphXSpa ce",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("pxChartRigh t");//returns y-coordinate of
> > >
> top-left corner
> > > > //========== ========= ===
> > > > _SECTION_BEGIN( "GFX X Conversion") ;
> > > > function tpX(bar) {
> > > > lvb = Status("LastVisible Bar");
> > > > fvb = Status("FirstVisibl eBar");
> > > > pxchartleft = Status("pxChartLeft ");
> > > > pxchartright = Status("pxChartRigh t");
> > > > pxheight = Status("pxheight" );
> > > > pxchartwidth = Status("pxChartWidt h");
> > > > 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("pxChartBott om");
> > > > pxchartheight = Status("pxChartHeig ht");
> > > > 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(Selected Value(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) ; }
> > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > //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()==LastValu e(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;
> > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > _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,HighestSi nce(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,LowestSin ce(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),pxchartrigh t-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) ;
> > > > }
> > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > _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( );
> > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > 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@xxxxxxxxx ps.com > > <mailto:amibroker%
40yahoogroups. com>
> > <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@xxxxxxxxx ps.com > > <mailto:amibroker% 40yahoogroups. com>
> > > > <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("GraphXSpa ce",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("pxChartRigh t");//returns
> > y-coordinate of
> > > > > > top-left
> > > > > > > > corner
> > > > > > > > //========== ========= ===
> > > > > > > > _SECTION_BEGIN( "GFX X Conversion") ;
> > > > > > > > function tpX(bar) {
> > > > > > > > lvb = Status("LastVisible Bar");
> > > > > > > > fvb = Status("FirstVisibl eBar");
> > > > > > > > pxchartleft = Status("pxChartLeft ");
> > > > > > > > pxchartright = Status("pxChartRigh t");
> > > > > > > > pxheight = Status("pxheight"
);
> > > > > > > > pxchartwidth = Status("pxChartWidt h");
> > > > > > > > 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("pxChartBott om");
> > > > > > > > pxchartheight = Status("pxChartHeig ht");
> > > > > > > > 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(Selected Value(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) ; }
> > > > > > > >
//xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > > > > > _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);
> > > > > > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > > > > > //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()==LastValu e(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;
> > > > > > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > > > > > 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,HighestSi nce(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,LowestSin ce(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),pxchartrigh t-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) ;
> > > > > > > > }
> > > > > > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > > > > > _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( );
> > > > > > > > //xxxxxxxxxxxxxxxxx xxxxxxxxxxxxxx
> > > > > > > > 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@xxxxxxxxx ps.com > > <mailto:amibroker% 40yahoogroups. com>
> > > > <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@xxxxxxxxx ps.com > > <mailto:amibroker% 40yahoogroups. com>
> > > > <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=deFlagTi meRange( starttime, endtime);
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > highofmarket= null;//initialis ation
> > > > > > > > > lowofmarket= null;//initialis ation
> > > > > > > > > if (openmarket)
> > > > > > > > > {
> > > > > > > > > highofmarket= iif(h>highofmark et,h,highofmarke t);
> > > > > > > > > lowofmarket= iif(l<lowofmarke t,l,lowofmarket) ;
> > > > > >
> > > marketpivot= (highofmarket+ lowofmarket+ c)/3;
> > > > > > > > > suport1=(marketpivo t*2)-highofmarke t;
> > > > > > > > > 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@xxxxxxxxx ps.com > > <mailto:amibroker% 40yahoogroups. com>
> > > > <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@xxxxxxxxx ps.com > > <mailto:amibroker% 40yahoogroups. com>
> > > > <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@xxxxxxxxx ps.com > > <mailto:amibroker% 40yahoogroups. com>
> > > > <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
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > > >
> > >
> >
> >
>