通达信主力出入副图源码

{说明：1.波动小的是量线
2.波动大的是资金线
3.红绿柱是顶底线}
额:AMOUNT/100000000,,COLORFFFFFF,NODRAW;
VAR110:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
入亿:IF(CLOSE>OPEN,VAR110*(HIGH-LOW),IF(CLOSE +(CLOSE-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;
出亿:IF(CLOSE>OPEN,0-VAR110*((HIGH-CLOSE)+(OPEN-LOW)),
IF(CLOSE 差亿:入亿+出亿,COLORRED,NODRAW;
{VOL换手}
{换手:=VOL/CAPITAL*100,POINTDOT COLORMAGENTA;}
{十换:SUM(换手,10),COLORRED,LINETHICK1,NODRAW;}
{三十换:SUM(换手,30),COLORGREEN,LINETHICK1,NODRAW;}
{成交量比%}
{AA1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));}
{主买:=IF(CLOSE>OPEN,AA1*(HIGH-LOW),IF(CLOSE {量比%:主买/VOL*100,COLOR00FFFF,LINETHICK1,NODRAW;}
量:=V/CONST(HHV(V,90))*30,COLORRED;
{IF(量<= REF(量,1),量,DRAWNULL),COLORCYAN,LINETHICK2;}

{粉色}
STICKLINE(CLOSE>=OPEN,0,量*1,2.4,0),COLOR000033;
STICKLINE(CLOSE>=OPEN,0,量*1,1.6,0),COLOR000055;
STICKLINE(CLOSE>=OPEN,0,量*1,0.8,0),COLOR000077;
STICKLINE(CLOSE>=OPEN,0,量*1,0.0,0),COLOR0000DD;
{蓝色}
STICKLINE(CLOSE<=OPEN,0,量*1,2.4,0),COLOREC0000;
STICKLINE(CLOSE<=OPEN,0,量*1,1.6,0),COLORFF4600;
STICKLINE(CLOSE<=OPEN,0,量*1,0.8,0),COLORFF6300;
STICKLINE(CLOSE<=OPEN,0,量*1,0,0),COLORFF8B00;
{倍量}
倍量:(量/REF(量,1)>=1.91 AND COUNT(C>O,1)) OR (L>REF(H,1) AND COUNT(O>C,1) AND 量/REF(量,1)>=1.91),NODRAW,COLORYELLOW;
STICKLINE(倍量,0,量,0.0001,0),COLOR00FFFF;
DRAWTEXT(倍量,量*0.99,'倍'),COLORYELLOW,LINETHICK1;
{資金线}
VAR28:=LLV(LOW,21);
VAR29:=HHV(HIGH,21);
K:EMA((CLOSE-VAR28)/(VAR29-VAR28)*50,6),COLORRED,LINETHICK1;{红}
IF(K<= REF(K,1),K,DRAWNULL),COLORGREEN,LINETHICK1;{绿}
D:EMA(0.667*REF(K,1)+0.333*K,2),COLORGREEN,LINETHICK1;{绿}
IF(D>= REF(D,1),D,DRAWNULL),COLORMAGENTA,LINETHICK1;{洋红}
{DRAWICON(LONGCROSS(D,K,0.1),D,2),COLORRED,LINETHICK1;
DRAWICON(LONGCROSS(K,D,0.1),K,1),COLORGREEN,LINETHICK1;}
{绝顶公式}
VAR21:=(HHV(HIGH,8)-CLOSE)/(HHV(HIGH,8)-LLV(LOW,8))*100-70;
VAR22:=SMA(VAR21,8,1)+100;
VAR23:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
VAR24:=SMA(VAR23,3,1);
VAR25:=SMA(VAR24,3,1)+100;
VAR26:=VAR25-VAR22;
绿:IF(VAR26>100,VAR26-100,0),COLORGREEN,LINETHICK1;{绿,量减}
IF(绿>=REF(绿,1),绿,DRAWNULL),COLORRED,LINETHICK1;
{红:IF(REF(绿,1)<=