testTN — Indicator by RicardoSantos

alpha
test version, use at your own risk as the study code is very ineficient
Open-source script
In true TradingView spirit, the author of this script has published it open-source, so traders can understand and verify it. Cheers to the author! You may use it for free, but reuse of this code in a publication is governed by House Rules. You can favorite it to use it on a chart.
Disclaimer
The information and publications are not meant to be, and do not constitute, financial, investment, trading, or other types of advice or recommendations supplied or endorsed by TradingView. Read more in the Terms of Use.
Want to use this script on a chart?
study(title="exp", shorttitle="exp", overlay=true)

length00 = input(24)
src = sma(ohlc4, length00)

lo = lowest(low, length00)
hi = highest(high, length00)
//	||---------------------------------------------------------------------------------------------------||
//  ||---   Absolute High and Low	---------------------------------------------------------------------||
hhi = hi > hhi[1] ? hi : nz(hhi[1])
llo = 0 //lo < llo[1] ? lo : nz(llo[1] == 0 ? lo/2 : llo[1])

//	||---------------------------------------------------------------------------------------------------||
//  ||---   split sections based on time frame   --------------------------------------------------------||
//  ||---   Function to calculate section:
csection(base, perv, multi) => base + (perv * multi)
//	||---------------------------------------------------------------------------------------------------||
//  ||---   Function to draw only straight lines    -----------------------------------------------------||
cl(l1, l2, col) => l1 == l2 ? col : na

//	||---------------------------------------------------------------------------------------------------||
//  ||---   Section Percentual value:   -----------------------------------------------------------------||
//  ||---   Monthly, weekly, dayly...   -----------------------------------------------------------------||
m_perv = (hhi - llo) * 0.01
w_perv = m_perv * 0.1
d_perv = w_perv * 0.1

//	||---------------------------------------------------------------------------------------------------||
//  ||---   Monthly section lines:  ---------------------------------------------------------------------||

secm00 = llo
secm01 = csection(llo, m_perv, 10)
secm02 = csection(llo, m_perv, 20)
secm03 = csection(llo, m_perv, 30)
secm04 = csection(llo, m_perv, 40)
secm05 = csection(llo, m_perv, 50)
secm06 = csection(llo, m_perv, 60)
secm07 = csection(llo, m_perv, 70)
secm08 = csection(llo, m_perv, 80)
secm09 = csection(llo, m_perv, 90)
secm10 = hhi

mp00 = src >= secm00 and src <= secm01 ? secm00 : nz(mp00[1])
mp01 = src >= secm01 and src <= secm02 ? secm01 : nz(mp01[1])
mp02 = src >= secm02 and src <= secm03 ? secm02 : nz(mp02[1])
mp03 = src >= secm03 and src <= secm04 ? secm03 : nz(mp03[1])
mp04 = src >= secm04 and src <= secm05 ? secm04 : nz(mp04[1])
mp05 = src >= secm05 and src <= secm06 ? secm05 : nz(mp05[1])
mp06 = src >= secm06 and src <= secm07 ? secm06 : nz(mp06[1])
mp07 = src >= secm07 and src <= secm08 ? secm07 : nz(mp07[1])
mp08 = src >= secm08 and src <= secm09 ? secm08 : nz(mp08[1])
mp09 = src >= secm09 and src <= secm10 ? secm09 : nz(mp09[1])
mp10 = src >= secm09 and src <= secm10 ? secm10 : nz(mp10[1])

//	||---------------------------------------------------------------------------------------------------||
//  ||---   Weekly section lines:   ---------------------------------------------------------------------||
secw00 = src >= secm00 and src <= secm01 ? secm00 :
        src >= secm01 and src <= secm02 ? secm01 :
        src >= secm02 and src <= secm03 ? secm02 :
        src >= secm03 and src <= secm04 ? secm03 :
        src >= secm04 and src <= secm05 ? secm04 :
        src >= secm05 and src <= secm06 ? secm05 :
        src >= secm06 and src <= secm07 ? secm06 :
        src >= secm07 and src <= secm08 ? secm07 :
        src >= secm08 and src <= secm09 ? secm08 :
        src >= secm09 and src <= secm10 ? secm09 : secm00
        
