I have put in basic code to allow you to
run as exploration. You can narrow your search by changing the criteria in the
Filter Statement.
------------ --------- ------ Begin Code
------------ --------- ---
_SECTION_BEGIN("support
and resistant");
//Support and resistance levels using RSI.
//graham Kavanagh May 2003
//Load into Indicator Builder
//Sensitivity of the levels can be changed
with the variables
//Can test different numbers live with the
Param function ctrl-R with Open pane
RSIperiod = 5; //
Param("RSI p",3,14,30,1) ;
Percent = 5; //
Param("ZIG %",8,9,15,1) ;
EMAperiod = 5; //Param("EMA
p",4,5,10,1) ;
HHVperiod = 5; //Param("HHV
p",3,5,10,1) ;
NumLine = 1; //Param("Num
Lines",3,1,20, 1);
Base = DEMA(RSI(RSIperiod),
EMAperiod) ;
GraphXSpace=0.5;
Plot(C,"",colorBlack,styleCandle);
for( i = 1; i = numline;
i++ )
{
ResBase = LastValue(Peak(Base,Percent,
i));
SupBase = LastValue(Trough(Base,Percent,
i));
Plot(ValueWhen( ResBase==Base, HHV(H,HHVperiod) ), "Resist
Level",
colorRed, styleLine);
Plot(ValueWhen( supbase==Base, LLV(L,HHVperiod) ), "Support
Level",
colorGreen, styleLine);
}
Title = Name() + "; " + Date() + ": Support
Resistance Levels using
RSI: " +
/*EncodeColor( colorGreen) + "Support Levels are Green;
"+EncodeColor( colorRed) + "Resistance Levels
are Red:
"+EncodeColor( colorBlack) +*/
"Num lines ="+WriteVal(numline, 1) ;
Filter=C>10 AND C75 AND ResBase>=1 AND SupBase >=1;
Buy=Sell=Short=Cover=0;
AddColumn(C,"Close",1.2);
AddColumn(ResBase,"Resistance",1.2);
AddColumn(SupBase,"Support",1.2);
_SECTION_END();
------------ --------- ---- End Code
------------ ---------
From: amibroker@xxxxxxxxx ps.com [mailto:
amibroker@xxxxxxxxx ps.com ] On Behalf Of rashmo_70
Sent: Tuesday, November 06, 2007
1:16 PM
To: amibroker@xxxxxxxxx ps.com
Subject: [amibroker] graham
Kavanagh Support and resistance levels using RSI.
Please is it possible to do a scan on the formula
below to generate
support resistance prices other than browsing each chart?.
thanks.
_SECTION_BEGIN( "support and resistant");
//Support and resistance levels using RSI.
//graham Kavanagh May 2003
//Load into Indicator Builder
//Sensitivity of the levels can be changed with the variables
//Can test different numbers live with the Param function ctrl-R with
open pane
RSIperiod = 5; // Param("RSI p",3,14,30,1) ;
Percent = 5; // Param("ZIG %",8,9,15,1) ;
EMAperiod = 5; //Param("EMA p",4,5,10,1) ;
HHVperiod = 5; //Param("HHV p",3,5,10,1) ;
NumLine = 1; //Param("Num Lines",3,1,20, 1);
Base = DEMA(RSI(RSIperiod) ,EMAperiod) ;
GraphXSpace= 0.5;
Plot(C,"",colorBlac k,styleCandle) ;
for( i = 1; i = numline; i++ )
{
ResBase = LastValue(Peak( Base,Percent, i));
SupBase = LastValue(Trough( Base,Percent, i));
Plot(ValueWhen( ResBase==Base, HHV(H,HHVperiod) ), "Resist Level",
colorRed, styleLine);
Plot(ValueWhen( supbase==Base, LLV(L,HHVperiod) ), "Support Level",
colorGreen, styleLine);
}
Title = Name() + "; " + Date() + ": Support Resistance Levels
using
RSI: " + /*EncodeColor( colorGreen) + "Support Levels are Green;
"+EncodeColor( colorRed) + "Resistance Levels are Red:
"+EncodeColor( colorBlack) +*/ "Num lines ="+WriteVal(
numline,1) ;
_SECTION_END( );