改一个指标到文华上 (文华财经)

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD:=(DIF-DEA)*2;

QJZXZ:=REFX1(MIN(REFX1(LLV(DIF,下移周期),99999),REFX1(LLV(MACD,下移周期),99999)),99999);

DRAWGBK(C>1,RGB(0,0,0),RGB(1,1,1),1);

QGZSJ1:=REFX1(BARSLAST(CROSS(0,MACD)),999999);

QGZSJ2:=REFX1(IF(MACD<0 AND ISLASTBAR,SUMBARS(CROSS(MACD,0),1),SUMBARS(CROSS(MACD,0),2)),999999);

ZDZ:=REFX1(REF(HHV(MACD,QGZSJ2-QGZSJ1),QGZSJ1),999999);

ZDZSJ:=REFX1(REF(HHVBARS(MACD,QGZSJ2-QGZSJ1),QGZSJ1)+QGZSJ1,999999);

HX:=TRENDLINES(ZDZ=MACD,MACD,REF(ZDZ=MACD,1),REF(MACD,1));

DRAWLINE1(ZDZ=MACD,MACD,REF(ZDZ=MACD,1),REF(MACD,1),1);

CURRBARSCOUNT:=REFX1(BARPOS,9999)-BARPOS+1;

NOTEXTQ22:IF(CURRBARSCOUNT<=ZDZSJ+1,HX,NULL),COLORYELLOW,DOT;

NOTEXTQ23:IF(CURRBARSCOUNT<=ZDZSJ+1,NOTEXTQ22*1.38,NULL),COLORBLACK,POINTDOT;

DRAWTEXT(CURRBARSCOUNT=ZDZSJ+1,MACD,'前横线'),COLORYELLOW;

SCSJ:=REFX1(BARSLAST(DIF<REF(DIF,1) AND REF(DIF,1)>REF(DIF,2)),99999)+1;

NOTEXTSCHX:IF(CURRBARSCOUNT<=SCSJ+1,REFX1(REF(DIF,SCSJ),99999),NULL),COLORGREEN,DOT;

DRAWICON(CROSS(DIF,NOTEXTSCHX),NOTEXTSCHX,1);

日DIF:DIF,COLORWHITE,NODRAW;

日DEA:DEA,COLORMAGENTA,NODRAW;

日MACD:MACD,COLORRED,NODRAW;

STICKLINE(日MACD>0,日MACD*日缩小数,0,0,0),COLORRED;

STICKLINE(日MACD<0,日MACD*日缩小数,0,0,0),COLORCYAN;

NOTEXTDIF:日DIF*日缩小数,COLORWHITE;

NOTEXTDEA:日DEA*日缩小数,COLORMAGENTA;

{更多指标关注微信公众号：程序化指标}

下移线1:=0.1;

周DIF:EMA(CLOSE,12*5)-EMA(CLOSE,26*5),COLORWHITE,NODRAW;

周DEA:EMA(周DIF,9*5),COLORMAGENTA,NODRAW;

周MACD:(周DIF-周DEA)*2,COLORRED,NODRAW;

MACD转换1:=周MACD*周放大数+下移线1;

T22:=周DIF*周放大数+下移线1;

QJZDZ:=REFX1(MAX(REFX1(HHV(T22,下移周期),99999),REFX1(HHV(MACD转换1,下移周期),99999)),99999);

下移线2:=-(ABS(QJZXZ)+ABS(QJZDZ));

MACD转换2:=周MACD*周放大数+下移线2;

STICKLINE(周MACD>0,MACD转换2,下移线2,0,1),COLORRED;

STICKLINE(周MACD<0,MACD转换2,下移线2,0,1),COLORCYAN;

NOTEXT22:周DIF*周放大数+下移线2,COLORMAGENTA;