以下是通达信集中度 附图源码(无源码的请下载附件导入)
集中度
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);
|