好用分时指标(大智慧)

源码正文：

好用分时指标，请高手在优化一下，最好做个分时预警（机构买线上穿机构卖线）

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~{};

源码正文：

INPUT:节日日期(1100213,900000,2222222){XG51};
节:=节日日期;年:=INTPART(节/10000)+1900 ;月:=INTPART(节/100)-(年-1900)*100;日:=节-INTPART(节/100)*100{XG51};
当前:=DATE;当前年:=INTPART(当前/10000)+1900 ;当前月:=INTPART(当前/100)-(当前年-1900)*100;当前日:=当前-INTPART(当前/100)*100{XG51};
日差:=DATETOD1970(节)-DATETOD1970(当前){XG51};
DRAWTEXTAbs(6 ,2 ,'当前是'+当前年+'年'+当前月+'月'+当前日+'日'+'距下个节日'+年+'年'+月+'月'+日+'日'+'还有' + 日差+'天'),COLOR8888FF,LINETHICK3{XG51};
DRAwrECTABS(5,2 ,457 ,22 ,RGB(255,255,0) ),LAYER7{X-G-5~1-C-N-{};