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