20231120 通达信“筹码成本分布”指标公式---右侧交易法

欧欧 欧欧量化 2023-11-20 08:08 发表于广西

公式如下：

获利比例: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);

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);

DRAWTEXT_FIX(C>O,0.01,0.9,0,'微信公众号：欧欧量化'),COLORRED;

流通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;