Just some advice, take these lines to outside of the for loop Buy=Close>R; Sell=Close<S;
Cump=IIf(Close>R,1,0); Vanz=IIf(Close<S,1,0); -- Cheers Graham AB-Write >< Professional AFL Writing Service Yes, I write AFL code to your requirements http://www.aflwriting.com On 29/05/07, gnader_2000 <[EMAIL PROTECTED]> wrote: > Is this what you had in mind? > > I configured your k and n variables as a parameter so you could adjust > them in the parameters section of the chart. This way you can see real > time on the chart what these settings are doing as you adjust them. > > Enjoy - George > > > > > > > _SECTION_BEGIN("ATR Trading System"); > /*Writed & composed by Tudor Marcelin - Art Invest*/ > > k=Param("Multiplier",1.5,0.1,200,0.1); /* multiplication factor*/ > n=Param("Period",10,1,200,1);/*period*/ > f=ATR(n); > > > R[0] = Close[0]; > > S[0] = C[0]; > for( i = 11; i < BarCount; i++ ) > { > > > R[i]=R[i-1]; > S[i]=S[i-1]; > > if ( C[i-1] >R[i-1] ) > { > r[i] = C[i-1]+k*f[i-1]; > s[i]= C[i-1]-k*f[i-1]; > } > if ( C[i-1] <S[i-1] ) > { > r[i] = C[i-1]+k*f[i-1]; > s[i]= C[i-1]-k*f[i-1]; > } > > > Buy=Close>R; > Sell=Close<S; > > Cump=IIf(Close>R,1,0); > Vanz=IIf(Close<S,1,0); > } > Plot(Close,"Close",colorGreen,styleBar); > Plot(R, "Rez:",colorGreen,styleDots|styleNoLine); > Plot(S, "Sup:",colorRed,styleDots|styleNoLine); > > > Buy = ExRem( Buy, Sell ); //Elimina semnalele buy consecutive > Sell = ExRem( Sell, Buy ); //Elimina semnalele sell consecutive > > shape = Buy * shapeUpArrow + Sell * shapeDownArrow; > > fig=Cump*shapeHollowUpArrow + Vanz*shapeHollowDownArrow; > > PlotShapes( fig, IIf( Cump, colorPaleGreen , colorPink), 0, IIf( > Cump, Low-1, High+1)); //Pentru a vizualiza semnalele consecutive > eliminate de ExRem > PlotShapes( shape, IIf( Buy, colorGreen, colorRed ), 0, IIf( Buy, Low- > 1, High+1)); > > AlertIf( Buy, "", "Experiment", 1 ); > AlertIf( Sell, "", "Experiment",2); > > GraphXSpace = 3; > > _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi % > g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( > ROC( C, 1 ) ) )); > > Title=EncodeColor(colorBlue)+"Experiment"+EncodeColor(colorBlack) > + " Open:"+O+" High:"+H+" Low:"+L+" Close:"+C+EncodeColor(colorGreen) > +" Rez:"+R+EncodeColor(colorRed)+" Sup:"+S+EncodeColor(colorBlue)+ > " \nDate: "+EncodeColor(colorRed)+Date(); > _SECTION_END(); > > > > Please note that this group is for discussion between users only. > > To get support from AmiBroker please send an e-mail directly to > SUPPORT {at} amibroker.com > > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > http://www.amibroker.com/devlog/ > > For other support material please check also: > http://www.amibroker.com/support.html > > Yahoo! Groups Links > > > >
