fractalUp(pattern) => p = high[pattern+1] okl = 1 okr = 1
for i = pattern to 1
okl := iff(high[i] < high[i+1] and okl == 1 , 1, 0)
for i = pattern+2 to pattern*2+1
okr := iff(high[i] < high[i-1] and okr == 1, 1, 0)
res = iff(okl == 1 and okr == 1, p, res[1]) res fractalDn(pattern) => p = low[pattern+1] okl = 1 okr = 1
for i = pattern to 1
okl := iff(low[i] > low[i+1] and okl == 1 , 1, 0)
for i = pattern+2 to pattern*2+1
okr := iff(low[i] > low[i-1] and okr == 1, 1, 0)
res = iff(okl == 1 and okr == 1, p, res[1]) res study(title="Fractal Chaos Bands", overlay = true) Pattern = input(1, minval=1) xUpper = fractalUp(Pattern) xLower = fractalDn(Pattern) plot(xUpper, color=red, title="FCBUp") plot(xLower, color=green, title="FCBDn") |