[번] 임펄스 지표 (Impulse Indicator)

BBImpulse 는 존 볼린저가 제시한 최신 지표 패키지의 일부입니다
- 마케팅 안내문에서 뽑은 내용 (www.bbforex.com/tutorial/?p=4): "BBImpulse 는 %b 로부터 나왔습니다. 그 값은 %b 의 주기적 변화입니다. 따라서 만일 %b 가 이번 기간에 0.45 이고 마지막 기간에 0.20 이라면 현재 BBImpulse 값은 0.25 입니다. 차트위에 두개의 참조 레벨, 얼러트 레벨, 그리고 임펄스 레벨을 그려 놓았습니다."


"일반적으로 마켓은 끝부분을 빼고 보면 가장 최근 얼러트 내지 임펄스방향으로 움직이는데, 이 끝부분에서 이 지표의 이그조스쳔/리버설 시그널(exhaustion/reversal signals) 잇점을 취할 수 있습니다."

"이안 우드워드는 자신의 카후나 시그널에 BBImpulse 를 키 레벨 0.24 와 0.40 으로 쓰고 있습니다."

다음 기능을 더했습니다:
- 얼러트/임펄스 트리거 바를 하이라이트 표시
- 레인지 색 채우기 (옵션 페이지에 나옴)

레인지 그 자체로 많은 정보를 하이라이트하고 있습니다:
- 레인지가 좁아지면 가격이 탑을 찍었거나 떨어진다는 신호입니다.
- 레인지가 넓어지면 가격이 바닥을 찍었거나 오른다는 신호입니다.
- 얼러트와 임펄스 레벨 사이는 마지막 임펄스 트리거 방향으로의 중요한 움직임 신호가 됩니다. 이 경우, 내 생각엔 얼러트 레벨 레인지 강도가 임펄스 레벨 레인지 강도보다 더 큽니다.

BB 에 대해 잘 아는 분은 좀 더 많은 관찰과 분석을 하실 수 있을 겁니다. 그런 분들은 여기에서 BB 초짜도 배울 수 있도록 함께 나누면 좋겠습니다 :)

아래에서 내 전체 지표 리스트를 체크해 보시기 바랍니다:

소스 코드도 참고로 적습니다
//
// @author LazyBear
// List of all my indicators: //
study(title = "Bollinger Bands Impulse ", shorttitle = "BBIMP_LB")
source = close
length = input(20, minval=1)
mult = input(2.0, title="Mult Factor", minval=0.001, maxval=50)
alertLevel=input(0.24)
impulseLevel=input(0.40)
showRange = input(false, type=bool)
// Calc BB
basis = sma(source, length)
dev = mult * stdev(source, length)
upper = basis + dev
lower = basis - dev
// Calc Impulse
bbr = (source - lower)/(upper - lower)
bbi = bbr - nz(bbr)
bbc = iff(bbi>0,
iff(bbi>alertLevel and bbi<impulseLevel, lime, iff(bbi>impulseLevel, orange, aqua)),
iff(bbi<-alertLevel and bbi>-impulseLevel, red, iff(bbi<-impulseLevel, orange, aqua))
)
// Plot Ian Woodward's suggested Reference Levels
plot(0, color=gray, title="MidLine", style=3)
plot( impulseLevel, color=gray, style=line, linewidth=1, title="Impulse+")
plot( alertLevel, color=gray, style=3, linewidth=1, title="Alert+")
plot( -alertLevel, color=gray, style=3, linewidth=1, title="Alert-")
plot( -impulseLevel, color=gray, style=line, linewidth=1, title="Impulse-")
plot(showRange ? bbr : na, color=gray, style=area, title="Range+", linewidth=0, transp=80)
plot(showRange ? -bbr : na, color=gray, style=area, title="Range-", linewidth=0, transp=80)
plot(bbi, color=bbc, style=histogram, linewidth=2)