=============
Daily BB Top
=============

A prerequisite for this indicator is Jose Silva's "Calendar Day
counter".
"Daily BB Top" plots a daily Bollinger Band Top signal on any
intraday chart with sufficient historical data.

---8<---------------------------

  {Daily BB Top}
  {© 2004 Roy Larsen, rlarsen@man.quik.co.nz}
  {for use on intraday charts with
   Jose Silva's "Calendar Day counter"}
N:=Input("Daily BB Top Periods",1,30,20);
D:=Input("Standard Deviations",0,9,1);
Ma:=Input("Base Average, 0=SMA 1=EMA",0,1,0);
A:=Input("Hour of Last Daily Bar"  ,0,23,16);
B:=Input("Minute of Last Daily Bar",0,59,00);
Q:=Input("Display Mode,  0=Static  1=Dynamic  2=Test",0,2,2);
  {0=Display, update at last bar of day}
  {1=Display, update on each new bar}
  {2=Backtest, update on first bar of new day}
G:=LastValue(Highest(Sum(DayOfWeek()<>
   ValueWhen(2,1,DayOfWeek()),5))=5);
I:=Fml("Calendar Day counter");
I:=Abs(I-ValueWhen(2-G,1,I)); M:=G OR I>0;
F:=G OR (Hour()=A AND Minute()=B);
A:=LastValue(Cum(1)-1)=Cum(1);
B:=LastValue(Cum(1))=Cum(1);
J:=If(F,1,If(Alert(F,2)=0 AND M,2,0));
J:=If(A+LastValue(J)>2 OR B+(Q=1)=2,1,J);
J:=If(G,1,If(Q=2 OR Cum(J)<=1,M*2,J));
K:=ValueWhen(1,J,If(J=1,C,ValueWhen(2-G,1,C)));
K:=ValueWhen(1,K>0,K); Y:=2/(N+1);
M:=(Cum(If(J,K,0))-ValueWhen(N+1,J,Cum(If(J,K,0))))/N;
Me:=If(Cum(J>0)=1,K,ValueWhen(1,J,PREV)*(1-Y)+K*Y);
N1:=LastValue((N>10)*10); N2:=LastValue((N>20)*20);
X:=Power(M-ValueWhen(1,J,K),2)+
(N>1)*Power(M-ValueWhen(2,J,K),2)+
(N>2)*Power(M-ValueWhen(3,J,K),2)+
(N>3)*Power(M-ValueWhen(4,J,K),2)+
(N>4)*Power(M-ValueWhen(5,J,K),2)+
(N>5)*Power(M-ValueWhen(6,J,K),2)+
(N>6)*Power(M-ValueWhen(7,J,K),2)+
(N>7)*Power(M-ValueWhen(8,J,K),2)+
(N>8)*Power(M-ValueWhen(9,J,K),2)+
(N>9)*Power(M-ValueWhen(10,J,K),2)+
(N>10)*Power(M-ValueWhen(N1+1,J,K),2)+
(N>11)*Power(M-ValueWhen(N1+2,J,K),2)+
(N>12)*Power(M-ValueWhen(N1+3,J,K),2)+
(N>13)*Power(M-ValueWhen(N1+4,J,K),2)+
(N>14)*Power(M-ValueWhen(N1+5,J,K),2)+
(N>15)*Power(M-ValueWhen(N1+6,J,K),2)+
(N>16)*Power(M-ValueWhen(N1+7,J,K),2)+
(N>17)*Power(M-ValueWhen(N1+8,J,K),2)+
(N>18)*Power(M-ValueWhen(N1+9,J,K),2)+
(N>19)*Power(M-ValueWhen(N1+10,J,K),2)+
(N>20)*Power(M-ValueWhen(N2+1,J,K),2)+
(N>21)*Power(M-ValueWhen(N2+2,J,K),2)+
(N>22)*Power(M-ValueWhen(N2+3,J,K),2)+
(N>23)*Power(M-ValueWhen(N2+4,J,K),2)+
(N>24)*Power(M-ValueWhen(N2+5,J,K),2)+
(N>25)*Power(M-ValueWhen(N2+6,J,K),2)+
(N>26)*Power(M-ValueWhen(N2+7,J,K),2)+
(N>27)*Power(M-ValueWhen(N2+8,J,K),2)+
(N>28)*Power(M-ValueWhen(N2+9,J,K),2)+
(N>29)*Power(M-ValueWhen(N2+10,J,K),2);
Ma:=If(Ma,Me,M); Sd:=D*Sqrt(X/N);
Ma+Sd;

---8<---------------------------

http://www.metastocktips.co.nz/