Donald F Lindberg
-------------------------- Begin Code
---------------------------------
_SECTION_BEGIN("multiplication
factor");
/*Writed & composed by Tudor Marcelin - Art Invest*/
SetChartOptions
(0,chartShowDates|chartShowArrows|chartLogarithmic|chartWrapTitle);
k=1; /* multiplication factor*/
n=Optimize("n",8,3,15,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",colorBlack,styleCandle);
Plot(R, "Resistance:",colorGreen,styleDots|styleNoLine);
Plot(S, "Support:",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 = 10;
Dev = C - S;
Title=EncodeColor(colorBlue)+"ATR Trading System with Restance and Support"+EncodeColor(colorBlack)+
"
Open:"+O+" High:"+H+" Low:"+L+" Close:"+C+
EncodeColor(colorGreen)+" Resistance:"+R+
EncodeColor(colorRed)+" Support:"+S+
EncodeColor(colorBlack)+" Dev:"+Dev+
EncodeColor(colorBlue)+
" \nDate: "+EncodeColor(colorRed)+Date();
_SECTION_END();
Filter = 1;
AddColumn(S,"Support",1.4);
AddColumn(R,"Resistance",1.4);
AddColumn(Close,"Close",1.4);
AddColumn(Dev,"Dev",1.2);
------------------------ End Code --------------------------
