请求帮助顶分型与底分型编写 (文华财经WH6赢顺V6.7)

 参考：

AD:=(REF(H,1)>=REF(H,2)&&REF(L,1)<=REF(L,2))||(REF(H,1)<=REF(H,2)&&REF(L,1)>=REF(L,2));

DH:=HREF(H,2)&&REF(L,1)>REF(L,2);//顶分型

DH1:=HREF(H,3)&&HV(L,2)>REF(L,3)&&AD;//包含关系处理的顶分型

N1:=BARSLAST(DH||DH1)+1;

KTEXT(N1=1,-1,REF(H,1),1,COLORRED,'顶'),VALIGN2;

DL:=H>REF(H,1)&&L>REF(L,1)&&REF(H,1)

DL1:=H>LV(H,2)&&L>LV(L,2)&&LV(H,2)

N2:=BARSLAST(DL||DL1)+1;

KTEXT(N2=1,-1,REF(L,1),1,COLORGREEN,'底'),VALIGN0;

 给您重新上传，参考：

AD:=(REF(H,1)>=REF(H,2)&&REF(L,1)<=REF(L,2))||(REF(H,1)<=REF(H,2)&&REF(L,1)>=REF(L,2));

DH:=H<REF(H,2)&&REF(L,1)>REF(L,2);//顶分型

DH1:=H<REF(H,3)&&HV(L,2)>REF(L,3)&&AD;//包含关系处理的顶分型

N1:=BARSLAST(DH||DH1)+1;

KTEXT(N1=1,-1,REF(H,1),1,COLORRED,'顶'),VALIGN2;

DL:=H>REF(H,1)&&L>REF(L,1)&&REF(H,1)<REF(H,2);

DL1:=H>LV(H,2)&&L>LV(L,2)&&LV(H,2)<REF(H,2);

N2:=BARSLAST(DL||DL1)+1;

KTEXT(N2=1,-1,REF(L,1),1,COLORGREEN,'底'),VALIGN0;