通达信资金能量潮副图源码

其中仿指南针的主力资金和资金趋势两个指标，以及改为通达信的融胜解盘用的能量潮指标都让我非常喜欢和欣赏，于是就尝试把这三个非常实用的指标放在一个副图中使用。经过我一番努力，终于在不改变三个指标原有图形的情况下，成功地把这三个公式同时重现在了一个副图上。再加上一个量堆公式，更方便我们发现一些牛股。

{仿指南针：资金趋势}
DRAWBAND(3*(EMA(C,3)-EMA(C,8)-EMA(EMA(C,3)-EMA(C,8),20))*5+20,RGB(250,80,80),20,RGB(0,180,180 ));
DRAWTEXT(ISLASTBAR,20.5,'资金趋势'),COLORMAGENTA ;

{仿指南针：主力资金}
A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,8);
主力资金:(B-B1)*100/B,NODRAW,COLORRED;
DRAWBAND(主力资金+35,RGB(250,0,00),35,RGB(0,255,0));
DRAWTEXT(ISLASTBAR,35.5,'主力资金'),COLORRED;
资金趋势:3*(EMA(C,3)-EMA(C,8)-EMA(EMA(C,3)-EMA(C,8),20))*5,NODRAW,COLORMAGENTA;

{通达信版融胜解盘用的能量潮}
VAR2:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*200*10;
能量: SMA(VAR2,5,1)/100,COLORRED;
DRAWBAND(能量>REF(能量,1),RGB(250,0,120),0,RGB(0,180,180));
STICKLINE(能量>REF(能量,1),0,能量,2.5,0),COLOR7800FF;
STICKLINE(能量 危险区:18,COLOR208FFF;
次险区:15,COLORFF33FF,DOTLINE;
VAR3:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR4:=(IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSEOPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSEOPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSEOPEN,VAR3*(HIGH-LOW),IF(CLOSE VAR5:=AMOUNT/(100*VOL);
VAR6:=MA(VAR5,40);
VAR7:=100*(CLOSE-VAR6)/VAR6;
底部区: IF(VAR4>0 AND VAR7<-12 AND CLOSE/OPEN>1.07,300,200)/100,COLORFFFF00,DOTLINE;
DRAWTEXT(ISLASTBAR,1.5,' 能量潮'),COLOR7800FF ;

量堆:=COUNT(V>=REF(V,1)*2,BARSLAST(CROSS(C,MA(C,20))));
量堆（:IF(量堆=1,1000,0)/100,COLORYELLOW,LINETHICK3;