커뮤니티
문의드립니다.
2021-04-26 00:59:37
963
글번호 148368
안녕하세요
예스랭귀지로 변환 문의드릴 수 있을까요
항상 도움 주셔서 감사드립니다
length = input(20, title="BB Length")
mult = input(2.0, title="BB MultFactor")
length2 = input(20, title="HMA Length")
source = input(open, title="Source")
lengthKC = input(20, title="KC Length")
multKC = input(1.5, title="KC MultFactor")
useTrueRange = input(true, title="Use TrueRange (KC)", type=input.bool)
// Calculate HMA
hullma = wma(2 * wma(source, length / 2) - wma(source, length), round(sqrt(length)))
// Calculate BB
basis = hullma
dev = mult * stdev(source, length)
upperBB = basis + dev
lowerBB = basis - dev
// Calculate KC
range = useTrueRange ? tr : high - low
rangema = wma(2 * wma(range, lengthKC / 2) - wma(range, lengthKC), round(sqrt(lengthKC)))
upperKC = hullma + rangema * multKC
lowerKC = hullma - rangema * multKC
sqzOn = lowerBB > lowerKC and upperBB < upperKC
sqzOff = lowerBB < lowerKC and upperBB > upperKC
noSqz = sqzOn == false and sqzOff == false
val = linreg(source - avg(avg(highest(high, lengthKC), lowest(low, lengthKC)), hma(close, lengthKC)), lengthKC, 0)
bcolor = iff(val > 0, iff(val > nz(val[1]), color.lime, color.green), iff(val < nz(val[1]), color.red, color.maroon))
scolor = noSqz ? color.blue : sqzOn ? color.black : color.gray
plot(val, color=bcolor, style=plot.style_histogram, linewidth=4)
plot(0, color=scolor, style=plot.style_cross, linewidth=2)
답변 1
예스스탁 예스스탁 답변
2021-04-26 13:31:36
안녕하세요
예스스탁입니다.
input : length(20),mult(2.0),length2(20),lengthKC(20),multKC(1.5);
var : source(0),hullma(0),basis(0),dev(0),upperBB(0),lowerBB(0),Range(0);
var : rangema(0),upperKC(0),lowerKC(0),sqzOn(False),sqzOff(False),noSqz(False);
var : val(0),hullma1(0),bcolor(0),scolor(0);
source = open;
hullma = wma(2 * wma(source, length / 2) - wma(source, length), round(sqrt(length),0));
basis = hullma;
dev = mult * std(source, length);
upperBB = basis + dev;
lowerBB = basis - dev;
range = TrueRange;
rangema = wma(2 * wma(range, lengthKC / 2) - wma(range, lengthKC), round(sqrt(lengthKC),0));
upperKC = hullma + rangema * multKC;
lowerKC = hullma - rangema * multKC;
sqzOn = lowerBB > lowerKC and upperBB < upperKC;
sqzOff = lowerBB < lowerKC and upperBB > upperKC;
noSqz = sqzOn == false and sqzOff == false;
hullma1 = wma(2 * wma(c, lengthKC / 2) - wma(c, lengthKC), round(sqrt(lengthKC),0));
val = LRL(source - avg(avg(highest(high, lengthKC), lowest(low, lengthKC)),hullma1), lengthKC);
bcolor = iff(val > 0, iff(val > val[1], blue, green), iff(val < val[1], red, CYAN));
scolor = iff(noSqz , blue , iff(sqzOn ,black,gray));
plot1(val,"val",bcolor);
plot2(0,"0",scolor);
즐거운 하루되세요
> 물고기 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 안녕하세요
예스랭귀지로 변환 문의드릴 수 있을까요
항상 도움 주셔서 감사드립니다
length = input(20, title="BB Length")
mult = input(2.0, title="BB MultFactor")
length2 = input(20, title="HMA Length")
source = input(open, title="Source")
lengthKC = input(20, title="KC Length")
multKC = input(1.5, title="KC MultFactor")
useTrueRange = input(true, title="Use TrueRange (KC)", type=input.bool)
// Calculate HMA
hullma = wma(2 * wma(source, length / 2) - wma(source, length), round(sqrt(length)))
// Calculate BB
basis = hullma
dev = mult * stdev(source, length)
upperBB = basis + dev
lowerBB = basis - dev
// Calculate KC
range = useTrueRange ? tr : high - low
rangema = wma(2 * wma(range, lengthKC / 2) - wma(range, lengthKC), round(sqrt(lengthKC)))
upperKC = hullma + rangema * multKC
lowerKC = hullma - rangema * multKC
sqzOn = lowerBB > lowerKC and upperBB < upperKC
sqzOff = lowerBB < lowerKC and upperBB > upperKC
noSqz = sqzOn == false and sqzOff == false
val = linreg(source - avg(avg(highest(high, lengthKC), lowest(low, lengthKC)), hma(close, lengthKC)), lengthKC, 0)
bcolor = iff(val > 0, iff(val > nz(val[1]), color.lime, color.green), iff(val < nz(val[1]), color.red, color.maroon))
scolor = noSqz ? color.blue : sqzOn ? color.black : color.gray
plot(val, color=bcolor, style=plot.style_histogram, linewidth=4)
plot(0, color=scolor, style=plot.style_cross, linewidth=2)
다음글
이전글