Hi Guys, I used to run a SCAN/EXPLORATION on this code, since I Upgraded to 5.28 BETA, I keep getting the following ERRORS....
Ln: 57, Col:4:Error 10. Subscript out of range. You must not access array elements outside 0.. (Barcount-1) range.
same with Ln 58,col 8 & Ln,59, Col 7
_SECTION_BEGIN( "RSI Divergence") ;
//---------- --------- --------- --------- --------- --------- ---
//
// Formula Name: RSI Divergence
// Author/Uploader: ali alsehri
// E-mail:
// Date/Time Added: 2008-04-02 23:50:02
// Origin:
// Keywords:
// Level: medium
// Flags: indicator
// Formula URL:
// Details URL:
//
//---------- --------- --------- --------- --------- --------- ---
//
// + scanner
//
//---------- --------- --------- --------- --------- --------- ---
/*---------- --------- --------- --------- --------- -----
RSI Divergence
Aron Pipa, april, 02 , 2008
------------ ---------
--------- --------- --------- --------* /
GraphXSpace= 7;
n=Param("% Reverse ",20,0,100,1) ;
Buy=Sell=0;
Var = Zig(RSI(), n);
t= Trough(RSI() , n, 1);
p= Peak(RSI(), n, 1);
x[0] =Var[0];
price[0] = C[0];
j=0;
// bearish divergence
for ( i=0; i<BarCount; i++)
{
if(Var[i] == p[i])
{
j++;
x[j] =Var[i];
price[j] =C[i];
if(x[j] <x[j-1] && price[j-1]< price[j])
Sell[i] =1;
}
}
// bullish divergence
for ( i=0; i<BarCount; i++)
{
if(Var[i] == t[i])
{
j++;
x[j] =Var[i];
price[j] =C[i];
if(x[j] >x[j-1] && price[j]<price[ j-1])
Buy[i] =1;
}
}
Plot(Var, "", 39);
PlotShapes ( IIf(Sell, shapeSmallCircle, shapeNone), colorRed, 0 , Var,0);
PlotShapes( IIf(Buy, shapeSmallCircle, shapeNone), colorBrightGreen, 0, Var,0);
Filter = Buy OR Sell ;
Title ="RSI Divergence" ;
_SECTION_END(
);
_SECTION_BEGIN( "TEMA");
P = ParamField(" Price field",-1);
Periods = Param("Periods" , 15, 2, 200, 1, 10 );
Plot( TEMA( P, Periods ), _DEFAULT_NAME( ), ParamColor( "Color", colorCycle ), ParamStyle(" Style") );
//////////// ///////// ///////// ///////// ///////// //
AddColumn( IIf(Buy,1,IIf( Sell,-1,Null) ), "rsiD", 1.0,colorWhite, IIf(Buy,colorGre en,IIf(Sell, colorRed, Null)));
//AddColumn( Sell, "Sell", 1.2 );
AddColumn(Close, "Close",1. 2);
AddColumn(Volume, "Volume", 1.0);
AddColumn(V/ EMA(V,20) ,"Vspurt" ,1.0);
AddColumn( RSI(), "RSI", 1.2 );
AddColumn( ROC( Close, 15 ), "ROC(15)", 1.2 );
AddColumn( Ultimate(), "Ultimate", 1.4 );
_SECTION_END( );