主题：[求助]想用数组提取高点和低点未实现

这段代码的思路是什么？

一个简单的算法:

l3:count(ref(l,1)=llv(l,3),60);

h3:count(ref(h,1)=hhv(h,3),60);

RUNMODE:1;
n:=datacount;
VARIABLE:短期高点数组[n] = 0;
VARIABLE:短期低点数组[n] = 0;

IF DATACOUNT > 3 THEN //当数据大于3根的时候执行以下代码
BEGIN
 FOR i = 3 TO n DO  //从第三根K线开始做循环
 BEGIN
  IF HIGH[i] <= h[i-1] AND h[i-1] >= h[i-2] THEN //如果中间的K线的高点大于等于左右相邻的K线的高点
  BEGIN
   短期高点数组[i]:=h[i-1];//则为短期高点
  END

  IF l[i] >= l[i-1] AND l[i-1] <= l[i-2] THEN//如果中间的K线的低点小于等于左右相邻的K线的低点
  BEGIN
   短期低点数组[i]:=l[i-1];//则为短期低点
  END
 END
END
for i=1 to n do begin
 if 短期高点数组[i]=0 then removebound(短期高点数组,i);
 if 短期低点数组[i]=0 then removebound(短期低点数组,i);
end

短期高点个数:UBOUND(短期高点数组),NODRAW;//判断短期高点的数量
短期低点个数:UBOUND(短期低点数组),NODRAW;//判断短期低点的数量

截张图，里面要有能体现你讲的信息

改在哪里？

因为你去掉了啊。本来数组一共100(n)个数据，你只计算从1到99(n-1)，那么第100(n)个是不是就是初始值，就是0 了？

RUNMODE:1;
n:=DATACOUNT;
VARIABLE:短期高点数组[n] = 0;
VARIABLE:短期低点数组[n] = 0;

IF n > 3 THEN //当数据大于3根的时候执行以下代码
BEGIN
 FOR i = 3 TO n DO  //从第三根K线开始做循环
 BEGIN
  IF H[i] <= H[i-1] AND H[i-1] >= H[i-2] THEN //如果中间的K线的高点大于等于左右相邻的K线的高点
  BEGIN
   短期高点数组[i]:=H[i-1];//则为短期高点
  END

  IF L[i] >= L[i-1] AND L[i-1] <= L[i-2] THEN//如果中间的K线的低点小于等于左右相邻的K线的低点
  BEGIN
   短期低点数组[i]:=l[i-1];//则为短期低点
  END
 END
END

FOR i=n downto 1 DO BEGIN
 IF 短期高点数组[i]=0 THEN REMOVEBOUND(短期高点数组,i);
 IF 短期低点数组[i]=0 THEN REMOVEBOUND(短期低点数组,i);
end

短期高点个数:=UBOUND(短期高点数组),NODRAW;//判断短期高点的数量
短期低点个数:=UBOUND(短期低点数组),NODRAW;//判断短期低点的数量

最近的高点:短期高点数组[短期高点个数],NODRAW;
次近的高点:短期高点数组[短期高点个数 - 1],NODRAW;
第三近的高点:短期高点数组[短期高点个数 - 2],NODRAW;
第四近的高点:短期高点数组[短期高点个数 - 3],NODRAW;

 

removebound的思路错了，不应该从小到大的顺序删除数据的：删除数据后，后面的元素都向前进一位，导致没有判断过的元素进一位后不做判断了

举个例子：

数组前3个数为： 0 ，0 ，1。

那么第一次循环时，i为1----判断数组第一个元素是否为0-----判断为是-----remove掉了第一个0----删除后数组后面的元素进位，变为：0，1；

到了第二次循环时，i为2----判断数组第二个元素是否为0-----因为在第一次循环后，数组变成了：0，1 ，数组第二个元素是1-----结果导致判断不成立-----数组不变----数组里面保留了数值为0 的元素

 

所以我上面的修改是通过逆向思维，对数组元素从大到小的顺序删除数据，那么就不会产生这样的问题了。

 

不是填充0，而是原来就是0。新建一个全部是0的数组，然后把满足的数据写入数组，最后删除0来实现需求

我怎么看到N是500？