Hi Dick, Check your email I've just sent you my version of the zerolag indicator that have the Buy/Sell arrows you saw on my site.
Thanks Mike www.amibrokerfan.com --- In [email protected], "areehoi" <[EMAIL PROTECTED]> wrote: > > I'm trying to get this indicator/exploration to show Buy/Sell signals > (up –down arrows) on the indicator and Buy /Sell results on the > exploration. Any ideas on how this might be accomplished will be most > appreciated. > > Dick H > (watch for wrap) > > /*ZeroLag W%R*/ > "========"; > > GraphXSpace = 3; > > R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100; > > MaxGraph=10; > Period= 10; > EMA1= EMA(R,Period); > EMA2= EMA(EMA1,5); > Difference= EMA1 - EMA2; > ZeroLagEMA= EMA1 + Difference; > PR=100-abs(ZeroLagEMA); > > Graph0=PR; > > MoveAvg=MA(PR,5); > > > //Graph1=MoveAvg; > > //Graph1Color=colorTan; > //Graph0Style=4;//Thick > MovAvg=MA(PR,5); > Plot(MA(PR,5),"ZLTrig",colorBlue,styleLine,7,4); > > upbar= PR>= MoveAvg AND PR>= Ref(PR,-1) ; > downbar=(PR < MoveAvg) OR PR>= MoveAvg AND PR< Ref(PR,-1) ; > barcolor = IIf( downbar,colorRed, IIf( upbar, colorBrightGreen, 7)); > Graph0BarColor = ValueWhen( barcolor != 0, barcolor ); > //dynamic_color = IIf( downbar,colorRed, IIf( upbar, colorBrightGreen, > 7)); > //Plot(PR,"ZeroLag", Color = ValueWhen( dynamic_color != 0, > dynamic_color )); > > //Graph2=30; > //Graph3=70; > HLine = Param( "Upper Line" , 70, 60,95, 5); > LLine = Param( "Lower Line", 30, 5, 40, 5); > Plot( Lline, "", colorPlum,styleLine|styleDashed ); > Plot( Hline, "", colorPlum,styleLine|styleDashed ); > > > Graph2Style=Graph3Style=Graph4Style=1;//normal > Graph4Color=2; > Graph2Color=5; > Graph3Color=4; > > Graph5=0; > Graph6=100; > Graph5Style=Graph6Style=1; > Graph5Color=Graph6Color=2;//custom > Buy = Cross(Upbar, MA(PR,5)); > Sell = Cross (MA(PR,5), upbar); > Buy = ExRem(Buy,Sell); > Sell = ExRem(Sell,Buy); > PlotShapes(Buy* shapeUpArrow,colorGreen); > PlotShapes(Sell* shapeUpArrow,colorRed); > > Title=Name()+" < ZeroLag W%R :"+WriteVal(PR)+"%"; > > Filter = C <40 AND C >2 AND C> Ref(C,-1)AND Volume > 80000; > Result = WriteIf(Buy,"Buy","Sell"); > AddTextColumn( WriteIf(Buy,"Buy", "Sell" ) > ,"TRADE",5,IIf(Buy,colorYellow, colorWhite), IIf(Buy, colorDarkGreen, > colorDarkRed) ); > AddTextColumn(IndustryID(1) ," Industry Sector ", 25.0, > colorWhite, colorBlue); > AddColumn( Close, "Close", 1.2, IIf( ROC(C, 1 ) >= 0, > colorDarkGreen,colorRed ),50 ); > AddColumn(Ref(Close,-1),"Y-Close",1.2, IIf( > ROC(Ref(C,-1),1)>=0,colorDarkGreen, colorRed ),50 ); > AddColumn( Volume, "Volume", 10.0, IIf( ROC(V, 1 ) >= > 0,colorDarkGreen, colorRed ) ); > AddColumn( ROC( Close, 1 ), "ROC(1)", 1.2, IIf( ROC(C, 1 ) >= > 0,colorDarkGreen, colorRed)); > > Title=Name()+" < ZeroLag W%R :"+WriteVal(PR)+"%"; >