secw10 = src >= secm00 and src <= secm01 ? secm01 :
        src >= secm01 and src <= secm02 ? secm02 :
        src >= secm02 and src <= secm03 ? secm03 :
        src >= secm03 and src <= secm04 ? secm04 :
        src >= secm04 and src <= secm05 ? secm05 :
        src >= secm05 and src <= secm06 ? secm06 :
        src >= secm06 and src <= secm07 ? secm07 :
        src >= secm07 and src <= secm08 ? secm08 :
        src >= secm08 and src <= secm09 ? secm09 :
        src >= secm09 and src <= secm10 ? secm10 : secm10

secw01 = csection(secw00, w_perv, 10)
secw02 = csection(secw00, w_perv, 20)
secw03 = csection(secw00, w_perv, 30)
secw04 = csection(secw00, w_perv, 40)
secw05 = csection(secw00, w_perv, 50)
secw06 = csection(secw00, w_perv, 60)
secw07 = csection(secw00, w_perv, 70)
secw08 = csection(secw00, w_perv, 80)
secw09 = csection(secw00, w_perv, 90)

wp00 = src >= secw00 and src <= secw01 ? secw00 : nz(wp00[1])
wp01 = src >= secw01 and src <= secw02 ? secw01 : nz(wp01[1])
wp02 = src >= secw02 and src <= secw03 ? secw02 : nz(wp02[1])
wp03 = src >= secw03 and src <= secw04 ? secw03 : nz(wp03[1])
wp04 = src >= secw04 and src <= secw05 ? secw04 : nz(wp04[1])
wp05 = src >= secw05 and src <= secw06 ? secw05 : nz(wp05[1])
wp06 = src >= secw06 and src <= secw07 ? secw06 : nz(wp06[1])
wp07 = src >= secw07 and src <= secw08 ? secw07 : nz(wp07[1])
wp08 = src >= secw08 and src <= secw09 ? secw08 : nz(wp08[1])
wp09 = src >= secw09 and src <= secw10 ? secw09 : nz(wp09[1])
wp10 = src >= secw09 and src <= secw10 ? secw10 : nz(wp10[1])

//	||---------------------------------------------------------------------------------------------------||
//  ||---   Dayly section lines:    ---------------------------------------------------------------------||
secd00 = src >= secw00 and src <= secw01 ? secw00 :
        src >= secw01 and src <= secw02 ? secw01 :
        src >= secw02 and src <= secw03 ? secw02 :
        src >= secw03 and src <= secw04 ? secw03 :
        src >= secw04 and src <= secw05 ? secw04 :
        src >= secw05 and src <= secw06 ? secw05 :
        src >= secw06 and src <= secw07 ? secw06 :
        src >= secw07 and src <= secw08 ? secw07 :
        src >= secw08 and src <= secw09 ? secw08 :
        src >= secw09 and src <= secw10 ? secw09 : secw00
        
secd10 = src >= secw00 and src <= secw01 ? secw01 :
        src >= secw01 and src <= secw02 ? secw02 :
        src >= secw02 and src <= secw03 ? secw03 :
        src >= secw03 and src <= secw04 ? secw04 :
        src >= secw04 and src <= secw05 ? secw05 :
        src >= secw05 and src <= secw06 ? secw06 :
        src >= secw06 and src <= secw07 ? secw07 :
        src >= secw07 and src <= secw08 ? secw08 :
        src >= secw08 and src <= secw09 ? secw09 :
        src >= secw09 and src <= secw10 ? secw10 : secw10

