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