为什么hebing_k没有变化，它应该在1，-1之间变化的。应该怎么改？

代人发帖

请教：为什么hebing_k没有变化，它应该在1，-1之间变化的。应该怎么改？
VARIABLE:hebing_k=0,hebing_h=0,hebing_l=0,hb_ding=0,hb_di=0;//上1，下-1，里面0

{合并后的高低价}


hb_1_L:=ref(hebing_l,1);
hb_1_H:=ref(hebing_h,1);
HB_1_K:=REF(hebing_k,1);
hb_di_1:=ref(hb_di,1);
hb_ding_1:=ref(hb_ding,1);


if h>hb_1_H and l>hb_1_L then BEGIN //上
        hebing_k:=1;
        hb_ding:=h;
        hb_di:=hb_di_1;
        end;
       
if h<hb_1_H and l<hb_1_L then BEGIN //下
        hebing_k:=-1;
        hb_ding:=hb_ding_1;
        hb_di:=l;
        end;
       

if h<=hb_1_H and l>=hb_1_L then BEGIN//后包
       
        hebing_k:=HB_1_K;
        hb_ding:=hb_ding_1;
        hb_di:=hb_di_1;
        end;
if h>=hb_1_H and l<=hb_1_L  then BEGIN//前包
        if HB_1_K=1 then BEGIN
                hebing_k:=HB_1_K;
                hb_ding:=h;
                hb_di:=hb_di_1;
                   END;
        if HB_1_K=-1 then BEGIN
                hebing_k:=HB_1_K;
                hb_ding:=hb_ding_1;
                hb_di:=l;
                end;
        end;       

hebing_fangxiang:hebing_k;
xhh1:=hb_ding;
xll1:=hb_di;

技术009

https://www.weistock.com/bbs/for ... &extra=page%3D1