TV_Levels
взят у ChrisMoody, переделан для дневной торговли. Уровни П/С дневные, 4 часа и локальные 90 минут.
study (title="TV_Levels", shorttitle="TV_Levels", overlay=true)
LRG_Channel_TF_mins_D_W_M = input("90", title="Local level")
HI = security(tickerid, LRG_Channel_TF_mins_D_W_M, high)
LO = security(tickerid, LRG_Channel_TF_mins_D_W_M, low)
plot(HI, color=HI!=HI[1]?na:red,style=line, title="Resistance", linewidth=2, transp=0)
plot(LO, color=LO!=LO[1]?na:green,style=line, title="Support ", linewidth=2, transp=0)
sd = input(true, title="Daily levels High Low?")
sw = input(true, title="Clock levels High Low?")
pf = (hlc3) *2
pl = pf - high
ph = pf - low
dtime_pf = security(tickerid, 'D', pf[1])
dtime_pl = security(tickerid, 'D', pl[1])
dtime_ph = security(tickerid, 'D', ph[1])
pcolor_pl = close < dtime_pl ? red : olive
pcolor_ph = close > dtime_ph ? lime : olive
//Daily Projected High Low
offs_daily = 0
plot(sd and dtime_ph ? dtime_ph : na, title="Daily High",style=line, color=pcolor_ph ,linewidth=2, transp=0)
plot(sd and dtime_pl ? dtime_pl : na, title="Daily Low",style=line, color=pcolor_pl ,linewidth=2, transp=0)
//Weekly Projected High Low
wtime_pf = security(tickerid, '240', pf[1])
wtime_pl = security(tickerid, '240', pl[1])
wtime_ph = security(tickerid, '240', ph[1])
wcolor_pl = close < wtime_pl ? red : orange
wcolor_ph = close > wtime_ph ? lime : orange
plot(sw and wtime_ph ? wtime_ph : na, title="Clock High",style=line, color=wcolor_ph,linewidth=2, transp=0)
plot(sw and wtime_pl ? wtime_pl : na, title="Clock Low",style=line, color=wcolor_pl,linewidth=2, transp=0)
четкие раздельные линии, но без локальных
study (title="TV_Levels_HD", shorttitle="TV_Levels_HD", overlay=true)
LRG1 = input("240", title="H High Low")
LRG2 = input("D", title="D High Low")
LRG = input("W", title="W High Low")
pf = (hlc3)*2
pl = pf - high
ph = pf - low
//240 Projected High Low
ctime_pf = security(tickerid, LRG1, pf)
ctime_pl = security(tickerid, LRG1, pl)
ctime_ph = security(tickerid, LRG1, ph)
plot(ctime_pl, color=ctime_pl!= ctime_pl? na: orange, title="H Hig",style=line, linewidth=2, transp=0)
plot(ctime_ph, color=ctime_ph!= ctime_ph? na: orange, title="H Low",style=line, linewidth=2, transp=0)
//D Projected High Low
dtime_pf = security(tickerid, LRG2, pf)
dtime_pl = security(tickerid, LRG2, pl)
dtime_ph = security(tickerid, LRG2, ph)
plot(dtime_pl, color=dtime_pl!= dtime_pl? na: olive, title="D Low",style=line, linewidth=2, transp=0)
plot(dtime_ph, color=dtime_ph!= dtime_ph? na: olive, title="D High",style=line, linewidth=2, transp=0)
//W Projected High Low
qtime_pf = security(tickerid, LRG, pf)
qtime_pl = security(tickerid, LRG, pl)
qtime_ph = security(tickerid, LRG, ph)
plot(qtime_pl, color=qtime_pl!= qtime_pl? na: green, title="W Hig",style=line, linewidth=2, transp=0)
plot(qtime_ph, color=qtime_ph!= qtime_ph? na: red, title="W Low",style=line, linewidth=2, transp=0)