//Created by Profit Myntra
study(title="CPR By PM", shorttitle="CPR By PM", overlay=true) 
sd = input(true, title="Show Daily Pivots?")

//Pivot Range Calculations - Mark Fisher
pivot = (high + low + close ) / 3.0 
bc = (high + low ) / 2.0 
tc = (pivot - bc) + pivot
r1 = (pivot * 2) - low
s1 = (pivot * 2) - high
r2 = pivot + (high - low)
s2 = pivot - (high - low)
r3 = r1 + (high - low)
s3 = s1 - (high - low)
r4 = r3 + (r2 - r1)
s4 = s3 - (s1 - s2)

//Daily Pivot Range 
dtime_pivot = security(tickerid, 'D', pivot[1]) 
dtime_bc = security(tickerid, 'D', bc[1]) 
dtime_tc = security(tickerid, 'D', tc[1]) 
dtime_r1 = security(tickerid, 'D', r1[1])
dtime_r2 = security(tickerid, 'D', r2[1])
dtime_r3 = security(tickerid, 'D', r3[1])
dtime_r4 = security(tickerid, 'D', r4[1])
dtime_s1 = security(tickerid, 'D', s1[1])
dtime_s2 = security(tickerid, 'D', s2[1])
dtime_s3 = security(tickerid, 'D', s3[1])
dtime_s4 = security(tickerid, 'D', s4[1])


offs_daily = 0 
plot(sd and dtime_pivot ? dtime_pivot : na, title="Daily Pivot",style=circles, color=blue,linewidth=3) 
plot(sd and dtime_bc ? dtime_bc : na, title="Daily BC",style=circles, color=blue,linewidth=3)
plot(sd and dtime_tc ? dtime_tc : na, title="Daily TC",style=circles, color=blue,linewidth=3)
plot(sd and dtime_r1 ? dtime_r1 : na, title="Daily r1",style=circles, color=red,linewidth=3)
plot(sd and dtime_r2 ? dtime_r2 : na, title="Daily r2",style=circles, color=red,linewidth=3)
//plot(sd and dtime_r3 ? dtime_r3 : na, title="Daily r3",style=circles, color=red,linewidth=3)
//plot(sd and dtime_r4 ? dtime_r4 : na, title="Daily r4",style=circles, color=red,linewidth=3)
plot(sd and dtime_s1 ? dtime_s1 : na, title="Daily s1",style=circles, color=green,linewidth=3)
plot(sd and dtime_s2 ? dtime_s2 : na, title="Daily s2",style=circles, color=green,linewidth=3)
//plot(sd and dtime_s3 ? dtime_s3 : na, title="Daily s3",style=circles, color=green,linewidth=3)
//plot(sd and dtime_s4 ? dtime_s4 : na, title="Daily s4",style=circles, color=green,linewidth=3)