通达信集中度 附图源码

集中度

P:=95;

 A1:=COST(95);
 A2:=COST(5);
集中度:(A1-A2)*100/(A1+A2),COLORWHITE;
度1:IF(集中度>REF(集中度,1),集中度,DRAWNULL),COLORRED;
 A3:=COST(85);
 A4:=COST(15);
集中度2:(A3-A4)*100/(A3+A4),COLOR00FF00;
度2:IF(集中度2>REF(集中度2,1),集中度2,DRAWNULL),COLORFF00FF;
集中:IF(集中度2>REF(集中度2,1) AND 集中度>REF(集中度,2)
 ,(集中度2+集中度)/2,DRAWNULL),COLORYELLOW,LINETHICK3;

平均成本:COST(50),LINETHICK0;
主力成本:COST(4),LINETHICK0;
换手率％:VOL/CAPITAL*100,LINETHICK0;
天眼通:=(A1-A2)*100/(A1+A2);
 DRAWICON(天眼通>REF(天眼通,1) AND "RSI.RSI1"<20,集中度2,8);