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();
