rsi channelbands

// © brettkind
//@version=4
study(title="rsi channelbands", shorttitle="RSI", overlay=false, format=format.percent, precision=1)//_____.RSI-Input.__________
source  =   input(close, title="source")
rsi     =   input(14, title="relative strength index", minval=1)
chnl    =   input(20, title="Channelbands-length", minval=1)
hl7030  =   input(true, title="Horizontal Lines")
THL     =   input(70, title="Top H-Line", minval=0, maxval=100, tooltip="Top > Mid > Low")
MHL     =   input(50, title="Mid H-Line", minval=0, maxval=100, tooltip="Top > Mid > Low")
LHL     =   input(30, title="Low H-Line", minval=0, maxval=100, tooltip="Top > Mid > Low")
pivot   =   input(true, title="Pivot Channel")
dnchn   =   input(true, title="Donchian Channel")
boll    =   input(true, title="Bollinger Bands")
avgfktr =   (hl7030?1:0) + (dnchn?1:0) + (boll?1:0) + (pivot?1:0)
//_____.RSI-Source.__________
rsicls  =   rsi(source,rsi)
//_____.RSI-Pivot.__________
rsihigh =   pivothigh(rsicls,chnl/2,chnl/2)
rsilow  =   pivotlow(rsicls,chnl/2,chnl/2)
rsibshi =   barssince(0<rsihigh)
rsibslo =   barssince(0<rsilow)
rsihipl =   rsihigh[rsibshi]
rsilopl =   rsilow[rsibslo]
rsifrpv =   avg(rsihipl,rsilopl)
//_____.RSI-Bollinger.__________
[rsibfr, rsibupp, rsiblow] = bb(rsicls, chnl, 1)
//_____.RSI-Donchian.__________
rsidhiB =   highest(rsicls, chnl)==rsicls
rsidloB =   lowest(rsicls, chnl)==rsicls
rsidhi  =   highest(rsicls, chnl)
rsidlo  =   lowest(rsicls, chnl)
rsidfr  =   avg(rsidhi,rsidlo)
//_____.RSI-Output.__________
rsiovbuy  =   ( (pivot?rsihipl:0) + (boll?rsibupp:0) + (dnchn?rsidhi:0) + (hl7030?THL:0) ) / avgfktr
rsifrprc  =   ( (pivot?rsifrpv:0) + (boll?rsibfr:0) + (dnchn?rsidfr:0) + (hl7030?MHL:0) ) / avgfktr
rsiovsel  =   ( (pivot?rsilopl:0) + (boll?rsiblow:0) + (dnchn?rsidlo:0) + (hl7030?LHL:0) ) / avgfktr
//_____.RSI-Plots.__________
plot(rsiovbuy, color=color.new(color.gray,50), title="Overbought Line")
plot(rsifrprc, color=avgfktr==1 and hl7030?color.gray:barssince(rsifrprc>rsifrprc[1])<barssince(rsifrprc<rsifrprc[1])?color.yellow:color.blue, title="Mid-Channel Line")
plot(rsiovsel, color=color.new(color.gray,50), title="Oversold Line")
CU=crossunder(rsicls,rsiovbuy)
CO=crossover(rsicls,rsiovsel)
plot(rsicls, color=color.white, title="relative strength index")