LazyBear

Indicators: KaseCD & Kase Peak Oscillator

I have included ports of 2 indicators from MT4 (not from the original commercial source). I couldn't cross check if these matched their commercial equivalents (you need to assume they don't!). If you own any of these in other platforms, appreciate if you could publish some comparison results here.

Kase Peak Oscillator is the difference between two trend measurements, one for rising markets and the other for falling markets. KCD is the PeakOsc minus its own average. So, KPO takes the place of a traditional oscillator and the KCD takes place of the traditional MACD .

Ms .Kase claims KCD is far more accurate than MACD .

More info:
- http://www.kaseco.com/support/articles/T...
- http://beathespread.com/file/download/15...

Let me know if you have experience with the original indicators and are willing to help improve these clones. Thanks.

List of my free indicators: http://bit.ly/1LQaPK8
List of my indicators at Appstore: http://blog.tradingview.com/?p=970
สคริปต์โอเพนซอร์ซ

ด้วยจิตวิญญาณของ TradingView อย่างแท้จริง ผู้เขียนสคริปต์นี้ได้เผยแพร่เป็นโอเพนซอร์ส เพื่อให้ผู้ค้าสามารถเข้าใจและตรวจสอบได้ ไชโยให้กับผู้เขียน! คุณสามารถใช้ได้ฟรี แต่การใช้รหัสนี้ซ้ำในสิ่งพิมพ์อยู่ภายใต้กฎของบ้าน คุณสามารถตั้งเป็นรายการโปรดเพื่อใช้บนชาร์ตได้

คำจำกัดสิทธิ์ความรับผิดชอบ

ข้อมูลและบทความไม่ได้มีวัตถุประสงค์เพื่อก่อให้เกิดกิจกรรมทางการเงิน, การลงทุน, การซื้อขาย, ข้อเสนอแนะ หรือคำแนะนำประเภทอื่น ๆ ที่ให้หรือรับรองโดย TradingView อ่านเพิ่มเติมที่ เงื่อนไขการใช้บริการ

ต้องการที่จะใช้สคริปต์นี้บนชาร์ตใช่ไหม?
//
// @author LazyBear
// If you use this code, in its original or modified form, appreciate if you could
// drop me a note. Thx. 
// 
study(title="Kase Peak Oscillator [LazyBear]", shorttitle="KPO_LB")
length=input(30, title="Length")
rwh=(high-low[length])/(atr(length)*sqrt(length))
rwl=(high[length]-low)/(atr(length)*sqrt(length))
pk=wma((rwh-rwl),3)
mn=sma(pk,length)
sd=stdev(pk,length)
v1=iff(mn+(1.33*sd)>2.08,mn+(1.33*sd),2.08)
v2=iff(mn-(1.33*sd)<-1.92,mn-(1.33*sd),-1.92)
ln=iff(pk[1]>=0 and pk>0,v1,iff(pk[1]<=0 and pk<0,v2,0))
rbars=iff(pk[1]>pk,pk,0)
gbars=iff(pk>pk[1],pk,0)
plot(rbars, style=histogram, color=red)
plot(gbars, style=histogram, color=green)
plot(ln, color=yellow, linewidth=1)