以下是通达信配合凤舞九天分时图的新编能量潮公式（无源码的请下载附件导入）

通达信配合凤舞九天分时图的新编能量潮公式

新编能量潮

均线: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))),COLORYELLOW;

均线H:(均线*1.007 ),COLORGREEN ,LINETHICK9;

均线L:(均线/1.005 ),COLORGREEN ,LINETHICK9;

均线横盘:=C<均线H AND C>均线L;

STICKLINE(均线横盘,均线L,均线,3,0),COLORYELLOW;

放量:=SUM(VOL,6)>REF(MA(VOL,30),1)*10;

横盘:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1;

横涨:=横盘 AND 放量 AND (C>均线H);

横跌:=横盘 AND 放量 AND CROSS(均线L,C) ;

突破:=FILTER(横涨,100);

下破:=FILTER(横跌,50);

DRAWTEXT(突破,均线H,'★突破压力上轨'),COLORGREEN;

MA30:=EMA(CLOSE,30);

强弱界定:EMA(CLOSE,900);

STICKLINE((MA30>强弱界定),MA30,强弱界定,2,0),COLOR0000FF;

STICKLINE((MA30<强弱界定),MA30,强弱界定,2,0),COLOR00FF00;

DRAWICON(CROSS(MA30,强弱界定),H,7);

H1:=MAX(DYNAINFO(3),DYNAINFO(5));

L1:=MIN(DYNAINFO(3),DYNAINFO(6));

P1:=H1-L1;

阻力:L1+P1*7/8,COLORYELLOW ,LINETHICK8;

支撑:L1+P1*0.5/8,COLORYELLOW,LINETHICK8;

现价:CLOSE,COLORWHITE,LINETHICK3;

CC:CLOSE,COLORWHITE,LINETHICK2;

STICKLINE(突破>0,支撑,阻力,1,0),COLORRED ,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))),COLORRED;

STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),COLORYELLOW;

DRAWTEXT(LONGCROSS(支撑,现价,2),支撑

*1.001,'买★★'),COLORYELLOW;{吸}

DRAWTEXT(LONGCROSS(现价,阻力,2),现价,'卖★★'),COLORRED;

A1:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;

A2:=(MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),2));

A3:=(C-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;

A4:=SMA(SMA(A3,3,1),3,1);

A5:=3*SMA(A3,3,1)-2*A4;

A6:=EMA(A5,5);

A7:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);

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)));

财神爷:=A2<3 AND A6<3 AND A7<8.5 AND A8<5;

STICKLINE(财神爷,58,55,14,0),COLOR00CCCC;

STICKLINE(财神爷,57,56,12,0),COLOR009999;

STICKLINE(财神爷,45,48,4,0),COLOR0077AA;

STICKLINE(财神爷,54,50,10,0),COLOR0088DD;

STICKLINE(财神爷,55,48,6,0),COLOR00AAFF;

STICKLINE(财神爷,53,52,4,0),COLOR000000;

STICKLINE(财神爷,53,50,1,0),COLOR0077EE;

STICKLINE(财神爷,60,55,7,0),COLOR8800CC;

STICKLINE(财神爷,60,63,4,0),COLOR7700AA;

财神:IF(财神爷,58,DRAWNULL),LINETHICK4,POINTDOT,COLORYELLOW;

STICKLINE(财神爷,26,20,12,0),COLORFFFFFF;

STICKLINE(财神爷,33,25,14,0),COLOR8800CC;

STICKLINE(财神爷,46,32,16,0),COLORAA00DD;

STICKLINE(财神爷,37,34,8,0),COLOR00AAFF;

STICKLINE(财神爷,50,44,2,0),COLOR000000;

STICKLINE(财神爷,49,49,1,0),COLOR0000EE;

DRAWICON(财神爷,39,9);

上线:=SMA(C,6.5,1);

下线:=SMA(C,13.5,1);

上线界:=SMA(C,3,1);

下线界:=SMA(C,8,1);

STICKLINE(上线>下线 , 上线,下线 ,2.5, 0),COLORRED,LINETHICK2;

STICKLINE(下线>上线,上线,下线,2.5,0),COLORBLUE,LINETHICK2;

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);

OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLORRED ,LINETHICK9;

MAOBV:MA(OBV,M);

DRAWTEXT_FIX(1,0.0,0.4,0,STRCAT('中报业绩：',EXTERNSTR(0,9))),COLORBLUE;

DRAWTEXT_FIX(1,0.0,0.2,0,STRCAT('年报业绩：',EXTERNSTR(0,8))),COLORYELLOW;

DRAWTEXT_FIX(1,0.6,0,0,STRCAT('业绩预报：',EXTERNSTR(0,14))),COLORYELLOW;

DRAWTEXT_FIX(1,0.0,0.6,0,STRCAT('机构评级：',EXTERNSTR(0,11))),COLORCYAN;

DRAWTEXT_FIX(1,0.6,0.2,0,STRCAT('解禁日期：',EXTERNSTR(0,15))),COLORBLUE;

DRAWTEXT_FIX(1,0.6,0.4,0,STRCAT('主题投资：',EXTERNSTR(0,10))),COLORBROWN;

DRAWTEXT_FIX(1,0.3,0.6,0,STRCAT('智能诊断：',EXTERNSTR(0,12))),COLORRED;

DRAWTEXT_FIX(1,0.0,0.8,0,STRCAT('敢死队席位：',EXTERNSTR(0,13))),COLORLIMAGENTA;

DRAWTEXT_FIX(1,0.0,0,0,STRCAT('千股千评：',EXTERNSTR(0,1))),COLORRED;