缺口，放到自己的主图里

2011-02-17 09:16:00来源:本站整理浏览:78

I1:=0;
flag1:=0;
while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
      IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1)
         THEN BEGIN    FLAG1:=1;
                        S1:=I1;
                        I1:=BARSLAST(DISPSTATUS=1);
               END
      ELSE  I1:=I1+1;
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Color808080,ALIGN1,LAYER7;
  DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(l,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORffffff,linethick2;

I:=0;
flag:=0;
while I<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
      IF REF(L,I)>REF(H,I+1) AND REF(H,I+1)<LLV(LOW,I+1)
         THEN BEGIN    FLAG:=1;
                        S:=I;
                        I:=BARSLAST(DISPSTATUS=1);
               END
      ELSE  I:=I+1;
STICKLINE(FLAG,REF(h,S+1),LLV(L,S+1),20*(s+1),500),Color808080,ALIGN1,LAYER7;
DRAWTEXT(FLAG,REF(H,s+1),NUMTOSTRN(ref(h,s+1),2)+'-'+NUMTOSTRN(LLV(L,S+1),2)),ALIGN2,COLORgreen,linethick2;