以下是通达信仿指南针 资金趋势 敢死队 融胜解盘用的能量潮副图指标源码(无源码的请下载附件导入) {仿指南针:资金趋势} 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(能量<REF(能量,1),0,能量,2.5,0),COLORFF7800; 危险区:18,COLOR208FFF; 次险区: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 close="">OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<open,0-var3*(high-low),0-vol close="">OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<open,0-var3*(high-low),0-vol close="">OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2)));</open,0-var3*(high-low),0-vol></open,0-var3*(high-low),0-vol></open,var3*(high-open+close-low),vol> VAR5:=AMOUNT/(100*VOL); VAR6:=MA(VAR5,40); VAR7:=100*(CLOSE-VAR6)/VAR6; 底部区: IF(VAR4>0 AND VAR7<-12 and="" open="">1.07,300,200)/100,COLORFFFF00,DOTLINE;<!---12--> 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));{活动框}; 最高价:=HIGH; 最低价:=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));{活动框}; 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; 高低开:=(OPEN-REFV(C,1))/REFV(C,1)*100,COLORWHITE,NODRAW; DRAWTEXT_FIX(1,0.09,0.05,0,STRCAT(STRCAT("开盘:",CON2STR(高低开,2))," %")),COLORWHITE;