主题：数组数据越界问题

Input:ExtDepth(5,5,25,1),ExtDeviation(5,3,10,1),ExtBackStep(3,3,10,1);
variable:Zigzag[270]=0,NUM=0,whatlookfor:=0,LastPrice1:=0,LastPrice2:=0,LastSet1:=0,LastSet2:=0;
WARNING_DISABLE:4;
NN:=barslast(day<>ref(day,1))+1;
If NN=1 Then BEGIN
   For i=1 to 270 do Zigzag[i]:=0;
      whatlookfor:=0;
      LastPrice1:=Open;
      LastPrice2:=0;
      LastSet1:=1;
      LastSet2:=0;
      NUM:=1;
      Zigzag[1]:=Open;
END           
   REFCLOSE:=REF(CLOSE,1);
   LASTHIGH:=HHV(HIGH,NN-LastSet1);
   LASTLOW:=LLV(LOW,NN-LastSet1);
   LASTHIGHSET:=NN-HHVBARS(HIGH,NN-LastSet1);
   LASTLOWSET:=NN-LLVBARS(LOW,NN-LastSet1); 
  
If Islastbar<>1 AND whatlookfor=0 Then Begin //确定了起点，寻找第一个拐点
   If LastPrice1<>0 AND LastPrice2=0 Then BEGIN
      IF REFCLOSE>LastPrice1 AND (NN-LastSet1)>=ExtDepth AND (REFCLOSE-LastPrice1)>=ExtDeviation Then BEGIN  //先出现高点 
         LastPrice2:=REFCLOSE;
         LastSet2:=NN;
         whatlookfor:=-1;
         GOTO ENDEXIT@;
      END
      IF REFCLOSE<LastPrice1 AND (NN-LastSet1)>=ExtDepth AND (LastPrice1-REFCLOSE)>=ExtDeviation Then BEGIN  //先出现低点
         LastPrice2:=REFCLOSE;
         LastSet2:=NN;
         whatlookfor:=1;
         GOTO ENDEXIT@;
      END
   END 
END

If Islastbar<>1 AND whatlookfor=1 Then Begin //最后是向下拐点，寻找高点
   If LastPrice1<>0 AND LastPrice2<>0 Then BEGIN
      If REFCLOSE<LastPrice2 Then BEGIN
         LastPrice2:=REFCLOSE;
         LastSet2:=NN;
      END
      IF REFCLOSE>LastPrice2 AND (NN-LastSet2)>=ExtDepth AND (REFCLOSE-LastPrice2)>=ExtDeviation Then BEGIN  // 找到高点
         NUM:=NUM+1;
         whatlookfor:=-1;
         Zigzag[LASTLOWSET]:=LASTLOW;
         LastPrice1:=LastPrice2;
         LastSet1:=LastSet2;
         LastPrice2:=REFCLOSE;
         LastSet2:=NN;
      END
   END
END

If Islastbar<>1 AND whatlookfor=-1 Then Begin //最后是向上拐点，寻找低点
   If LastPrice1<>0 AND LastPrice2<>0 Then BEGIN
      If REFCLOSE>LastPrice2 Then BEGIN
         LastPrice2:=REFCLOSE;
         LastSet2:=NN;
      END
      IF REFCLOSE<LastPrice2 AND (NN-LastSet2)>=ExtDepth AND (LastPrice2-REFCLOSE)>=ExtDeviation Then BEGIN  // 找到低点
         NUM:=NUM+1;
         whatlookfor:=1;         
         Zigzag[LASTHIGHSET]:=LASTHIGH;
         LastPrice1:=LastPrice2;
         LastSet1:=LastSet2;
         LastPrice2:=REFCLOSE;
         LastSet2:=NN;
      END
   END
END

ENDEXIT@ ;

POLYLINE(Zigzag[NN]<>0,Zigzag[NN],COLORRED,1,VTSOLID);