通达信筹码分布数据副图指标 源码 贴图

获利比例:WINNER(C)*100;
平均成本:COST(50);
C95:=COST(95);
C5:=COST(5);
C85:=COST(85);
C15:=COST(15);
成本集中90:(C95-C5)/CONST(HHV(H,0))*100;
成本集中70:(C85-C15)/CONST(HHV(H,0))*100;
A1:=STRCAT('获利比例',': ');
A2:=STRCAT(CON2STR(获利比例,1),'%');
AA:=STRCAT(A1,A2);{爱股网 WWW.72GU.COM}
B1:=STRCAT('平均成本',': ');
BB:=STRCAT(B1,CON2STR(平均成本,2));
C1:=STRCAT('90%成本',CON2STR(C5,2));
C2:=STRCAT('-',CON2STR(C95,2));
C3:=STRCAT('集中',CON2STR(成本集中90,1));
CC:=STRCAT(STRCAT(STRCAT(C1,C2),C3),'%');
D1:=STRCAT('70%成本',CON2STR(C15,2));
D2:=STRCAT('-',CON2STR(C85,2));
D3:=STRCAT('集中',CON2STR(成本集中70,1));
DD:=STRCAT(STRCAT(STRCAT(D1,D2),D3),'%');
DRAWTEXT_FIX(ISLASTBAR,0.8,0,0,AA);
DRAWTEXT_FIX(ISLASTBAR,0.8,0.08,0,BB);
DRAWTEXT_FIX(ISLASTBAR,0.8,0.16,0,CC);
DRAWTEXT_FIX(ISLASTBAR,0.8,0.24,0,DD);
流通A股:=FINONE(239,0,0);{已上市流通A股（最新的财报）}
十大流通A股:=FINONE(264,0,0);{十大流通股东持有的流通A股（最新的财报）}
衰减系数:=流通A股/(流通A股-十大流通A股),NODRAW;
DRAWTEXT_FIX(ISLASTBAR,0.2,0.4,0,STRCAT('历史换手衰减系数：',CON2STR(衰减系数,2))),COLORYELLOW;