study(title="soru (SR levels: dynamic and fixed)", shorttitle="soru (SR levels: dynamic and fixed)", overlay=true)
TW1 = input("2W", title="Timewindow1")
TW2 = input("2M", title="Timewindow2")
S1 = input(title="Show TW1", type=bool, defval=false)
S1M = input(title="Show TW1 Med line", type=bool, defval=false)
S2 = input(title="Show TW2", type=bool, defval=false)
S2M = input(title="Show TW2 Med line", type=bool, defval=false)
pf = (hlc3) *2
pla = pf - high
pha = pf - low
pma = hlc3
//TW1
time_pfa = security(tickerid, TW1, pfa[1])
time_pla = security(tickerid, TW1, pla[1])
time_pha = security(tickerid, TW1, pha[1])
time_pma = security(tickerid, TW1, pma[1])
color_pla = close < time_pla ? red : yellow
color_pha = close > time_pha ? lime : yellow
color_pma = close > time_pma ? lime : red
plot(S1 and time_pla ? time_pla : na, title="Projected Low",style=circles, color=color_pla ,linewidth=1)
plot(S1 and time_pha ? time_pha : na, title="Projected High",style=circles, color=color_pha ,linewidth=1)
plot(S1M and time_pma ? time_pma : na, title="Projected Mid",style=circles, color=color_pma ,linewidth=1, join=false)
//TW2
time2_pfa = security(tickerid, TW2, pfa[1])
time2_pla = security(tickerid, TW2, pla[1])
time2_pha = security(tickerid, TW2, pha[1])
time2_pma = security(tickerid, TW2, pma[1])
color2_pla = close < time2_pla ? red : yellow
color2_pha = close > time2_pha ? lime : yellow
color2_pma = close > time2_pma ? lime : red
plot(S2 and time2_pla ? time2_pla : na, title="Projected Low 2",style=circles, color=color2_pla ,linewidth=2)
plot(S2 and time2_pha ? time2_pha : na, title="Projected High 2",style=circles, color=color2_pha ,linewidth=2)
plot(S2M and time2_pma ? time2_pma : na, title="Projected Mid 2",style=circles, color=color2_pma ,linewidth=2, join=false)
//moving part
periods=input(200, minval=1, title="MA Period")
pc = input(true, title="Draw swings?")
hld = iff(close > sma(high,periods)[1], 1, iff(close<sma(low,periods)[1],-1, 0))
hlv = valuewhen(hld != 0, hld, 1)
hi = pc and hlv == -1 ? sma(high, periods) : na
lo = pc and hlv == 1 ? sma(low,periods) : na
low_tf = input(title="5/3 min TF", type=bool, defval=false)
plot(avg(sma(high,periods)+2.5*(sma(high,periods)-sma(low,periods)),sma(low,periods)-2.5*(sma(high,periods)-sma(low,periods))), color=navy, style=linebr,linewidth=2)
plot(lo ? sma(high,periods)+2.5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(hi ? sma(low,periods)-2.5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(hi ? sma(low,periods)-5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(lo ? sma(high,periods)+5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(hi ? sma(low,periods)-7.5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(lo ? sma(high,periods)+7.5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(hi ? sma(low,periods)-10*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(lo ? sma(high,periods)+10*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(hi and low_tf ? sma(low,periods)-12.5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(lo and low_tf ? sma(high,periods)+12.5*(sma(high,periods)-sma(low,periods)):na, color=orange, style=linebr,linewidth=2)
plot(hi and low_tf ? sma(low,periods)-15*(sma(high,periods)-sma(low,periods)):na, color=blue, style=linebr,linewidth=2)
plot(lo and low_tf ? sma(high,periods)+15*(sma(high,periods)-sma(low,periods)):na, color=blue, style=linebr,linewidth=2)
plot(pc and sma(high, periods) ? sma(high, periods):na ,title="Swing High Plot", color=red,style=linebr, linewidth=2)
plot(pc and sma(low,periods) ? sma(low,periods) : na ,title="Swing Low Plot", color=lime,style=linebr, linewidth=2)
//previous WEEK closure
cw_draw = input(title="Draw previous WEEK closure", type=bool, defval=false)
cw = close
time_cw = security(tickerid, "1W", cw[1])
plot(cw_draw and time_cw ? time_cw : na, title="Weekly closure",style=circles, color=white ,linewidth=2)
