通达信跟踪机构主力副图指标 股东人数 筹码集中分散 源码附图

月C:("CCI.CCI#MONTH"(14)),COLORYELLOW,LINETHICK2;
周C:("CCI.CCI#WEEK"(14)),COLORRED,LINETHICK2;
生命线:100.00,COLORRED;
警戒线:300.00,COLORWHITE;
机构数:=FINVALUE(246);
机构占比:=100*FINVALUE(247)/FINVALUE(239);
QFII数:=FINVALUE(248);
QFII占比:=100*FINVALUE(249)/FINVALUE(239);
券商数:=FINVALUE(250);
券商占比:=100*FINVALUE(251)/FINVALUE(239);
保险数:=FINVALUE(252);
保险占比:=100*FINVALUE(253)/FINVALUE(239);
基金数:=FINVALUE(254);
基金占比:=100*FINVALUE(255)/FINVALUE(239);
社保数:=FINVALUE(256);
社保占比:=100*FINVALUE(257)/FINVALUE(239);
私募数:=FINVALUE(258);
私募占比:=100*FINVALUE(259)/FINVALUE(239);

机构增加:机构数>REF(机构数,1)*1.1 AND 机构数>REF(机构数,1);
DRAWICON(机构增加>0,13,23);

机构占比增加:机构占比>REF(机构占比,1)*0.1 AND 机构占比>REF(机构占比,1);
DRAWICON(机构占比增加>0,18,23);


机构减少:机构数STICKLINE(机构减少,37,63,2,0),COLORFF8000;
DRAWTEXT(FILTER(机构减少,5),62,'←2 机构减少'),COLORFF8000;

机构占比减少:机构占比STICKLINE(机构占比减少,68,98,2,0),COLOR40FF00;
DRAWTEXT(FILTER(机构占比减少,5),95,'←3 机构占比减少'),COLOR40FF00;


月线小上:月C>REF(月C,1)*0.8 AND 月C>REF(月C,1),COLOR00FFFF;
{DRAWICON(月线小上>0,1,9);}
{月线大上
月线大上:月C>REF(月C,1)*1.8 AND 月C>REF(月C,1)AND 月C>100,COLOR0000FF;
DRAWICON(月线大上>0,2,18);}

STICKLINE(月线小上,0,36,2,0),COLOR00FFFF;
DRAWTEXT(FILTER(月线小上,5),35,'←1 CCI上'),COLOR00FFFF;

STICKLINE(机构增加,37,63,2,0),COLORFFFFFF;
DRAWTEXT(FILTER(机构增加,5),62,'←2 机构增加'),COLORFFFFFF;


STICKLINE(机构占比增加,68,98,2,0),COLOR4080FF;
DRAWTEXT(FILTER(机构占比增加,5),95,'←3 机构占比增加'),COLOR4080FF;

股东人数:GPJYVALUE(1,1,1),COLORWHITE,NODRAW;
ZDZ:=MAX(REF(股东人数,1),股东人数);
ZXZ:=MIN(REF(股东人数,1),股东人数);
SSS:=BARSLAST(REF(股东人数,1)!=股东人数);
ZZZ:=IF(REF(股东人数,SSS+2)>股东人数,股东人数*1.1,股东人数*0.9);
ZAQ:=(REF(股东人数,1)+股东人数)/2;
JSRS:=(REF(股东人数,1)-股东人数)/REF(股东人数,1)*100;
ZJRS:=(股东人数-REF(股东人数,1))/REF(股东人数,1)*100;
DQ1:=VARCAT(VAR2STR(JSRS,2),'%');
DRAWTEXT(SSS=0 AND JSRS>0,130,VARCAT('人少:',DQ1)),COLORRED;
DQ2:=VARCAT(VAR2STR(ZJRS,2),'%');
DRAWTEXT(SSS=0 AND ZJRS>0,-110,VARCAT('加人:',DQ2)),COLORGREEN;

人数减少:=ZJRS<0;
STICKLINE(人数减少,0,130,0.2,0),COLOR0000FF;

人数多:=ZJRS>0;
STICKLINE(人数多,-0,-110,0.2,0),COLOR40FF00;