커뮤니티
문의드립니다.
2020-02-21 15:47:54
332
글번호 136219
study(title="VL", shorttitle="VB", overlay=true)
src=close
l =input(6, title="VMA Length")
std=input(false, title="Show Trend Direction")
bc=input(false, title="Color bars based on Trend")
k = 1.0/l
pdm = max((src - src[1]), 0)
mdm = max((src[1] - src), 0)
pdmS = ((1 - k)*nz(pdmS[1]) + k*pdm)
mdmS = ((1 - k)*nz(mdmS[1]) + k*mdm)
s = pdmS + mdmS
pdi = pdmS/s
mdi = mdmS/s
pdiS = ((1 - k)*nz(pdiS[1]) + k*pdi)
mdiS = ((1 - k)*nz(mdiS[1]) + k*mdi)
d = abs(pdiS - mdiS)
s1 = pdiS + mdiS
iS = ((1 - k)*nz(iS[1]) + k*d/s1)
hhv = highest(iS, l)
llv = lowest(iS, l)
d1 = hhv - llv
vI = (iS - llv)/d1
vma = (1 - k*vI)*nz(vma[1]) + k*vI*src
vmaC=(vma > vma[1]) ? green : (vma<vma[1]) ? red : (vma==vma[1]) ? blue : black
plot(vma, color=std?vmaC:black, linewidth=3, title="VMA")
barcolor(bc?vmaC:na)
감사합니다.
답변 1
예스스탁 예스스탁 답변
2020-02-21 17:38:55
안녕하세요
예스스탁입니다.
1 지표식
input : ll(6),stds(false),bc(false);
var : src(0),k(0),pdm(0),mdm(0),pdms(0),mdms(0);
var : s(0),pdi(0),mdi(0),pdis(0),mdis(0),dd(0);
var : s1(0),iss(0),hhv(0),llv(0),d1(0),vi(0),vma(0),vmac(0);
src=close;
k = 1.0/ll;
if CurrentBar >= 1 then
{
pdm = max((src - src[1]), 0);
mdm = max((src[1] - src), 0);
pdmS = ((1 - k)*pdmS[1] + k*pdm);
mdmS = ((1 - k)*mdmS[1] + k*mdm);
s = pdmS + mdmS;
pdi = pdmS/s;
mdi = mdmS/s;
pdiS = ((1 - k)*pdiS[1] + k*pdi);
mdiS = ((1 - k)*mdiS[1] + k*mdi);
dd = abs(pdiS - mdiS);
s1 = pdiS + mdiS;
iss = ((1 - k)*iss[1] + k*dd/s1);
hhv = highest(iss, ll) ;
llv = lowest(iss, ll) ;
d1 = hhv - llv;
vI = (iss - llv)/d1;
vma = (1 - k*vI)*vma[1] + k*vI*src;
vmaC = iff(vma > vma[1],green ,iff(vma<vma[1], red , iff(vma==vma[1], blue, black))) ;
plot1(vma,"VMA",iff(stds,vmaC,black));
#barcolor(bc?vmaC:na);
}
2 강조식
input : ll(6),stds(false),bc(false);
var : src(0),k(0),pdm(0),mdm(0),pdms(0),mdms(0);
var : s(0),pdi(0),mdi(0),pdis(0),mdis(0),dd(0);
var : s1(0),iss(0),hhv(0),llv(0),d1(0),vi(0),vma(0),vmac(0);
src=close;
k = 1.0/ll;
if CurrentBar >= 1 then
{
pdm = max((src - src[1]), 0);
mdm = max((src[1] - src), 0);
pdmS = ((1 - k)*pdmS[1] + k*pdm);
mdmS = ((1 - k)*mdmS[1] + k*mdm);
s = pdmS + mdmS;
pdi = pdmS/s;
mdi = mdmS/s;
pdiS = ((1 - k)*pdiS[1] + k*pdi);
mdiS = ((1 - k)*mdiS[1] + k*mdi);
dd = abs(pdiS - mdiS);
s1 = pdiS + mdiS;
iss = ((1 - k)*iss[1] + k*dd/s1);
hhv = highest(iss, ll) ;
llv = lowest(iss, ll) ;
d1 = hhv - llv;
vI = (iss - llv)/d1;
vma = (1 - k*vI)*vma[1] + k*vI*src;
vmaC = iff(vma > vma[1],green ,iff(vma<vma[1], red , iff(vma==vma[1], blue, black))) ;
#barcolor(bc?vmaC:na);
if bc == true then
PlotPaintBar(H,L,"강조",vmaC);
}
즐거운 하루되세요
> thegin 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> study(title="VL", shorttitle="VB", overlay=true)
src=close
l =input(6, title="VMA Length")
std=input(false, title="Show Trend Direction")
bc=input(false, title="Color bars based on Trend")
k = 1.0/l
pdm = max((src - src[1]), 0)
mdm = max((src[1] - src), 0)
pdmS = ((1 - k)*nz(pdmS[1]) + k*pdm)
mdmS = ((1 - k)*nz(mdmS[1]) + k*mdm)
s = pdmS + mdmS
pdi = pdmS/s
mdi = mdmS/s
pdiS = ((1 - k)*nz(pdiS[1]) + k*pdi)
mdiS = ((1 - k)*nz(mdiS[1]) + k*mdi)
d = abs(pdiS - mdiS)
s1 = pdiS + mdiS
iS = ((1 - k)*nz(iS[1]) + k*d/s1)
hhv = highest(iS, l)
llv = lowest(iS, l)
d1 = hhv - llv
vI = (iS - llv)/d1
vma = (1 - k*vI)*nz(vma[1]) + k*vI*src
vmaC=(vma > vma[1]) ? green : (vma<vma[1]) ? red : (vma==vma[1]) ? blue : black
plot(vma, color=std?vmaC:black, linewidth=3, title="VMA")
barcolor(bc?vmaC:na)
감사합니다.