源碼:
?
DRAWTEXTEX(C,1,4,0,'機構紅多祿空,大戶紫多青空.中戶橙多蘭空,散戶白多灰空'),COLOR80FFFF;
VV:=IF(CAPITAL<1,INDEXV,V);
VVC:=IF(CAPITAL<1,SUM(INDEXV,71),CAPITAL);
換手:=VV/VVC;
機構意圖:=MA(換手,21)*100;
大戶意圖:=MA(換手,13)*100;
中戶意圖:=MA(換手,8)*100;
散戶意圖:=MA(換手,5)*100;
均量:=(機構意圖+大戶意圖+中戶意圖+散戶意圖)/4;
機構0:=機構意圖-均量;
大戶0:=大戶意圖-均量;
中戶0:=中戶意圖-均量;
散戶0:=散戶意圖-均量;
VIRV:=ABS(機構0)+ABS(大戶0)+ABS(中戶0)+ABS(散戶0);機構:=機構0/VIRV*VV;
大戶:=大戶0/VIRV*VV;
中戶:=中戶0/VIRV*VV;
散戶:=散戶0/VIRV*VV;
機構1日:機構,LINETHICK0,COLOR0000FF;
大戶1日:大戶,,LINETHICK0,COLORFF00FF;
中戶1日:中戶,LINETHICK0,COLOR0080FF;
散戶1日:散戶,LINETHICK0,COLORFFFFFF;
{--------------------機構戶量----------------}
KC4:=ABS(機構)+ABS(大戶)+ABS(中戶)+ABS(散戶);
KO4:=ABS(大戶)+ABS(中戶)+ABS(散戶);
STICKLINE(機構>0,KC4,KO4,5,0 ),COLOR0000FF;
STICKLINE(機構<=0,KC4,KO4,5,0 ),COLOR00FF00;{--------------------大戶量----------------}
KC3:=ABS(大戶)+ABS(中戶)+ABS(散戶);
KO3:=ABS(中戶)+ABS(散戶);
STICKLINE(大戶>0,KC3,KO3,5,0 ),COLORFF00FF;
STICKLINE(大戶<=0,KC3,KO3,5,0 ),COLORFFFF00;
{--------------------中戶量----------------}
KC2:=ABS(中戶)+ABS(散戶);
KO2:=ABS(散戶);
STICKLINE(中戶>0,KC2,KO2,5,0 ),COLOR0080FF;
STICKLINE(中戶<=0,KC2,KO2,5,0 ),COLORC5753A;
{--------------------散戶量----------------}
KC1:=ABS(散戶);
KO1:=0;
STICKLINE(散戶>0,KC1,KO1,5,0 ),COLORFFFFFF;
STICKLINE(散戶<=0,KC1,KO1,5,0 ),COLOR585858;
{程序化交易 www.kzuj.com.cn }
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
打印本文
關閉窗口