답변완료
도움 요청 드립니다.
아래 지표를 트레이딩뷰에서 찾았는데요,
예트로 변환하고 싶어서 말씀올립니다.
항상 감사드립니다~
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
888
글번호 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
765
글번호 168335
지표
답변완료
수식 문의
아래의 mt4 수식을 예스로직으로 변환하고 싶습니다.
변환이 안되면 안되는 부분과 이유를 말씀해 주시면
다시 찾아 보겠습니다.
완연한 봄입니다. 건강 잘 챙기시고
항상 감사하다는 말씀 드립니다.
=======================================
//Channel Indicator
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
//Indicator parameters
extern int period = 20; //Period for calculating the highest high and lowest low
extern double multiplier = 2.0; //Multiplier to determine the channel width
//Indicator buffers
double upperBand[];
double lowerBand[];
//Indicator calculation function
int init() {
SetIndexBuffer(0, upperBand);
SetIndexBuffer(1, lowerBand);
SetIndexStyle(0, DRAW_LINE);
SetIndexStyle(1, DRAW_LINE);
SetIndexLabel(0, "CapChannel Upper");
SetIndexLabel(1, "CapChannel Lower");
IndicatorShortName("CapChannel");
return(INIT_SUCCEEDED);
}
int start() {
int limit;
double highestHigh, lowestLow, range;
for (int i = 0; i < Bars - period; i++) {
highestHigh = High[iHighest(NULL, 0, MODE_HIGH, period, i)];
lowestLow = Low[iLowest(NULL, 0, MODE_LOW, period, i)];
range = (highestHigh - lowestLow) * multiplier / 100.0;
upperBand[i] = highestHigh + range;
lowerBand[i] = lowestLow - range;
}
return(0);
}
======================================
코드는 계산된 채널의 상한 및 하한 경계를 저장하는 데 사용되는 두 개의 버퍼 "upperBand" 및 "lowerBand"를 정의합니다. "주기" 및 "승수" 입력 매개변수는 사용자가 지표 설정을 사용자 정의하기 위해 조정할 수 있습니다.
"start()" 함수에서 지표는 내장된 iHighest() 및 iLowest() 함수를 사용하여 지정된 기간 동안 최고가 및 최저가를 계산합니다. 그런 다음 사용자 정의 승수를 기준으로 채널 폭을 계산하고 그에 따라 상한 및 하한을 설정합니다.
지표는 SetIndexBuffer(), SetIndexStyle() 및 SetIndexLabel() 함수를 사용하여 지표 버퍼를 정의하고 차트에서 지표의 모양을 사용자 정의합니다. 마지막으로 IndicatorShortName() 함수는 표시기에 사용자에게 친숙한 이름을 지정하는 데 사용됩니다.
2023-04-19
977
글번호 168322
지표