通达信新人气指标公式副图源码

以下是通达信新人气指标公式副图源码

{公式名称: 新人气指标

公式描述: 新人气指标

参数数量: 1

参数1: M, 最小: 2, 最大: 100, 缺省: 30

画线方法: 副图

公式版本: 2

公式源码:}

XA_1:=NOT(DATE=MAX(DATE,116071899));

XA_2:=90;

XA_3:=COST(XA_2+(100-XA_2)/2);

XA_4:=COST((100-XA_2)/2);

XA_5:=(XA_3-XA_4)/(XA_3+XA_4)*50;

XA_6:=2;

XA_7:=EVERY(REF(XA_5,1)>=XA_5,XA_6);

XA_8:=REF(XA_5,XA_6)>=XA_5;

XA_9:=XA_7 AND XA_8;

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

XA_11:=SUM(IF(CLOSE=REF(CLOSE,1),0,XA_10),0);

XA_12:=MA(XA_11,M);

人气A:XA_11*XA_1,NODRAW,COLORWHITE;

人气B:XA_12*XA_1,NODRAW,COLORYELLOW;

做多:IF(XA_5>=REF(XA_5,1) AND XA_12>REF(XA_12,1) AND XA_1,XA_11/10000,DRAWNULL),NODRAW,COLORRED;

XA_13:=IF(XA_5>=REF(XA_5,1) AND XA_12>REF(XA_12,1),XA_11,XA_12);

XA_14:=IF(XA_5<REF(XA_5,1) AND XA_12<REF(XA_12,1),XA_12,XA_11);

DRAWBAND(XA_11,RGB(58,58,58),XA_12,RGB(58,58,58));

DRAWBAND(XA_13,RGB(158,0,0),XA_12,RGB(158,0,0));

DRAWBAND(XA_14,RGB(48,128,20),XA_11,RGB(48,128,20));

NOTEXT人气A:XA_11,COLORWHITE,LINETHICK2;

NOTEXT人气B:XA_12,COLORYELLOW,LINETHICK2;

DRAWGBK(NOT(XA_1),RGB(8,0,0),RGB(0,0,8),1,2,1);