//Created by ChrisMoody 11/11/2014
//Current Timeframe, Daily Pivot Bands
//Special Thanks to Michael S. For Providing Original Code.
study(title="CM_Pivot Bands V1", shorttitle="CM_PivotBands_V1", overlay=true)
lengthMA=input(7, title="EMA Length To Calculate Bands")
sc = input(true, title="Show Current Chart Timeframe Pivot Bands?")
sd = input(false, title="Show Daily Pivot Bands?")
PP = (high + low + close)/ 3
PPEMA = ema(PP, lengthMA)
HP1 = (PP + (PP-low))
LP1 = (PP - (high-PP))
HP2 = (PP + 2*(PP-low))
LP2 = (PP - 2*(high-PP))
// PPD71 = Difference from HP1 and LP1 for the last 7 days
PPD71 = (((HP1-LP1)+(HP1[1]-LP1[1])+(HP1[2]-LP1[2])+(HP1[3]-LP1[3])+(HP1[4]-LP1[4])+(HP1[5]-LP1[5])+(HP1[6]-LP1[6]))/7)
// PPD72 = Difference from HP2 and LP2 for the last 7 days
PPD72 = (((HP2-LP2)+(HP2[1]-LP2[1])+(HP2[2]-LP2[2])+(HP2[3]-LP2[3])+(HP2[4]-LP2[4])+(HP2[5]-LP2[5])+(HP2[6]-LP2 [6]))/7)
r1 = PPEMA + PPD71
s1 = PPEMA - PPD71
r2 = PPEMA + PPD72
s2 = PPEMA - PPD72
plot(sc and PPEMA ? PPEMA : na, title="Current Timeframe Pivot Point ", style=linebr, linewidth=2, color=fuchsia)
p1=plot(sc and r1 ? r1 : na, title="Current Timeframe R1", style=linebr, linewidth=2, color=#DC143C)
p2=plot(sc and s1 ? s1 : na, title="Current Timeframe S1", style=linebr, linewidth=2, color=lime)
p3=plot(sc and r2 ? r2 : na, title="Current Timeframe R2", style=linebr, linewidth=2, color=maroon)
p4=plot(sc and s2 ? s2 : na, title="Current Timeframe S2", style=linebr, linewidth=2, color=#228B22)
fill(p1, p3, color=red, transp = 85)
fill(p2, p4, color=lime, transp = 85)
//Daily Pivot Bands
d_PPEMA = security(tickerid, 'D', PPEMA)
d_r1 = security(tickerid, 'D', r1)
d_s1 = security(tickerid, 'D', s1)
d_r2 = security(tickerid, 'D', r2)
d_s2 = security(tickerid, 'D', s2)
plot(sd and d_PPEMA ? d_PPEMA : na, title="Daily Pivot Point ", style=circles, linewidth=2, color=fuchsia)
p11=plot(sd and d_r1 ? d_r1 : na, title="Daily R1", style=circles, linewidth=2, color=#DC143C)
p12=plot(sd and d_s1 ? d_s1 : na, title="Daily S1", style=circles, linewidth=2, color=lime)
p13=plot(sd and d_r2 ? d_r2 : na, title="Daily R2", style=circles, linewidth=2, color=maroon)
p14=plot(sd and d_s2 ? d_s2 : na, title="Daily S2", style=circles, linewidth=2, color=#228B22)
fill(p11, p13, color=red, transp = 80)
fill(p12, p14, color=lime, transp = 80)