secd01 = csection(secd00, d_perv, 10)
secd02 = csection(secd00, d_perv, 20)
secd03 = csection(secd00, d_perv, 30)
secd04 = csection(secd00, d_perv, 40)
secd05 = csection(secd00, d_perv, 50)
secd06 = csection(secd00, d_perv, 60)
secd07 = csection(secd00, d_perv, 70)
secd08 = csection(secd00, d_perv, 80)
secd09 = csection(secd00, d_perv, 90)

dp00 = src >= secd00 and src <= secd01 ? secd00 : nz(dp00[1])
dp01 = src >= secd01 and src <= secd02 ? secd01 : nz(dp01[1])
dp02 = src >= secd02 and src <= secd03 ? secd02 : nz(dp02[1])
dp03 = src >= secd03 and src <= secd04 ? secd03 : nz(dp03[1])
dp04 = src >= secd04 and src <= secd05 ? secd04 : nz(dp04[1])
dp05 = src >= secd05 and src <= secd06 ? secd05 : nz(dp05[1])
dp06 = src >= secd06 and src <= secd07 ? secd06 : nz(dp06[1])
dp07 = src >= secd07 and src <= secd08 ? secd07 : nz(dp07[1])
dp08 = src >= secd08 and src <= secd09 ? secd08 : nz(dp08[1])
dp09 = src >= secd09 and src <= secd10 ? secd09 : nz(dp09[1])
dp10 = src >= secd09 and src <= secd10 ? secd10 : nz(dp10[1])

//	||---------------------------------------------------------------------------------------------------||
//  ||---   Select Lines based on time frame:   ---------------------------------------------------------||
l00 =   period == "M" ? mp00 :
		period == "W" ? wp00 :
		period == "D" ? dp00 : dp00
l01 =   period == "M" ? mp01 :
		period == "W" ? wp01 :
		period == "D" ? dp01 : dp01
l02 =   period == "M" ? mp02 :
		period == "W" ? wp02 :
		period == "D" ? dp02 : dp02
l03 =   period == "M" ? mp03 :
		period == "W" ? wp03 :
		period == "D" ? dp03 : dp03
l04 =   period == "M" ? mp04 :
		period == "W" ? wp04 :
		period == "D" ? dp04 : dp04
l05 =   period == "M" ? mp05 :
		period == "W" ? wp05 :
		period == "D" ? dp05 : dp05
l06 =   period == "M" ? mp06 :
		period == "W" ? wp06 :
		period == "D" ? dp06 : dp06
l07 =   period == "M" ? mp07 :
		period == "W" ? wp07 :
		period == "D" ? dp07 : dp07
l08 =   period == "M" ? mp08 :
		period == "W" ? wp08 :
		period == "D" ? dp08 : dp08
l09 =   period == "M" ? mp09 :
		period == "W" ? wp09 :
		period == "D" ? dp09 : dp09
l10 =   period == "M" ? mp10 :
		period == "W" ? wp10 :
		period == "D" ? dp10 : dp10

//	||---------------------------------------------------------------------------------------------------||
//	||---	Output:		---------------------------------------------------------------------------------||
plot(l00, color=cl(l00, l00[1], black), linewidth=2)
plot(l01, color=cl(l01, l01[1], black), linewidth=1)
plot(l02, color=cl(l02, l02[1], black), linewidth=1)
plot(l03, color=cl(l03, l03[1], black), linewidth=1)
plot(l04, color=cl(l04, l04[1], black), linewidth=1)
plot(l05, color=cl(l05, l05[1], black), linewidth=1)
plot(l06, color=cl(l06, l06[1], black), linewidth=1)
plot(l07, color=cl(l07, l07[1], black), linewidth=1)
plot(l08, color=cl(l08, l08[1], black), linewidth=1)
plot(l09, color=cl(l09, l09[1], black), linewidth=1)
plot(l10, color=cl(l10, l10[1], black), linewidth=2)