다른 차트관련 사이트에 내용이 소개되어 있길래 만들어 보았습니다. 마땅히 올릴만한 게시판이 없어서 여기다 올리니 관리자님이 판단하셔서 이동조치 해주세요. 밴드를 만들기 위해 표준오차와 r-결정계수 사용자 함수가 필요합니다. 예전에 공식을 제대로 몰라 복잡하게 만들었던 기억이 있는데 마침 엑셀 도움말을 참조하니 쉽게 풀리네요. 먼저, 사용자 함수식 2개와 밴드 지표식 1개, 보조로 사용할 결정계수 지표식 1개를 소개합니다. 1. 표준오차 사용자 함수 [ StdErr.yfu ] input: Value(numeric),Period(numeric); var: y(0),x(0),n(0); /* _______________________________________________________ / 1 [n∑xy - (∑x)(∑y)]² Sxy = / [ ------- ][n∑y²- (∑y)²- ----------------------- ] √ n(n-2) n∑x²- (∑x)² 풀어 쓰면 = sqrt(1/(n*(n-2)) * ((n*sum(y^2)) - (sum(y)^2) - (((n*sum(x*y) - sum(x)*sum(y))^2) / (n*sum(x^2) - (sum(x))^2)))); */ y = value; x = index(); n = Period; StdErr = sqrt(1/(n*(n-2)) * ((n*accumN(y^2,n)) - (accumN(y,n)^2) - (((n*accumN(x*y,n) - accumN(x,n)*accumN(y,n))^2) / (n*accumN(x^2,n) - (accumN(x,n))^2)))); 2. r-결정계수 사용자 함수 [ RSQR.yfu ] input: Value(numeric),Period(numeric); var: y(0),x(0),n(0); /* 피어슨 곱 모멘트 상관 계수 r n(∑xy) - (∑x)(∑y) r = --------------------------------------- _____________________________________ √ [n∑x²- (∑x)²][n∑y²- (∑y)²] RSQR는 이 상관 계수의 제곱인 r² 풀어 쓰면 = ((n*sum(x*y) - (sum(x)*sum(y))) / sqrt((n*sum(x^2)-(sum(x)^2)) * (n*sum(y^2) - (sum(y)^2))))^2 */ y = value; x = index(); n = Period; RSQR = ((n*accumN(x*y,n) - (accumN(x,n)*accumN(y,n))) / sqrt((n*accumN(x^2,n)-(accumN(x,n)^2)) * (n*accumN(y^2,n) - (accumN(y,n)^2))))^2; 3. 표준오차밴드 지표식 [ Standard Error Bands.yin ] input: p(21); var: LR(0), SE(0), usb(0), lsb(0), msb(0); LR = LRS(c,p) * i + ma(c,p) - LRS(c,p) * ma(i,p); SE = StdErr(c,p); usb = ma(lr + 2 * se,3); lsb = ma(lr - 2 * se,3); msb = (usb + lsb)/2; Plot1(usb, "upperstderrband", Green); Plot2(lsb, "lowerstderrband", Red); Plot3(msb, "midstderrband", Black); plot4(ma(c,34)); 4. 결정계수 지표식 [ r-Squared.yin ] input:period(21); if period <= 5 then var1 = 0.77; else if period <= 10 then var1 = 0.40; else if period <= 14 then var1 = 0.27; else if period <= 20 then var1 = 0.20; else if period <= 25 then var1 = 0.16; else if period <= 30 then var1 = 0.13; else if period <= 50 then var1 = 0.08; else if period <= 60 then var1 = 0.06; else if period <= 120 then var1 = 0.03; Plot1(RSQR(c,period),"결정계수"); Plot2(var1,"95%유의수준"); 사용법은 볼린저밴드와 유사합니다. 밴드폭이 작아지면 추세가 강해지고 폭이 넓어지면 추세가 약해져서 추세전환이 됩니다. 결정계수 지표와 같이 사용하는데 결정계수 수치가 높아지면 추세가 강한 것이고 95% 유의수준선 밑으로 내려가면 추세가 없음을 나타냅니다.