以下是通達(dá)信仿指南針 資金趨勢(shì) 敢死隊(duì) 融勝解盤(pán)用的能量潮副圖指標(biāo)源碼（無(wú)源碼的請(qǐng)下載附件導(dǎo)入）

{仿指南針：資金趨勢(shì)}
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 ;

{仿指南針：敢死隊(duì)}
A:=VOL*CLOSE;
 B:=SUM(A,1)/SUM(VOL,1);
 B1:=EMA(B,8);
敢死隊(duì):(B-B1)*100/B,NODRAW,COLORRED;
 DRAWBAND(敢死隊(duì)+35,RGB(250,0,00),35,RGB(0,255,0));
 DRAWTEXT(ISLASTBAR,35.5,' 敢死隊(duì)'),COLORRED;
資金趨勢(shì):3*(EMA(C,3)-EMA(C,8)-EMA(EMA(C,3)-EMA(C,8),20))*5,NODRAW,COLORMAGENTA;

{通達(dá)信版融勝解盤(pán)用的能量潮}
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(能量<REF(能量,1),0,能量,2.5,0),COLORFF7800;
危險(xiǎn)區(qū):18,COLOR208FFF;
次險(xiǎn)區(qū):15,COLORFF33FF,DOTLINE;
 VAR3:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
 VAR4:=(IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2))/(IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2))*(-1))-IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2))*(-1)/IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2)));
 VAR5:=AMOUNT/(100*VOL);
 VAR6:=MA(VAR5,40);
 VAR7:=100*(CLOSE-VAR6)/VAR6;
底部區(qū): 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))));
量堆1:=IF(量堆=1,1000,0)/100,COLORYELLOW,LINETHICK3;

 {高低距------------------------}
DRAWRECTREL(200,990,0,0,RGB(10,0,0));{活動(dòng)框};

最高價(jià):=HIGH;
最低價(jià):=LOW;
比:=(H-L)/L*100;
低:=(C-L)/L*100;
圖比:=低/比*100;
 DRAWRECTREL(40,850,70,150,RGB(0,255,0));
 DRAWRECTREL(70,CONST(850-圖比*7),40,850,RGB(255,0,0));
 DRAWRECTREL(70,150,40,850,RGB(0,0,0));{活動(dòng)框};
DRAWTEXT_FIX(1,0.09,0.3,0,STRCAT(CON2STR(比-低,2),'%')),COLORRED;
 DRAWTEXT_FIX(1,0.09,0.6,0,STRCAT(CON2STR(低,2),'%')),COLORGREEN;
 DRAWTEXT_FIX(1,0.09,0.8,0,STRCAT(STRCAT('高低：',CON2STR(比,2)),' ％')),COLORWHITE;
高低開(kāi):=(OPEN-REFV(C,1))/REFV(C,1)*100,COLORWHITE,NODRAW;
 DRAWTEXT_FIX(1,0.09,0.05,0,STRCAT(STRCAT('開(kāi)盤(pán)：',CON2STR(高低開(kāi),2)),' ％')),COLORWHITE;