思路求助

羊洋

这个程序怎么样修改才能跑的通啊？

羊洋

但是编辑器提示：
函数不能在IF THEN FOR循环控制语句中被引用的原理和解决方案

想问老师，这种语句运行会不会正常啊？

补充内容 (2022-8-25 17:51):
提示：
第 26 行，REF 函数在循环语句中可能会带来风险。

羊洋

我目前调整为这样的语句：
VARIABLE:up:=0,down:=0;

movavg_long:ma(close,N);

small_len:=intpart(n/30);
movavg_small:ma(close,small_len);

if movavg_small>movavg_long then
begin
up:=up+1;
down:=0;
end

if movavg_small<movavg_long then
begin
up:=0;
down:=down+1;
end

len:=Intpart(N/2);// 这是允许的最大的连续距离
mark:1;

check_len:=N-len; //这是检查的距离

FOR i = 0 to check_len-1 DO
BEGIN
        IF ((ref(up,i)>=len) or (ref(down,i)>= len)) THEN
                BEGIN
                        mark :=0;
                        break;
                END
END;

目前运行起来看起来是好的，不过每次编译都提示：
1、循环里面使用了REF，可能会影响
2、循环里面使用了break，对于逐K模式会有影响。（我后面还是要加入买卖信号的，所以还是选择了逐K模式）

这两个提示，我目前肉眼观察，好像没造成什么问题。想问会如提示里面的说法，实际是会算错的吗？

技术006

没事的，风险提示而已。不代表不符合语法条件。

技术009

没必要写循环吧。你直接用hhv 统计最大的up和down就行了。

只是 如果某一条down或者up 是从60周期外延续进来的 这个是要单独排除的。这个也简单，直接ref到第20K位置，判断是否 全满足down或者up  就是用all函数直接判断 即可。