软件名称：[B]缠K线[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2009-04-23 21:38:41
软件简介:

{缠K线}
variable:CKHIGH= high,CKLOW=low,LCKHI=high,LCKLOW=low,RAISE=close,DOWN=close;
CKHIGH:=high*0;
CKLOW:=CKHIGH;
RAISE:=CKHIGH;
DOWN:=CKHIGH;
for p=lbound(LCKHI)+1 to ubound(LCKHI) do begin
RAISE[p]:=LCKHI[p]>LCKHI[p-1] and LCKLOW[p]>LCKLOW[p-1] ;
DOWN[p]:= LCKHI[p]<LCKHI[p-1] and LCKLOW[p]<LCKLOW[p-1] ;
IF RAISE[p]=1 or DOWN[p]=1 THEN  begin
  CKHIGH[p]:=LCKHI[p];   
  CKLOW[p]:=LCKLOW[p];
end;
ELSE BEGIN
  IF RAISE[p-1]=1 THEN   BEGIN
        IF LCKLOW[p]>LCKLOW[p-1] then
            CKLOW[p]:=LCKLOW[p]
        else
            CKLOW[p]:=LCKLOW[p-1];
    CKHIGH[p] := IF(LCKHI[p]>LCKHI[p-1], LCKHI[p-1],LCKHI[p]);
    RAISE[p]:=1;
   END;
  ELSE IF DOWN[p-1] THEN   BEGIN
  CKLOW[p]:= IF(LCKLOW[p]>LCKLOW[p-1],LCKLOW[p-1],LCKLOW[p]);
  CKHIGH[p]:= IF(LCKHI[p]<LCKHI[p-1], LCKHI[p],LCKHI[p-1]);
  DOWN[p]:= 1;
   END;
  ELSE   BEGIN
   CKHIGH[p]:=LCKHI[p];   
  CKLOW[p]:=LCKLOW[p];
   END   ;
END
end;
STICKLINE(RAISE, CKHIGH , CKLOW  , 5, 0  ), COLORRed;
STICKLINE(DOWN, CKHIGH , CKLOW  , 5, 1  ), COLORGreen;

[url=http://www.70822.com/soft/sort013/sort02/down-8598.html]缠K线[/url]