{缠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;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
