StockFetcher Forums · Filter Exchange · Bollinger Band of RSI<< 1 2 3 >>Post Follow-up
alf44
2,025 posts
msg #38577
Ignore alf44
10/26/2005 12:03:15 PM

In effect, what you would be trying to do is:

Take a 14 period RSI...which is based on a ratio of the average upward changes to the average downward changes over a given period of time (in this case 14 days)...

...then...calculate a 100 period Moving Average of that RSI(14) number...

...then calculate Upper and Lower Bands that are 2 Standard Deviations above and below that 100 period Moving Average of the RSI(14) !

That is...if I understand correctly what is being discussed.

I didn't read the article that apparently talked about this indicator but, that would seem to be what it is trying to accomplish.

Although...WHY...I do not know !


Regards,

alf44






mnkayaker76
7 posts
msg #43295
Ignore mnkayaker76
4/29/2006 1:56:34 AM

This is the websites code for their Adaptive RSI (maybe you can convert it to SF):

var Bar: integer;
var RSIPane: integer;
RSIPane := CreatePane( 75, true, true );
var RSI1, H1,L1: integer;
RSI1 := RSISeries( #Close,14 );
PlotSeriesLabel( RSI1, RSIPane, 009, #Thin, 'RSI1(14)' );
H1 := BBandUpperSeries( RSI1,100, 2 );
PlotSeriesLabel( H1, RSIPane, 900, #Thin, 'Bollinger High(100, 2)' );
L1 := BBandLowerSeries( RSI1,100, 2 );
PlotSeriesLabel( L1, RSIPane, 900, #Thin, 'Bollinger Low(100, 2)' );
SetPaneMinMax(RSIPane,10,90);
hidevolume;

var sl:float;
sl:=0;
for Bar := 20 to BarCount - 1 do
begin
if not LastPositionActive then
begin
If CrossOver(Bar,RSI1,L1) then BuyAtMarket(Bar+1,'');
end
else
begin
If not SellAtStop(Bar+1, sl, lastposition, 'exit stop') then
if CrossUnder(Bar,RSI1,H1) then
SellAtMarket(Bar+1,lastposition,'exit crossunder');
end
end;


BFreshour
139 posts
msg #43469
Ignore BFreshour
modified
5/4/2006 4:18:19 PM

This is the best I can do...

Fetcher[draw rsi(14)
set{a,cma(rsi(14),100)}
set{c,rsi(14) - a}
set{d,c * c}
set{e,sum(d,100)}
set{f,e / 99}
set{g,sqrt(f)}
set{rsiupperbb,a + g}
set{rsilowerbb,a - g}
draw a on plot rsi(14)
draw rsiupperbb on plot rsi(14)
draw rsilowerbb on plot rsi(14)
]





BFreshour
139 posts
msg #43471
Ignore BFreshour
5/4/2006 5:31:55 PM

Well, I think what I posted only plots one standard deviation... to double that use this:

Fetcher[draw rsi(14)
set{a,cma(rsi(14),100)}
set{c,rsi(14) - a}
set{d,c * c}
set{e,sum(d,100)}
set{f,e / 99}
set{g,sqrt(f)}
set{h,g * 2}
set{rsiupperbb,a + h}
set{rsilowerbb,a - h}
draw a on plot rsi(14)
draw rsiupperbb on plot rsi(14)
draw rsilowerbb on plot rsi(14)
]




rtucker
318 posts
msg #43479
Ignore rtucker
5/5/2006 6:07:41 AM

Thank you BFreshour.

Any thoughts people on ways to use this?


and rsi(14) < rsilowerbb and rsi(14) > rsi(14) 1 day ago is my 1st thought.


chetron
2,817 posts
msg #80855
Ignore chetron
modified
10/9/2009 6:44:51 AM

MAYBE...

Fetcher[
/* WSG */
Set{MA100,CMA(rsi(14),100)}
set{SD,cstddev(rsi(14),100)}
set{SD100,2 * SD}
set{BOLU,MA100 + SD100}
set{BOLD,MA100 - SD100}

draw BOLU on plot rsi(14)
draw BOLD on plot rsi(14)

]



LASTLY...


Fetcher[

/* WSG */
Set{MA100,CMA(rsi(14),100)}
set{SD,cstddev(rsi(14),100)}
set{SD100,2 * SD}
set{BOLU,MA100 + SD100}
set{BOLD,MA100 - SD100}

draw BOLU on plot rsi(14)
draw BOLD on plot rsi(14)


rsi(14) < BOLD
rsi(14) > rsi(14) 1 day ago .

]



drew9
171 posts
msg #80921
Ignore drew9
10/9/2009 3:31:29 PM

Chetron, very cool! Must have been quite a challenge for you to figure out? Three years in the making? :) Really seems to work nicely. Thanks for sharing!

mystiq
650 posts
msg #80937
Ignore mystiq
10/10/2009 1:40:22 AM

10/9/2009 6:44:51 AM
MAYBE...
Fetcher[
/* WSG */
Set{MA100,CMA(rsi(14),100)}
set{SD,cstddev(rsi(14),100)}
set{SD100,2 * SD}
set{BOLU,MA100 + SD100}
set{BOLD,MA100 - SD100}

draw BOLU on plot rsi(14)
draw BOLD on plot rsi(14)
]


LASTLY...
Fetcher[
/* WSG */
Set{MA100,CMA(rsi(14),100)}
set{SD,cstddev(rsi(14),100)}
set{SD100,2 * SD}
set{BOLU,MA100 + SD100}
set{BOLD,MA100 - SD100}
draw BOLU on plot rsi(14)
draw BOLD on plot rsi(14)
rsi(14) < BOLD
rsi(14) > rsi(14) 1 day ago .
]


**************GREAT CODING*************DOES ANYONE THINK RSI2 or RSI10 WOULD BE A BETTER VARIABLE?*********

Kevin_in_GA
4,539 posts
msg #80941
Ignore Kevin_in_GA
10/10/2009 8:53:06 AM

chetron
- Ignore chetron
modified 10/9/2009 6:44:51 AM

MAYBE...



/* WSG */
Set{MA100,CMA(rsi(14),100)}
set{SD,cstddev(rsi(14),100)}
set{SD100,2 * SD}
set{BOLU,MA100 + SD100}
set{BOLD,MA100 - SD100}

draw BOLU on plot rsi(14)
draw BOLD on plot rsi(14)

++++++++++++++++++++++++++++++++

I think that the 100 day MA of the RSI is too slow to respond to anything meaningful - you might as well be using standard horizontal lines at 30 and 70.

How about reducing the timeframes to capture more of the action? A slight modification to Chet's work here:

Fetcher[
/* WSG */
Set{MA20,CMA(rsi(14),20)}
set{SD,cstddev(rsi(14),20)}
set{SD20,2 * SD}
set{BOLU,MA20 + SD20}
set{BOLD,MA20 - SD20}

draw BOLU on plot rsi(14)
draw BOLD on plot rsi(14)

]



Nothing fancy, but it might be more responsive at the 20 day MA than at the 100 day MA. These are the standard BB settings for price action.

Freestockcharts.com let's you put indicators on indicators, but you can't screen by them.



chetron
2,817 posts
msg #80942
Ignore chetron
10/10/2009 9:26:53 AM


**************GREAT CODING*************DOES ANYONE THINK RSI2 or RSI10 WOULD BE A BETTER VARIABLE?*********

MYSTIQ,
JUST CHANGE THE 14'S TO A 2 OR 10



StockFetcher Forums · Filter Exchange · Bollinger Band of RSI<< 1 2 3 >>Post Follow-up

*** Disclaimer *** StockFetcher.com does not endorse or suggest any of the securities which are returned in any of the searches or filters. They are provided purely for informational and research purposes. StockFetcher.com does not recommend particular securities. StockFetcher.com, Vestyl Software, L.L.C. and involved content providers shall not be liable for any errors or delays in the content, or for any actions taken based on the content.


Copyright 2016 - Vestyl Software L.L.C.Terms of Service | License | Questions or comments? Contact Us
EOD Data sources: DDFPlus & CSI Data Quotes delayed during active market hours. Delay times are at least 15 mins for NASDAQ, 20 mins for NYSE and Amex. Delayed intraday data provided by DDFPlus