数组

100020061

bh_pysj:if(is_cxbh=0,1,BARSLAST(is_bh=0)+1);

nm:HHV_PRICE[BARPOS-bh_pysj];
请教下，bh_pysj为计算出来的数字，这样使用就提示使用未来函数，如果把bh_pysj换成数字就不会了，这是因为什么原因，数组的原因吗？那这种写法是不是很容易出问题，我是为了避免REF在IF内部使用，要么要多写REF在IF外面，很多地方需要多写一些东西。

技术008

吧仅刷最后一根k这个勾去掉就可以了

100020061

技术008 发表于 2025-1-13 08:25
吧仅刷最后一根k这个勾去掉就可以了

那这个不好用啊，我昨天已经取消了这个写法，很难用。另外我有个不明白的，我们选了走完K，为什么还是要每个分笔计算？选了走完K模式不应该就是走完K的时候计算吗？分笔只是为了处理数据完整，既然有走完K模式，那代码就应该在走完K才进行计算啊，当然具体原因我不懂，如果那样可能能提升很多的效率，比如我处理引用，在最新K就是要进行限制处理，如果只在走完K计算，这些完全都不用再处理了

100020061

技术008 发表于 2025-1-13 08:25
吧仅刷最后一根k这个勾去掉就可以了

帮处理下这个代码逻辑吧

VARIABLE:底分型_历时:=0,顶分型_历时:=0;
//初始化
if BARPOS=1 then BEGIN
        底分型:_历时=0;
        顶分型_历时:=0;
   END
IF   顶分型_历时>=1 and is_cxbh=0 THEN 顶分型_历时 := 顶分型_历时 + 1;
if 顶分型=1 and 顶分型_历时=0 then 顶分型_历时:=1;
if 顶分型_历时>0 and 底分型=1  then 顶分型_历时:=0;
IF   底分型_历时>=1 and is_cxbh=0 THEN 底分型_历时 := 底分型_历时 + 1;
if 底分型=1 and 底分型_历时=0 then 底分型_历时:=1;
if 底分型_历时>0 and 顶分型=1 then 底分型_历时:=0;

if 顶分型=1 and ref(底分型_历时,bh_pysj)<4 then 顶分型:=0;
if 底分型=1 and ref(顶分型_历时,bh_pysj)<4 then 底分型:=0;

就是分别从顶分型到底分型和底分型到顶分型计数，通过计数以后，某个条件导致当前底分型不满足，被置为0了，这个K的底分型_历时会因为前面的代码他会被置为1，而顶分型_历时会被置为0.
但是这个K底分型都已经被置为0了，不满足后面的底分型计数，所以从这个K开始顶分型的计数应该是前一个K的顶分型计数加上当前K，1，当前K后面的（直到新的顶分型出现再判断）顶分型计数应该也是前一个顶分型计数加1，这样保证顶分型计数不会出错，不知道要怎么改