안녕하세요 예스스탁입니다. input : length(16); var : src(0),k(0),pdm(0),mdm(0),pdms(0),mdms(0); var : s(0),pdi(0),mdi(0),pdis(0),mdis(0),d(0),s1(0); var : is(0),hhv(0),llv(0),d1(0),vi(0),vma(0); src = close; k = 1.0/length; 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); d = abs(pdiS - mdiS); s1 = pdiS + mdiS; iS = ((1 - k)*iS[1] + k*d/s1); hhv = highest(iS, length); llv = lowest(iS, length); d1 = hhv - llv; vI = (iS - llv)/d1; vma = (1 - k*vI)*vma[1] + k*vI*src; plot1(vma); } 즐거운 하루되세요 > 뉴스타트 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요 수식에 사용된 함수(nz)의 설명은 아래에 첨부했습니다. 예스함수와 지표식 각각 요청드립니다. src=close l =input(16) 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 plot(vma) ----------------------------------------------------- nz (Built-in function) //함수설명 Replaces NaN values with zeros (or given value) in a series. Syntax nz(x,y) - integer nz(x,y) - float nz(x,y) - color nz(x,y) - bool nz(x,y) - series[integer] nz(x,y) - series[bool] nz(x,y) - series[color] nz(x,y) - series nz(x) - color nz(x) - bool nz(x) - integer nz(x) - float nz(x) - series[integer] nz(x) - series[bool] nz(x) - series[color] nz(x) - series Returns Two args version: returns x if it`s a valid (not NaN) number,otherwise y One arg version: returns x if it`s a valid (not NaN) number,otherwise 0