软件名称：[B]点石成金衍生版主图源码【大智慧】[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2013-05-28 02:09:56
软件简介:

VARIABLE:x=1;
x:=BARSLAST(DISPSTATUS=1)+1;
nl:=LLVBARS(l ,x );
ml:ma(c,nl+1),CIRCLEDOT,coloraa00aa;
nh:=hhVBARS(h ,x );
mh:ma(c,nh+1),POINTDOT,LINETHICK3,color00ff00;
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;

[url=http://www.70822.com/soft/sort013/sort03/down-57338.html]点石成金衍生版主图源码【大智慧】[/url]