커뮤니티
문의드립니다.
2021-11-16 11:29:45
631
글번호 153633
안녕하세요
예스랭귀지로 변환 부탁드려도 될까요?
감사드립니다
study("Sell / Buy Rates", overlay = false, precision = 0)
prd = input(title="Period", defval = 34, minval = 1)
tw = high - max(open, close)
bw = min(open, close) - low
body = abs(close - open)
_rate(cond) => 0.5 * (tw + bw + (cond ? 2 * body : 0)) / (tw + bw + body)
volup = volume * _rate(open <= close)
voldown = volume * _rate(open >= close)
rate = linreg(volup - voldown, prd, 0)
col = rate > 0 ? (falling(rate, 5) ? green : lime) : rate < 0 ? rising(rate, 5) ? maroon : red : na
plot(rate, color = col, style = columns)
답변 1
예스스탁 예스스탁 답변
2021-11-16 16:35:51
안녕하세요
예스스탁입니다.
input : prd(34);
var : tw(0),bw(0),body(0),R1(0),R2(0),volup(0),voldown(0),rate(0),col(0);
tw = high - max(open, close);
bw = min(open, close) - low ;
body = abs(close - open);
R1 = 0.5 * (tw + bw + IFf(open <= close , 2 * body , 0)) / (tw + bw + body) ;
R2 = 0.5 * (tw + bw + IFf(open >= close , 2 * body , 0)) / (tw + bw + body) ;
volup = volume * R1;
voldown = volume * R2;
rate = LRL(volup - voldown, prd);
col = IFf(rate > 0,IFf(rate > rate[1],RED,MAGENTA),IFf(rate < rate[1],BLUE,CYAN));
Plot1(rate,"rates",col);
PlotBaseLine1(0);
즐거운 하루되세요
> 로즈버드 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 안녕하세요
예스랭귀지로 변환 부탁드려도 될까요?
감사드립니다
study("Sell / Buy Rates", overlay = false, precision = 0)
prd = input(title="Period", defval = 34, minval = 1)
tw = high - max(open, close)
bw = min(open, close) - low
body = abs(close - open)
_rate(cond) => 0.5 * (tw + bw + (cond ? 2 * body : 0)) / (tw + bw + body)
volup = volume * _rate(open <= close)
voldown = volume * _rate(open >= close)
rate = linreg(volup - voldown, prd, 0)
col = rate > 0 ? (falling(rate, 5) ? green : lime) : rate < 0 ? rising(rate, 5) ? maroon : red : na
plot(rate, color = col, style = columns)