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