58 0 9
test version, use at your own risk as the study code is very ineficient
Remove from Favorite Scripts Add to Favorite Scripts
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)


United States
United Kingdom
India
Deutschland
France
España
Italia
Polska
Türkiye
Россия
Brasil
Indonesia
Malaysia
ประเทศไทย
Việt Nam
日本
한국
简体
繁體
Home Stock Screener Forex Signal Finder Cryptocurrency Signal Finder Economic Calendar How It Works Chart Features House Rules Moderators Website & Broker Solutions Widgets Stock Charting Library Feature Request Blog & News FAQ Help & Wiki Twitter
Profile Profile Settings Account and Billing My Support Tickets Contact Support Ideas Published Followers Following Private Messages Chat Sign Out