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

应该是找出想找的高点和低点,但是设置成图表只显示60根K线时,找出的高点和低点分别都是60个,显然是不对的,请问错在哪里????谢谢帮助

此主题相关图片如下：1.png


此主题相关图片如下：2.png

RUNMODE:1;

VARIABLE:短期高点数组[] = 0;
VARIABLE:短期低点数组[] = 0;

IF DATACOUNT > 3 THEN
BEGIN
 FOR i = 3 TO DATACOUNT DO
 BEGIN
  IF REF(HIGH,i) <= REF(HIGH,i-1) AND REF(HIGH,i-1) >= REF(HIGH,i-2) THEN
  BEGIN
   短期高点 := REF(HIGH,i-1);
  END

  IF REF(LOW,i) >= REF(LOW,i-1) AND REF(LOW,i-1) <= REF(LOW,i-2) THEN
  BEGIN
   短期低点 := REF(LOW,i-1);
  END
 END
END

短期高点数组:=短期高点;
短期低点数组:=短期低点;
短期高点个数:UBOUND(短期高点数组),NODRAW;
短期低点个数:UBOUND(短期低点数组),NODRAW;

RUNMODE:1;

VARIABLE:短期高点数组[] = 0;
VARIABLE:短期低点数组[] = 0;

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

  IF REF(LOW,i) >= REF(LOW,i-1) AND REF(LOW,i-1) <= REF(LOW,i-2) THEN//如果中间的K线的低点小于等于左右相邻的K线的低点
  BEGIN
   短期低点 := REF(LOW,i-1);//则为短期低点
  END
 END
END

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

一个简单的算法:

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;//判断短期低点的数量