我用通达信复现拥挤度指标,转折阈值约55而非传言中的45。
- 拥挤度=成交额头部5%个股总额÷市场总成交额。
- 抱团过于集中时市场见顶,解散低迷时市场见底。
- 复现转折阈值约55,并非传言45,目前数值在45左右未达极限。
- CODE为通达信拥挤度公式,反复叠加扩展数据并用INSUM函数。
- 通达信语法受限,INSUM计算量大,复杂计算显得笨拙。
- 以成交额为指标进行排序,做一个扩展数据,计算品种选择所有A股。
- 创建一个指标ALLSTOCK,对收盘价为真的所有个股横向统计并累加,再创建指标TOTALNUM。
- 求取头部5%股票的成交额。
- 对头部5%股票的成交额再做一个扩展数据,再次用到INSUM函数。
- 对累积值再做一次扩展数据锚定平均股价指数,编写最终拥挤度公式。
ALL:C<>DRAWNULL;{收盘价不为空};
TOTAL_NUM : INSUM('沪深A股','ALLSTOCK',1,0);{沪深A股总数}
第三步,求取头部5%股票的成交额:
TOTAL_NUM := CALCSTOCKINDEX('880003','STOCKNUM',1);
RANK_VAL := EXTDATA_USER(9,0); {引用成交额排名}
TOP_NUM := TOTAL_NUM / 20; {计算前5%的临界排名}
GG_AMT : IF(RANK_VAL <= TOP_NUM, AMOUNT, 0); {若排名≤临界值,输出成交额};
第三步,求取头部5%股票的成交额:
TOP5%_AMTSUM : INSUM('沪深A股','TOPAMT',1,0);
TOTAL_AMT := AMOUNT;
TOP5%_AMT := EXTDATA_USER(11,0);
CONGESTION := TOP5%_AMT / TOTAL_AMT * 100;
CONGESTION;
拥挤:45,DOTLINE;
