通达信新编能量潮分时选股指标公式源码

通达信新编能量潮分时选股指标公式源码

源码正文：

M:=3{XG51};
均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(vol*100,0)),
1.05,0.95)=0,ma(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORBLUE{XG51};
均线H:(均线*1.007 ),COLORCYAN ,LINETHICK9{XG51};
均线L:(均线/1.005 ),COLORCYAN ,LINETHICK9{XG51};
均线横盘:=C<均线H AND C>均线L{XG51};
stICKLINE(均线横盘,均线L,均线,3,0),COLORBLUE{XG51};
放量:=SUM(VOL,6)>REF(MA(VOL,30),1)*10{XG51};
横盘:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1{XG51};
横涨:=横盘 AND 放量 AND (C>均线H){XG51};
横跌:=横盘 AND 放量 AND crOSS(均线L,C) {XG51};
突破:=FILTER(横涨,100){XG51};
下破:=FILTER(横跌,50){XG51};
DRAWTEXT(突破,均线H,'★突破压力上轨'),COLORCYAN{XG51};
MA30:=ema(CLOSE,30){XG51};
强弱界定:EMA(CLOSE,900){XG51};
STICKLINE((MA30>强弱界定),MA30,强弱界定,2,0),COLOR0000FF{XG51};
STICKLINE((MA30<强弱界定),MA30,强弱界定,2,0),COLOR00FF00{XG51};
DRAWICON(CROSS(MA30,强弱界定),H,7){XG51};
H1:=MAX(DYNAINFO(3),DYNAINFO(5)){XG51};
L1:=MIN(DYNAINFO(3),DYNAINFO(6)){XG51};
P1:=H1-L1{XG51};
阻力:L1+P1*7/8,COLORBLUE ,LINETHICK8{XG51};
支撑:L1+P1*0.5/8,COLORBLUE,LINETHICK8{XG51};
现价:CLOSE,COLORRED,LINETHICK3{XG51};
CC:CLOSE,COLORRED,LINETHICK2{XG51};
STICKLINE(突破>0,支撑,阻力,1,0),COLORWHITE ,LINETHICK9;
JX:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),
1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORWHITE{XG51};
STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),COLORBLUE{XG51};
DRAWTEXT(LONGCROSS(支撑,现价,2),支撑
*1.001,'买★★'),COLORBLUE{XG51};
DRAWTEXT(LONGCROSS(现价,阻力,2),现价,'卖★★'),COLORWHITE{XG51};
A1:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100{XG51};
A2:=(MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),2)){XG51};
A3:=(C-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100{XG51};
A4:=SMA(SMA(A3,3,1),3,1){XG51};
A5:=3*SMA(A3,3,1)-2*A4{XG51};
A6:=EMA(A5,5){XG51};
A7:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3){XG51};
A8:=((3*SMA((((C-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*100),5,1))-(2*SMA(SMA((((C-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*100),5,1),3,1))){XG51};
财神爷:=A2<3 AND A6<3 AND A7<8.5 AND A8<5{XG51};
STICKLINE(财神爷,58,55,14,0),COLOR00CCCC{XG51};
STICKLINE(财神爷,57,56,12,0),COLOR009999{XG51};
STICKLINE(财神爷,45,48,4,0),COLOR0077AA{XG51};
STICKLINE(财神爷,54,50,10,0),COLOR0088DD{XG51};
STICKLINE(财神爷,55,48,6,0),COLOR00AAFF{XG51};
STICKLINE(财神爷,53,52,4,0),COLOR000000{XG51};
STICKLINE(财神爷,53,50,1,0),COLOR0077EE{XG51};
STICKLINE(财神爷,60,55,7,0),COLOR8800CC{XG51};
STICKLINE(财神爷,60,63,4,0),COLOR7700AA{XG51};
财神:IF(财神爷,58,DRAWNULL),LINETHICK4,POINTDOT,COLORBLUE{XG51};
STICKLINE(财神爷,26,20,12,0),COLORFFFFFF{XG51};
STICKLINE(财神爷,33,25,14,0),COLOR8800CC{XG51};
STICKLINE(财神爷,46,32,16,0),COLORAA00DD{XG51};
STICKLINE(财神爷,37,34,8,0),COLOR00AAFF{XG51};
STICKLINE(财神爷,50,44,2,0),COLOR000000{XG51};
STICKLINE(财神爷,49,49,1,0),COLOR0000EE{XG51};
DRAWICON(财神爷,39,9){XG51};
上线:=SMA(C,6.5,1){XG51};
下线:=SMA(C,13.5,1){XG51};
上线界:=SMA(C,3,1){XG51};
下线界:=SMA(C,8,1){XG51};
STICKLINE(上线>下线 , 上线,下线 ,2.5, 0),COLORWHITE,LINETHICK2{XG51};
STICKLINE(下线>上线,上线,下线,2.5,0),COLORYELLOW,LINETHICK2{XG51};
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL){XG51};
obv:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLORWHITE ,LINETHICK9{XG51};
MaoBV:MA(OBV,M){XG51};
DRAWTEXT_FIX(1,0.0,0.4,0,STRCAT('中报业绩：',EXTERNSTR(0,9))),COLORYELLOW{XG51};
DRAWTEXT_FIX(1,0.0,0.2,0,STRCAT('年报业绩：',EXTERNSTR(0,8))),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.6,0,0,STRCAT('业绩预报：',EXTERNSTR(0,14))),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.0,0.6,0,STRCAT('机构评级：',EXTERNSTR(0,11))),COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.6,0.2,0,STRCAT('解禁日期：',EXTERNSTR(0,15))),COLORYELLOW{XG51};
DRAWTEXT_FIX(1,0.6,0.4,0,STRCAT('主题投资：',EXTERNSTR(0,10))),COLORGRAY{XG51};
DRAWTEXT_FIX(1,0.3,0.6,0,STRCAT('智能诊断：',EXTERNSTR(0,12))),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.0,0.8,0,STRCAT('敢死队席位：',EXTERNSTR(0,13))),COLORMAGENTA{XG51};
DRAWTEXT_FIX(1,0.0,0,0,STRCAT('千股千评：',EXTERNSTR(0,1))),COLORWHITE{X_G+5!1_C_N_{};