VAR00:=AMOUNT;
VAR0:=V/C/2;
VAR1:=SUM(IF(VAR0>100 AND C>REF(C,1),VAR00,0),0)/10000;
VAR2:=SUM(IF(VAR0>100 AND C<REF(C,1),VAR00,0),0)/10000;
VAR3:=SUM(IF(VAR0<100 AND C>REF(C,1),VAR00,0),0)/10000;
VAR4:=SUM(IF(VAR0<100 AND C<REF(C,1),VAR00,0),0)/10000;
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,LINETHICK2,COLORFF55FF,PRECIS0;
大单卖出:VAR2,LINETHICK2,COLORFFFF55,PRECIS0;
小单买入:VAR3,COLOR5555FF,PRECIS0;
小单卖出:VAR4,COLOR55FF55,PRECIS0;
资金流入:VAR1-VAR2+VAR3-VAR4,COLORyellow,PRECIS0,LINETHICK1;
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;
转载请注明出自股海明灯论坛 http://www.178448.com/,本贴地址:http://www.178448.com/thread-140638-1-1.html |