以下是通达信新编【筹码能量图】副图源码（无源码的请下载附件导入）

通达信新编【筹码能量图】副图源码

《筹码能量图》。

其实通达信指标大多数都由原分析家和飞狐指标编释过来。以前受到函数的

限制，编释过来的指标功能同样受到很大限制。现在通达信函数有很大的改善，

因此有些实用指标有进一步提高的必要。

指标分顶部顶〈变异KD〉区、底部信区、中间为〈主力控盘筹码〉区。一根

变色的〈筹码总量〉和有快慢区分的快线价量主线三条线(注意它们过20,80)。

左边有五天买卖盘量的对比图如百分比数椐(除当天外，其它是推算的)。横柱

当天是预测量作图。根部红色表示买盘大于卖盘洋红买盘小于卖盘。

我不喜欢教人买卖。一个指标最好多对比主图得出自已体会和方法。

★装《筹码能量图》之前得先装下面两个引用公式FSKY和FSKY2★
 

{FSKY}
比:=240/FROMOPEN;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘1:=DYNAINFO(23)*比;
卖盘1:=DYNAINFO(22)*比;
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C<300,买盘1,买盘2);
卖盘:=IF(ISLASTBAR AND PERIOD=5 AND C<300,卖盘1,卖盘2);
今量:买盘+卖盘;
主买:买盘;
昨量:REF(VOL,1);
昨主:REF(主买,1);
前量:REF(VOL,2);
前主:REF(主买,2);
前4:REF(VOL,3);
主4:REF(主买,3);
前5:REF(VOL,4);
主5:REF(主买,4);
ZO:REF(O,1);
ZC:REF(C,1);
ZH:REF(H,1);
ZL:REF(L,1);
JO:REF(O,2);
JC:REF(C,2);
JH:REF(H,2);
JL:REF(L,2);
JO3:REF(O,3);
JC3:REF(C,3);
JH3:REF(H,3);
JL3:REF(L,3);
JO4:REF(O,4);
JC4:REF(C,4);
JH4:REF(H,4);
JL4:REF(L,4);
JO5:REF(O,5);
JC5:REF(C,5);
JH5:REF(H,5);
JL5:REF(L,5);
JO6:REF(O,6);
JC6:REF(C,6);
JH6:REF(H,6);
JL6:REF(L,6);
JO7:REF(O,7);
JC7:REF(C,7);
JH7:REF(H,7);
JL7:REF(L,7);
JO8:REF(O,8);
JC8:REF(C,8);
JH8:REF(H,8);
JL8:REF(L,8);
JO9:REF(O,9);
JC9:REF(C,9);
JH9:REF(H,9);
JL9:REF(L,9);
MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);
MA60:MA(C,60);

=======================================================

{FSKY2}
比:=240/FROMOPEN;
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘1:=DYNAINFO(23)*比;
卖盘1:=DYNAINFO(22)*比;
买盘2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8));
卖盘2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7));
买盘:=IF(ISLASTBAR AND PERIOD=5 AND C<300,买盘1,买盘2);
卖盘:=IF(ISLASTBAR AND PERIOD=5 AND C<300,卖盘1,卖盘2);
今量:=买盘+卖盘;
差:=买盘-卖盘;
主买:=买盘;
昨量:=REF(VOL,1);
昨主:=REF(主买,1);
昨差:=REF(差,1);
前量:=REF(VOL,2);
前主:=REF(主买,2);
前差:=REF(差,2);
前4:=REF(VOL,3);
主4:=REF(主买,3);
差4:=REF(差,3);
前5:=REF(VOL,4);
主5:=REF(主买,4);
差5:=REF(差,4);
总5:=今量+昨量+前量+前4+前5;
总差:=差+昨差+前差+差4+差5;
一纯％:差/今量*100;
三纯％:(差+昨差+前差)/(今量+昨量+前量)*100;
五纯％:总差/总5*100;
上涨家数:INDEXADV;
下跌家数:INDEXDEC;