Key_levels v0.1

study("Key_levels v0.1",overlay=true)
a=input(defval=1,title='R1/S1 - 0 for weekend analysis, 1 default')
aPTF = isweekly?'12M' : isdaily?'4M': interval==240 ? '3W' : interval==120 ? '1W' : interval == 60 ? '3D' : interval == 30 ? '3D' : interval==15 ? '2D' : interval==5 ? '1D' : interval==3 ? '960' : interval==1 ? '240' : '12M'
pivot = (high + low) / 2
use_fake_TF = input(false)
fake_TF = input('4M')
PTF = use_fake_TF ? fake_TF : aPTF


base(x,y) =>
    _pivot = security(tickerid, x, pivot[y])
    _high  = security(tickerid, x, high[y])
    q = 0.5 * (_high-_pivot)
    k = close > _pivot ? 1 : -1
    max_u = k > 0 ? (close-_pivot)/q+1 : na
    max_d = k < 0 ? (_pivot-close)/q+1 : na
    
    [_pivot, q,max_u,max_d]
    
[_pivot,q,max_u,max_d] = base(PTF,a)

plot(_pivot,style=circles, color=green)
plot(max_u > 0 ? _pivot+q*1:na,style=circles, color=blue)
plot(max_u > 1 ? _pivot+q*2:na,style=circles, color=green)
plot(max_u > 2 ? _pivot+q*3:na,style=circles, color=blue)
plot(max_u > 3 ? _pivot+q*4:na,style=circles, color=green)
plot(max_u > 4 ? _pivot+q*5:na,style=circles, color=blue)
plot(max_u > 5 ? _pivot+q*6:na,style=circles, color=green)
plot(max_u > 6 ? _pivot+q*7:na,style=circles, color=blue)
plot(max_u > 7 ? _pivot+q*8:na,style=circles, color=green)
plot(max_u > 8 ? _pivot+q*9:na,style=circles, color=blue)
plot(max_u > 9 ? _pivot+q*10:na,style=circles, color=green)

plot(max_d > 0 ? _pivot-q*1:na,style=circles, color=blue)
plot(max_d > 1 ? _pivot-q*2:na,style=circles, color=green)
plot(max_d > 2 ? _pivot-q*3:na,style=circles, color=blue)
plot(max_d > 3 ? _pivot-q*4:na,style=circles, color=green)
plot(max_d > 4 ? _pivot-q*5:na,style=circles, color=blue)
plot(max_d > 5 ? _pivot-q*6:na,style=circles, color=green)
plot(max_d > 6 ? _pivot-q*7:na,style=circles, color=blue)
plot(max_d > 7 ? _pivot-q*8:na,style=circles, color=green)
plot(max_d > 8 ? _pivot-q*9:na,style=circles, color=blue)
plot(max_d > 9 ? _pivot-q*10:na,style=circles, color=green)