资金监测改加(通达信)

资金监测改加(通达信)

源码正文：

VAR1:=vol/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)){XG51};
主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)){XG51};
空:=(ema(CLOSE,9)-Ema(CLOSE,2))/2*800000{XG51};
多:=(EMA(CLOSE,2)-EMA(CLOSE,9))/2*800000{XG51};
stICKLINE(C<O ,0,VOL,3.2,0),COLORFF1100{XG51};
STICKLINE(C<O ,0,VOL,2.7,0),COLORFF3300{XG51};
STICKLINE(C<O ,0,VOL,2.1,0),COLORFF5500{XG51};
STICKLINE(C<O ,0,VOL,1.5,0),COLORFF7700{XG51};
STICKLINE(C<O ,0,VOL,0.9,0),COLORFF9900{XG51};
STICKLINE(C<O ,0,VOL,0.3,0),COLORFFBB00{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,3.2,0),COLOR006000{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,2.7,0),COLOR007500{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,2.1,0),COLOR009100{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,1.5,0),COLOR00A600{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,0.9,0),COLOR00BB00{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,0.3,0),COLOR00CC00{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,3.2,0),COLOR555555{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,2.7,0),COLOR777777{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,2.1,0),COLOR999999{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,1.5,0),COLORBBBBBB{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,0.9,0),COLORDDDDDD{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,0.3,0),COLORFFFFFF{XG51};
STICKLINE(C>O,0,VOL,3.2,0),COLORFF11FF{XG51};
STICKLINE(C>O,0,VOL,2.7,0),COLORFF33FF{XG51};
STICKLINE(C>O,0,VOL,2.1,0),COLORFF55FF{XG51};
STICKLINE(C>O,0,VOL,1.5,0),COLORFF77FF{XG51};
STICKLINE(C>O,0,VOL,0.9,0),COLORFF99FF{XG51};
STICKLINE(C>O,0,VOL,0.3,0),COLORFFBBFF{XG51};
STICKLINE(主动买盘>0,0,主动买盘,3.2,0),COLOR000055{XG51};
STICKLINE(主动买盘>0,0,主动买盘,2.7,0),COLOR000077{XG51};
STICKLINE(主动买盘>0,0,主动买盘,2.1,0),COLOR000099{XG51};
STICKLINE(主动买盘>0,0,主动买盘,1.5,0),COLOR0000BB{XG51};
STICKLINE(主动买盘>0,0,主动买盘,0.9,0),COLOR0000DD{XG51};
STICKLINE(主动买盘>0,0,主动买盘,0.3,0),COLOR0000FF{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,3.2,0),COLOR006000{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,2.7,0),COLOR007500{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,2.1,0),COLOR009100{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,1.5,0),COLOR00A600{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,0.9,0),COLOR00BB00{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,0.3,0),COLOR00CC00{XG51};
VAR1A:=(CLOSE*2.5+HIGH+LOW)/4*600000{XG51};
VAR1D:=(CLOSE*2.5+HIGH+LOW)/4*800000{XG51};
离合:EMA(VAR1D,5)-EMA(VAR1D,13),COLORFFFFFF,LINETHICK2{XG51};
定位:1.1*EMA(EMA(VAR1D,5)-EMA(VAR1D,13),2),COLORFF5600,LINETHICK2{XG51};
做主:(多-空),COLOR00FFFF,LINETHICK3{XG51};
IF(做主<REF(做主,1),做主,DRAWNULL),COLORFFFF00,LINETHICK5{XG51};
IF(做主>REF(做主,1),做主,DRAWNULL),COLORFF00FF,LINETHICK4{XG51};
XJ:=VOL / ((H - L) * 2.5 - ABS(C - O)){XG51};
XL:=IF(C > O,XJ * (H - L),IF(C < O,XJ * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - XJ * (H - C + (O - L)),IF(C < O,0 - XJ * (H - L),0 - VOL / 2)){XG51};
HSL:=XL / 20 / 1.15{XG51};
STICKLINE(HSL *4 >= 0,HSL *4 *17,0,0.3,1),COLORBLUE{XG51};
STICKLINE(HSL *4 < 0,HSL *4 *17,0,0.3,1),COLORRED{X*G!5~1*C*N*{};