大智慧分时动态买卖选股指标公式源码

大智慧分时动态买卖选股指标公式源码

源码正文：

VAR0:=vol/CLOSE/2{XG51};
VAR1:=SUM(IF(VAR0 > 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0){XG51};
VAR2:=SUM(IF(VAR0 > 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0){XG51};
VAR3:=SUM(IF(VAR0 < 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0){XG51};
VAR4:=SUM(IF(VAR0 < 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0){XG51};
VAR5:=VAR1 + VAR2 + VAR3 + VAR4{XG51};
VAR6:=IF(BARstATUS=2,100 * VAR1/VAR5,0){XG51};
VAR7:=IF(BARSTATUS=2,100 * VAR2/VAR5,0){XG51};
VAR8:=IF(BARSTATUS=2,100 * VAR3/VAR5,0){XG51};
VAR9:=IF(BARSTATUS=2,100 * VAR4/VAR5,0){XG51};
机构买盘:VAR1,LINETHICK3,COLORFF55FF{XG51};
机构卖盘:VAR2,LINETHICK3,COLORFFFF55{XG51};
散户买盘:VAR3,COLOR5555FF{XG51};
散户卖盘:VAR4,COLOR55FF55{XG51};
DRAWTEXTREL(950,870,'机构买盘'),COLORFF00ff{XG51};
DRAWTEXTREL(950,570,'机构卖盘'),COLORFFFF00{XG51};
DRAWTEXTREL(950,320,'散户买盘'),COLOR0000FF{XG51};
DRAWTEXTREL(950,50,'散户卖盘'),COLOR00FF00{XG51};
IF BARSTATUS=2 THEN BEGIN
DRAWTEXTREL(1030,870,'' + FLOOR(VAR6) + '%'),COLORFF00FF{XG51};
END
IF BARSTATUS=2 THEN BEGIN
LOOP0:=FLOOR(VAR7){XG51};
VAR10:='' + LOOP0{XG51};
VAR11:=VAR10 + '%'{XG51};
DRAWTEXTREL(1030,570,VAR11),COLORFFFF00{XG51};
END
IF BARSTATUS=2 THEN BEGIN
LOOP1:=FLOOR(VAR8){XG51};
VAR12:='' + LOOP1{XG51};
VAR13:=VAR12 + '%'{XG51};
DRAWTEXTREL(1030,320,VAR13),COLOR0000FF{XG51};
END
IF BARSTATUS=2 THEN BEGIN
LOOP2:=FLOOR(VAR9){XG51};
VAR14:='' + LOOP2{XG51};
VAR15:=VAR14 + '%'{XG51};
DRAWTEXTREL(1030,50,VAR15),COLOR00FF00{XG51};
END{X_G.5_1_C_N_{};