PL5:=ZIG(3,5);
EN1:=ZIG(3,5) REF(ZIG(3,5),1) AND REF(ZIG(3,5),1) =REF(ZIG(3,5),2) AND REF(ZIG(3,5),2) =REF(ZIG(3,5),3);
EX1:=ZIG(3,5) REF(ZIG(3,5),1) AND REF(ZIG(3,5),1) =REF(ZIG(3,5),2) AND REF(ZIG(3,5),2) =REF(ZIG(3,5),3);
PL10:=ZIG(3,13);
EN2:=ZIG(3,10) REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) =REF(ZIG(3,10),2) AND REF(ZIG(3,10),2) =REF(ZIG(3,10),3);
EX2:=ZIG(3,10) REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) =REF(ZIG(3,10),2) AND REF(ZIG(3,10),2) =REF(ZIG(3,10),3);
PL20:=ZIG(3,26);
EN3:=ZIG(3,20) REF(ZIG(3,20),1) AND REF(ZIG(3,20),1) =REF(ZIG(3,20),2) AND REF(ZIG(3,20),2) =REF(ZIG(3,20),3);
EX3:=ZIG(3,20) REF(ZIG(3,20),1) AND REF(ZIG(3,20),1) =REF(ZIG(3,20),2) AND REF(ZIG(3,20),2) =REF(ZIG(3,20),3);
PL40:=ZIG(3,55);
走强一:=BARSLAST(PL5 REF(PL5,1));
走弱一:=BARSLAST(PL5 REF(PL5,1));
走强二 :=BARSLAST(PL10 REF(PL10,1));
走弱二:=BARSLAST(PL10 REF(PL10,1));
走强三:=BARSLAST(PL20 REF(PL20,1));
走弱三:=BARSLAST(PL20 REF(PL20,1));
ZTJZ5:=IF(PL10 REF(PL10,1),COUNT(EN1,走强二 ),0);
ZTJD5:=IF(PL10 REF(PL10,1),COUNT(EX1,走强二 ),0);
DTJZ5:=IF(PL10 REF(PL10,1),COUNT(EN1,走弱二),0);
DTJD5:=IF(PL10 REF(PL10,1),COUNT(EX1,走弱二),0);
ZTJZ10:=IF(PL20 REF(PL20,1),COUNT(EN2,走强三),0);
ZTJD10:=IF(PL20 REF(PL20,1),COUNT(EX2,走强三),0);
DTJZ10:=IF(PL20 REF(PL20,1),COUNT(EN2,走弱三),0);
DTJD10:=IF(PL20 REF(PL20,1),COUNT(EX2,走弱三),0);
DRAWTEXT(EN1 AND DTJZ5=1,LOW*0.98,'(Ⅰ)'),COLORFFFF00;
DRAWTEXT(EX1 AND DTJD5=2,HIGH*1.02,'(Ⅱ)'),COLORFFFF00;
DRAWTEXT(EN2 AND ZTJZ5=1,LOW*0.98,'(Ⅲ)'),COLORFFFF00;
DRAWTEXT(EX1 AND PL10 REF(PL10,1) AND ZTJD5=1,HIGH*1.02,'⑴'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10 REF(PL10,1) AND ZTJZ5=2,LOW*0.98,'⑵'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10 REF(PL10,1) AND ZTJZ5=2,HIGH*1.02,'⑶'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10 REF(PL10,1) AND ZTJZ5=3,LOW*0.98,'⑷'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20 REF(PL20,1) AND ZTJD10=1,HIGH*1.02,'⑸'),COLOR0000FF;
DRAWTEXT(EN2 AND DTJZ10=1,LOW*0.94,'【A】'),COLOR00FF00;
DRAWTEXT(EX2 AND DTJD10=2,HIGH*1.03,'【B】'),COLOR00FF00;
DRAWTEXT(EN3 AND ZTJZ10=1,LOW*0.94,'【C】'),COLOR00FF00;
DRAWTEXT(EX2 AND PL20 REF(PL20,1) AND ZTJD10=1,HIGH*1.04,'①'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20 REF(PL20,1) AND ZTJZ10=2,LOW*0.94,'②'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND PL20 REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,HIGH*1.04,'③'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20 REF(PL20,1) AND ZTJZ10=3,LOW*0.94,'④'),LINETHICK3,COLOR00FFFF;
DMLJ:=HHV(HIGH,120);
TY:=CLOSE;
....................................
源码有一点长,放附件里.....
