Rank: Advanced Member
Groups: Registered, Registered Users
Joined: 1/19/2005(UTC)
Posts: 1,065
Location: Koh Pha-Ngan, Earth
Was thanked: 2 time(s) in 2 post(s)
|
MetaStock -> Tools -> Indicator Builder -> New
Copy and paste formula below.
[code:1:634d49a949]
=========================
Keltner & Bollinger Bands
=========================
---8<---------------------------
{ ©Copyright 2004~2005 Jose Silva }
{ For personal use only }
{ http://www.metastocktools.com }
{ User inputs }
pds:=Input("Keltner/Bollinger Bands periods",
1,252,10);
spread:=Input("Keltner Bands % spread",
0,1000,100)/100;
dev:=Input("Bollinger Bands deviation",
.001,10,1);
plot:=Input("[1]Keltner, [2]Bollinger, [3]Keltner+Bollinger",1,3,1);
{ Keltner bands }
KBmid:=Mov(Typ(),pds,S);
KBtop:=KBmid+Mov(H-L,pds,S);
KBtopDiff:=(KBtop-KBmid)*spread;
KBtop:=KBmid+KBtopDiff;
KBbot:=KBmid-Mov(H-L,pds,S);
KBbotDiff:=(KBbot-KBmid)*spread;
KBbot:=KBmid+KBbotDiff;
KBwidth:=KBtop-KBbot;
KBwidthAvg:=Cum(KBwidth)/Cum(KBwidth>-1);
{ Bollinger bands }
BBtop:=BBandTop(C,pds,S,dev);
BBmid:=Mov(C,pds,S);
BBbot:=BBandBot(C,pds,S,dev);
{ Plot on price chart }
If(plot=1,KBtop,BBtop);
If(plot=1,KBmid,If(plot=2,BBmid,KBtop));
If(plot=1,KBbot,BBbot);
If(plot=1,KBbot,If(plot=2,BBbot,KBbot))
---8<---------------------------
[/code:1:634d49a949]
jose '-)
http://www.metastocktools.com
|
