답변완료
도움 요청 드립니다.
아래 지표를 트레이딩뷰에서 찾았는데요,
예트로 변환하고 싶어서 말씀올립니다.
항상 감사드립니다~
src = input(close, title ="Source")
len = input(14, title ="Length")
oblevel = input(70, title ="OB Level", maxval = 99, minval = 1)
oslevel = input(30, title ="OS Level", maxval = 99, minval = 1)
bullz = input(60, title ="Bull Zone Level", maxval = 99, minval = 1)
bearz = input(40, title ="Bear Zone Level", maxval = 99, minval = 1)
fillbtw = input(true, title ="Fill between OB and OS lines")
showbbzone = input(false, title ="Show Bull/Bear Zones")
drawmidl = input(false, title ="Draw Midline")
emasmt = input(1, title ="EMA Smoothing", minval = 1)
my_rsi(x, len) =>
u = max(x - x[1], 0)
d = max(x[1] - x, 0)
sumu = 0.0, sumd = 0.0
sumu := (u + (len - 1) * nz(sumu[1])) / len
sumd := (d + (len - 1) * nz(sumd[1])) / len
rs = sumu / sumd
res = 100 - 100 / (1 + rs)
[res, sumu, sumd]
[Rsi, sumu, sumd] = my_rsi(close, len)
diffupob = (sumd * ((100 / (100 - oblevel)) -1 )) * len - (len - 1) * nz(sumu[1])
diffdnob = (sumu / ((100 / (100 - oblevel)) -1 )) * len - (len - 1) * nz(sumd[1])
diffupos = (sumd * ((100 / (100 - oslevel)) -1 )) * len - (len - 1) * nz(sumu[1])
diffdnos = (sumu / ((100 / (100 - oslevel)) -1 )) * len - (len - 1) * nz(sumd[1])
oblev = Rsi <= oblevel ? close + diffupob : close - diffdnob
oslev = Rsi <= oslevel ? close + diffupos : close - diffdnos
oblev := ema(oblev, emasmt)
oslev := ema(oslev, emasmt)
obl = plot(oblev, color = color.red)
osl = plot(oslev, color = color.green)
fill(obl, osl, color = fillbtw ? color.new(color.gray, 89) : color.new(color.white, 100))
plot((oblev + oslev) / 2, color = drawmidl ? color.gray : color.new(color.white, 100))
//Bull/Bear Zones
diffupblzn= (sumd * ((100 / (100 - bullz)) -1 )) * len - (len - 1) * nz(sumu[1])
diffdnblzn = (sumu / ((100 / (100 - bullz)) -1 )) * len - (len - 1) * nz(sumd[1])
diffupbrzn= (sumd * ((100 / (100 - bearz)) -1 )) * len - (len - 1) * nz(sumu[1])
diffdnbrzn = (sumu / ((100 / (100 - bearz)) -1 )) * len - (len - 1) * nz(sumd[1])
bullzone = Rsi <= bullz ? close + diffupblzn : close - diffdnblzn
bearzone = Rsi <= bearz ? close + diffupbrzn : close - diffdnbrzn
bullzone := ema(bullzone, emasmt)
bearzone := ema(bearzone, emasmt)
bullzln = plot(bullzone, color = showbbzone ? color.lime : na)
bearzln = plot(bearzone, color = showbbzone ? color.lime : na)
fill(obl, bullzln, color = bullz < oblevel and showbbzone ? color.new(color.lime, 90) : color.new(color.white, 100))
fill(osl, bearzln, color = bearz > oslevel and showbbzone ? color.new(color.red, 90) : color.new(color.white, 100))
2023-04-20
902
글번호 168336
지표
답변완료
수식 문의
안녕하세요. 아래의 수식을 예스수식으로
변환하고 싶습니다.
부탁드리겠습니다. 감사합니다.
========================================
study(title="[RS][UNTESTED]CAP Fibo Channel V2", shorttitle="[RS][UNTESTED]CFC.V2", overlay=true)
length = input(120)
Smooth = input(2), SmoothOutside = input(type=bool, defval=false)
midline = sum(avg(ohlc4,ohlc4[1]),length)/(length)//ema(ohlc4, input(6))
c = cum(close)/(1+n)
h = cum(high)/(1+n)
l = cum(low)/(1+n)
factor = avg((h-c), (c-l))// - stdev(midline, length) //<-- uncomment for psicadelic bubbling effect :p
p0 = plot(midline, color=black, linewidth=2)
//p1 = plot(midline + factor, color=black, linewidth=1, style=circles)
//p2 = plot(midline + factor * 2, color=black, linewidth=1, style=circles)
p3 = plot(ema(midline + factor * 3, SmoothOutside ? Smooth*3 : 1), color=black, linewidth=1, style=circles)
p4 = plot(ema(midline + factor * 5, SmoothOutside ? Smooth*5 : 1), color=black, linewidth=2)
p5 = plot(ema(midline + factor * 8, SmoothOutside ? Smooth*8 : 1), color=black, linewidth=1)
p6 = plot(ema(midline + factor * 13, SmoothOutside ? Smooth*13 : 1), color=black, linewidth=1, style=circles)
p7 = plot(ema(midline + factor * 21, SmoothOutside ? Smooth*21 : 1), color=black, linewidth=4)
p8 = plot(ema(midline + factor * 34, SmoothOutside ? Smooth*34 : 1), color=black, linewidth=1, style=circles)
p9 = plot(ema(midline + factor * 55, SmoothOutside ? Smooth*55 : 1), color=black, linewidth=1, style=circles)
//m1 = plot(midline - factor, color=black, linewidth=1, style=circles)
//m2 = plot(midline - factor * 2, color=black, linewidth=1, style=circles)
m3 = plot(ema(midline - factor * 3, SmoothOutside ? Smooth*3 : 1), color=black, linewidth=1, style=circles)
m4 = plot(ema(midline - factor * 5, SmoothOutside ? Smooth*5 : 1), color=black, linewidth=2)
m5 = plot(ema(midline - factor * 8, SmoothOutside ? Smooth*8 : 1), color=black, linewidth=1)
m6 = plot(ema(midline - factor * 13, SmoothOutside ? Smooth*13 : 1), color=black, linewidth=1, style=circles)
m7 = plot(ema(midline - factor * 21, SmoothOutside ? Smooth*21 : 1), color=black, linewidth=4)
m8 = plot(ema(midline - factor * 34, SmoothOutside ? Smooth*34 : 1), color=black, linewidth=1, style=circles)
m9 = plot(ema(midline - factor * 55, SmoothOutside ? Smooth*55 : 1), color=black, linewidth=1, style=circles)
fill(p3, p5, color=black, transp=80)
fill(m3, m5, color=black, transp=80)
fill(p4, p6, color=#ec8014, transp=80)
fill(m4, m7, color=#ec8014, transp=80)
fill(m4, m8, color=lime, transp=90)
fill(p4, p8, color=red, transp=90)
fill(p6,p7, color=maroon, transp=60)
fill(m6,m7, color=green, transp=60)
2023-04-20
782
글번호 168335
지표