VV:=IF(CAPITAL<1,INDEXV,VOL);
VVC:=IF(CAPITAL<1,SUM(INDEXV,71),CAPITAL);
{----------------------------------------------}
STICKLINE(C>REF(C,1),VOL,0,3,1),COLOR330099;
STICKLINE(C<=REF(C,1),VOL,0,3,1),COLORCC9900;
{---------------------}
换手:=VV/VVC;
机构意图:=MA(换手,21)*100;
大户意图:=MA(换手,13)*100;
中户意图:=MA(换手,8)*100;
散户意图:=MA(换手,5)*100;
均量:=(机构意图+大户意图+中户意图+散户意图)/4;
机构0:=机构意图-均量;
大户0:=大户意图-均量;
中户0:=中户意图-均量;
散户0:=散户意图-均量;
VIRVOL:=ABS(机构0)+ABS(大户0)+ABS(中户0)+ABS(散户0);
机构:=机构0/VIRVOL*VV;
大户:=大户0/VIRVOL*VV;
中户:=中户0/VIRVOL*VV;
散户:=散户0/VIRVOL*VV;
机构1日:机构,LINETHICK0;
大户1日:大户,,LINETHICK0;
中户1日:中户,LINETHICK0;
散户1日:散户,LINETHICK0;
{--------------------机构户量----------------}
KC4:=ABS(机构)+ABS(大户)+ABS(中户)+ABS(散户);
KO4:=ABS(大户)+ABS(中户)+ABS(散户);
STICKLINE(机构>0,KC4,KO4,2,0 ),COLOR330066;
STICKLINE(机构>0,KC4,KO4,1,0 ),COLOR663399;
STICKLINE(机构<=0,KC4,KO4,2,0 ),COLOR660033;
STICKLINE(机构<=0,KC4,KO4,1,0 ),COLOR990033;
{--------------------大户量----------------}
KC3:=ABS(大户)+ABS(中户)+ABS(散户);
KO3:=ABS(中户)+ABS(散户);
STICKLINE(大户>0,KC3,KO3,2,0 ),COLOR0000CC;
STICKLINE(大户>0,KC3,KO3,1,0 ),COLOR3333FF;
STICKLINE(大户<=0,KC3,KO3,2,0 ),COLOR009900;
STICKLINE(大户<=0,KC3,KO3,1,0 ),COLOR33CC33;
{--------------------中户量----------------}
KC2:=ABS(中户)+ABS(散户);
KO2:=ABS(散户);
STICKLINE(中户>0,KC2,KO2,2,0 ),COLOR0066CC;
STICKLINE(中户>0,KC2,KO2,1,0 ),COLOR3399FF;
STICKLINE(中户<=0,KC2,KO2,2,0 ),COLOR993300;
STICKLINE(中户<=0,KC2,KO2,1,0 ),COLOR336600;
{--------------------散户量----------------}
KC1:=ABS(散户);
KO1:=0;
STICKLINE(散户>0,KC1,KO1,2,0 ),COLOR000066;
STICKLINE(散户>0,KC1,KO1,1,0 ),COLOR333399;
STICKLINE(散户<=0,KC1,KO1,2,0 ),COLOR003300;
STICKLINE(散户<=0,KC1,KO1,1,0 ),COLOR336633;
{}
DRAWTEXT(ISLASTBAR,V+196000,' 机构增'),COLOR330066;
DRAWTEXT(ISLASTBAR,V+166000,' 机构减'),COLOR990033;
DRAWTEXT(ISLASTBAR,V+136000,' 大户增'),COLOR0000CC;
DRAWTEXT(ISLASTBAR,V+116000,' 大户减'),COLOR009900;
DRAWTEXT(ISLASTBAR,V+96000,' 中户增'),COLOR0066CC;
DRAWTEXT(ISLASTBAR,V+66000,' 中户减'),COLOR336600;
DRAWTEXT(ISLASTBAR,V+36000,' 散户增'),COLOR000066;
DRAWTEXT(ISLASTBAR,V+16000,' 散户减'),COLOR003300;
爱 查股网 www.a ichagu.com