[AG261016]量能红孩副图-通达信指标源码分享

01 量能进机器，先过磅再认向

上礼拜拆到个老零件，装法是倒着的：成交量的钱数算完，不直接画线，先开个平方再说。别急着骂花活，量能红孩这台副图三道工序咬得死紧，对上卡口你才发现，那格方根是给整台机器配的减震。成交量看不出名堂的时候，机器比眼睛稳。

先认这几个零件：

头道工序是过磅。N 天的成交量摞一起，除以流通盘，换手率这块料就有了。VAR1 那行接着把这个比例掰成劲道分，再折回股数口径，缩到万为单位。你注意看，这一步的产物不是线，是一列钱数。

接着是认向这道。钱数乘上收盘价，得个新数。今天比昨天高、昨天又不输前天，挂正牌；反着来挂负牌；急转弯另有俩双号牌。一台机器的舌头上就这一个开关。

压秤那道最怪，先按下不表，后面拆它。

02 指标源码分享｜量能红孩副图

指标编号：AG261016

指标完整源码：

N:=23;VAR1:=(100-100/(1+SUM(VOL,N)/CAPITAL))*CAPITAL*96/10000;LNC:=VAR1*CLOSE;B1:=REF(LNC,1);B2:=REF(LNC,2);SS:=IF(LNC>REF(LNC,1)ANDREF(LNC,1)>=REF(LNC,2),1,IF(LNC<REF(LNC,1)ANDREF(LNC,1)<=REF(LNC,2),-1,IF(LNC>REF(LNC,2)ANDREF(LNC,2)>REF(LNC,1),2,IF(LNC<REF(LNC,2)ANDREF(LNC,2)<REF(LNC,1),-2,0))));SM:=IF(REF(SS,1)>0,REF(SS,1),IF(REF(SS,2)>0,REF(SS,2),IF(REF(SS,3)>0,REF(SS,3),IF(REF(SS,4)>0,REF(SS,4),IF(REF(SS,5)>0,REF(SS,5),IF(REF(SS,6)>0,REF(SS,6),IF(REF(SS,7)>0,REF(SS,7),0)))))));MC:=IF(REF(SS,1)>0,B2,IF(SM>0,MIN(B1,B2),MAX(B1,B2))),COLORFF00FF;SS1:=IF(LNC>REF(LNC,1)ANDREF(LNC,1)>=REF(LNC,2),1,IF(LNC<REF(LNC,1)ANDREF(LNC,1)<=REF(LNC,2),-1,IF(LNC>REF(LNC,2)ANDREF(LNC,2)>REF(LNC,1),2,IF(LNC<REF(LNC,2)ANDREF(LNC,2)<REF(LNC,1),-2,0))));SM1:=IF(REF(SS,1)<0,REF(SS,1),IF(REF(SS,2)<0,REF(SS,2),IF(REF(SS,3)<0,REF(SS,3),IF(REF(SS,4)<0,REF(SS,4),IF(REF(SS,5)<0,REF(SS,5),IF(REF(SS,6)<0,REF(SS,6),IF(REF(SS,7)<0,REF(SS,7),0)))))));MC1:=IF(REF(SS,1)<0,B2,IF(SM>0,MIN(B1,B2),MAX(B1,B2))),COLORFF00FF;A:MA(SQRT(MC),1),COLORFF9933,LINETHICK2;IF(A>=REF(A,1),A,DRAWNULL),COLORRED,LINETHICK4;IF(A<REF(A,1),A,DRAWNULL),COLORFF9933,LINETHICK2;A1:MA(SQRT(MC1),5),COLOR33FF33,LINETHICK2;IF(A1>=REF(A1,1),A1,DRAWNULL),COLORFF00FF,LINETHICK3;IF(A1<REF(A1,1),A1,DRAWNULL),COLOR33FF33,LINETHICK2;IF(A1>REF(A1,1),A1,DRAWNULL),COLOR00FFFF,POINTDOT,LINETHICK5;

这套过磅认向的写法，我归到 #量能# 底下攒着。#成交量##换手率##副图指标# 也搁同一档，往后翻旧账顺手。

03 开方压秤，八格记忆

硬骨头就三块，顺着工序往下拧。

先拧过磅这颗螺丝：

VAR1:=(100-100/(1+SUM(VOL,N)/CAPITAL))*CAPITAL*96/10000

里头 SUM(VOL,N)/CAPITAL 是 N 天累计换手，一个光溜溜的比例。100 减去 100/(1+它)，等于把比例掰成一段零到一百的劲道分，量堆得越厚，分越往上顶。乘回 CAPITAL 又变回股数口径，打九六折再除个万，单位就齐了。

N 这个口子，两头我都吃过亏：收到 10，单日一放量线就蹦起来，抖得没法看；放到 60，量都换过两轮血了，线还在打盹。二十到三十是个能用的区间，23 卡在缝里——比 20 多出三天容错，比 25 少了两天迟滞。别嫌零头，零头就是手感。

方向牌挂上之后麻烦来了：今天压根没牌，怎么办？这台机器的答案是往回翻。

SM:=IF(REF(SS,1)>0,REF(SS,1),IF(REF(SS,2)>0,REF(SS,2),……八层嵌套到 REF(SS,8)))

一格一格往回找，找到最近一次正号牌为止，翻满八格还没有就记零。这玩意儿是全台我最喜欢的零件——逐格回看的骨架，拧下来就能搬去别的公式接着使，改个方向、换个格数都是现成的。

取哪天的钱数，MC 说了算：昨天有正牌，直接用前前天的老数；靠记忆找回来的是正号，取两天里矮的那根；是负号，取高的那根。矮的那根，懂行的都管它叫托底位。取完才轮到那道倒装的工序——

A:MA(SQRT(MC),1)

开方压秤。钱数一开方，大数压得狠、小数压得轻，高峰削一层，矮坑垫一层，一根线才装得下整段行情的起伏。这里藏着个彩蛋：外头套的 MA，括号里填的是 1——等于一根都没匀，MA(X,1) 恒等于它自己。看着多余，其实是占位活扣，哪天想匀一匀了，把 1 改成 3 就行。写指标的老手常干这事，给以后的自己留门。

上色也全是写法：橙线 A 站着走就描红加粗，趴下就还原成橙的；绿线 A1 老实做了五日匀速，翻红描一层紫、再垫一排青色点线，动静全写在颜色里，图上不用标一个字。

我的取舍摆这儿：记忆那八层嵌套我原样留，不压成花哨写法。看着笨，可每个格位清清楚楚，回头改一眼到行。省三行代码，赔一层透明，这买卖我不换。

回去把 N 从 23 挪到 13 再跑一遍，看橙线碎不碎、方根压不压得住，拆完评论区报个信。