求助高手解决下面问题

wxqwyl

各位高手：我想写出下面的程序，但是程序有些错误，请指正：

条件：
定义：
当日最高价H；
当日最低价L；
前一日收盘价PDC；
当日的真实波动幅度TR；前i日的真实波动幅度TR(i),i=1…19；
真实波动幅度均值N；前一日N值PDN；
计算：
TR=max(H-L,H-PDC,PDC-L);
N=(19*PDN+TR)/20，数据样本的第一个N= [TR +TR(1)+ TR(2)+…+TR(19)]/20；

我写的程序如下；

Params
       numeric LengthAtr(20);
Vars
       numeric N;
       NumericSeries Atr(0);
       numeric atr1;
       NumericSeries HourCount(0);
       numeric i;
       numeric AtrIndex;

Begin
         Atr=Max(max(highd-Closed(1),Closed(1)-Lowd),highd-Lowd);  
                if(HourCount>=LengthAtr+1)  
           {
                   AtrIndex =  (HourCount-2)%LengthAtr;
                   SetGlobalVar(AtrIndex,Atr[1]);
                     Atr= 0 ;
                        for i=0 to LengthAtr-1
                        {
                           Atr= Atr +  getGlobalVar(i);
                        }
                        Atr = Atr/LengthAtr;

                        N =(19*Atr(1)+Atr(0))/20;
End

运行起来，是错误的，但是就是找不到哪里有误，还请各位帮忙解决一下这个程序。谢谢！