| {动态买卖} VAR0:=VOL/CLOSE/2;
 VAR1:=SUM(IF(VAR0 > 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0);
 VAR2:=SUM(IF(VAR0 > 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0);
 VAR3:=SUM(IF(VAR0 < 100 AND CLOSE > REF(CLOSE,1),VAR0,0),0);
 VAR4:=SUM(IF(VAR0 < 100 AND CLOSE < REF(CLOSE,1),VAR0,0),0);
 VAR5:=VAR1 + VAR2 + VAR3 + VAR4;
 VAR6:=IF(BARSTATUS=2,100 * VAR1/VAR5,0);
 VAR7:=IF(BARSTATUS=2,100 * VAR2/VAR5,0);
 VAR8:=IF(BARSTATUS=2,100 * VAR3/VAR5,0);
 VAR9:=IF(BARSTATUS=2,100 * VAR4/VAR5,0);
 机构买盘:VAR1,LINETHICK3,COLORFF55FF;
 机构卖盘:VAR2,LINETHICK3,COLORFFFF55;
 散户买盘:VAR3,COLOR5555FF;
 散户卖盘:VAR4,COLOR55FF55;{注意:你们下载的没有修改过的这一行源码是:散户卖盘:VAR4 * IF(DATE < 1091212,1,100000000),COLOR55FF55;}
 DRAWTEXTREL(1003,870,'机构买盘'),LINETHICK2,COLORFF55FF;
 DRAWTEXTREL(1003,570,'机构卖盘'),LINETHICK2,COLORFFFF55;
 DRAWTEXTREL(1003,320,'散户买盘'),LINETHICK2,COLOR5555FF;
 DRAWTEXTREL(1003,50,'散户卖盘'),LINETHICK2,COLOR55FF55;
 IF BARSTATUS=2 THEN BEGIN
 DRAWTEXTREL(1020,750,'' + FLOOR(VAR6) + '%'),LINETHICK2,COLORFF55FF;
 END
 
 IF BARSTATUS=2 THEN BEGIN
 LOOP0:=FLOOR(VAR7);
 VAR10:='' + LOOP0;
 VAR11:=VAR10 + '%';
 DRAWTEXTREL(1020,460,VAR11),LINETHICK2,COLORFFFF55;
 END
 
 IF BARSTATUS=2 THEN BEGIN
 LOOP1:=FLOOR(VAR8);
 VAR12:='' + LOOP1;
 VAR13:=VAR12 + '%';
 DRAWTEXTREL(1020,200,VAR13),LINETHICK2,COLOR5555FF;
 END
 IF BARSTATUS=2 THEN BEGIN
 LOOP2:=FLOOR(VAR9);
 VAR14:='' + LOOP2;
 VAR15:=VAR14 + '%';
 DRAWTEXTREL(1020,-50,VAR15),LINETHICK2,COLOR55FF55;
 END
 |