/*
	Experimental analysis technique using Bollinger bands
	and RSI as a filter.
*/

maxgraph = 4;
graph1color = 1;
graph2color =5;

 Plot1 = bbandtop(close, 15, 2);
 Plot2 = bbandbot(close, 15, 2);

lim = rsi(5) / 100;

/* was < .05 and > .9 */

buy = (
       (Close - Plot2) / (Plot1 - Plot2) < .1 or Close < Plot2 ) > 0 and lim < .1;

sell = (
       (Close - Plot2) / (Plot1 - Plot2) > .8 or Close > Plot1 ) > 0 and lim > .8;

graph1 = buy;
graph2 = sell;