夜雨聆风所有程序均为免费分享
DIF:=( EMA(CLOSE,12) - EMA(CLOSE,26));
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA),STICK;
STICKLINE(DIF<0,0,DIF,2,0),COLORGREEN;
STICKLINE(DIF>=0,0,DIF,2,0),COLOR00FFFF;
STICKLINE(DEA>=0,0,DEA,2,-1),COLOR0000FF;
STICKLINE(DEA<0,0,DEA,2,-1),COLORGREEN;
DRAWICON(CROSS(DIF,DEA),DIF,1);
DRAWICON(CROSS(DEA,DIF),DEA,2);
STICKLINE(DIF>=REF(DIF,1) AND DEA>REF(DEA,1) AND DIF<0,0,DIF,2,0),COLORFF00FF;
金叉:=CROSS(DIF,DEA);
死叉:=CROSS(DEA,DIF);
底部入场:IF(DIF>=REF(DIF,1) AND DEA<REF(DEA,1),DIF,DRAWNULL),LINETHICK8;
短线离场:IF(DIF<REF(DIF,1) AND DEA>REF(DEA,1),DIF,DRAWNULL)COLORFF0000,LINETHICK8;
IF(DIF>=REF(DIF,1) AND DEA>REF(DEA,1),DIF,DRAWNULL)COLORFF00FF,LINETHICK6;
IF(DIF<REF(DIF,1) AND DEA<REF(DEA,1),DIF,DRAWNULL),COLOR00FF00,LINETHICK8;
红柱天数:IF(BARSLAST(MACD<0),BARSLAST(MACD<0),0),NODRAW,COLORRED;
绿柱天数:IF(BARSLAST(MACD>0),BARSLAST(MACD>0),0),NODRAW,COLORGREEN;
SC:=BARSLAST(死叉);
ZBXS:=LLV(C,SC+1);
ZBXSX:=LLV(DIF,SC+1);
ZBXS2:=REF(ZBXS,SC+1);
ZBXSX2:=REF(ZBXSX,SC+1);
ZBXS3:=REF(ZBXS2,SC+1);
ZBXSX3:=REF(ZBXSX2,SC+1);
AAA:=IF(ZBXSX2>0,INTPART(LOG(ZBXSX2))-1,INTPART(LOG(-ZBXSX2))-1);
BBB:=INTPART(ZBXSX2/POW(10,AAA));
CCC:=IF(ZBXSX3>0,INTPART(LOG(ZBXSX3))-1,INTPART(LOG(-ZBXSX3))-1);
DDD:=INTPART(ZBXSX3/POW(10,CCC));
CXH:=INTPART(DIF/POW(10,AAA));
CXH2:=INTPART(DIF/POW(10,CCC));
直接底背离:=(ZBXS<ZBXS2 ) AND (CXH>BBB) AND (MACD<0 AND REF(MACD,1)<0) AND CXH<=REF(CXH,1);
DRAWTEXT_FIX(1,0.85,0,0,'☆微信公众号：(程序化指标) ☆'),COLORRED;
隔峰底背离:=(ZBXS<ZBXS3 AND ZBXS3<ZBXS2 ) AND (CXH2>DDD) AND (MACD<0 AND REF(MACD,1)<0) AND CXH2<=REF(CXH2,1);
DBL:=直接底背离 OR 隔峰底背离;
BG:=((CXH>REF(CXH,1))*REF(直接底背离,1)) OR ((CXH2>REF(CXH2,1))*REF(隔峰底背离,1)),NODRAW;
底背离消失:=(REF(直接底背离,1) AND ZBXSX<=ZBXSX2 ) OR (REF(隔峰底背离,1) AND ZBXSX<=ZBXSX3);
DRAWTEXT(TFILTER(DBL,MACD>0,1),(DIF+MACD),'下跌钝化'),COLORRED;
DRAWTEXT(TFILTER(底背离消失,DBL,1),(DIF+MACD),'消失'),COLORYELLOW;
DRAWTEXT(TFILTER(BG,MACD>0,1),DIF*1.1,'底背离'),COLOR0000FF;
JC:=BARSLAST(金叉);
CXHZB1:=HHV(C,JC+1);
CXHZBC1:=HHV(DIF,JC+1);
CXHZB2:=REF(CXHZB1,10);
CXHZBC2:=REF(CXHZBC1,10);
CXHZB3:=REF(CXHZB2,10);
CXHZBC3:=REF(CXHZBC2,10);
EEE:=IF(CXHZBC2>0,INTPART(LOG(CXHZBC2))-1,INTPART(LOG(-CXHZBC2))-1);
FFF:=INTPART(CXHZBC2/POW(10,EEE));
GGG:=IF(CXHZBC3>0,INTPART(LOG(CXHZBC3))-1,INTPART(LOG(-CXHZBC3))-1);
HHH:=INTPART(CXHZBC3/POW(10,GGG));
CXH3:=INTPART(DIF/POW(10,EEE));
CXH4:=INTPART(DIF/POW(10,GGG));
直接顶背离:=(CXHZB1>CXHZB2 ) AND (CXH3<FFF) AND (MACD>0 AND REF(MACD,1)>0) AND CXH3>=REF(CXH3,1);
隔峰顶背离:=(CXHZB1>CXHZB3 AND CXHZB3>CXHZB2 ) AND (CXH4<HHH) AND (MACD>0 AND REF(MACD,1)>0) AND CXH4>=REF(CXH4,1);
BL:=直接顶背离 OR 隔峰顶背离;
TG:=((CXH3<REF(CXH3,1))*REF(直接顶背离,1)) OR ((CXH4<REF(CXH4,1))*REF(隔峰顶背离,1)),NODRAW;
顶背离消失:=(REF(直接顶背离,1) AND CXHZBC1>=CXHZBC2 ) OR (REF(隔峰顶背离,1) AND CXHZBC1>=CXHZBC3);
DRAWTEXT(TFILTER(BL,MACD<0,1),(DIF+MACD),'上涨钝化'),COLORGREEN;
DRAWTEXT(TFILTER(顶背离消失,BL,1),(DIF+MACD),'消失'),COLORYELLOW;
DRAWTEXT(TFILTER(TG,MACD<0,1),DIF*1.02,'顶背离'),COLORMAGENTA;
嫌弃手动复制麻烦者
进入我的自营微信小程序用一键复制指标公式源码
我不会安装怎么办？
按下面步骤3分钟搞安装成功
安装步骤：打开通达信 → Ctrl + F → 公式管理器
点击【新建】→ 类型选【技术指标——副图】
名称输入：（程序化MACD)
贴代码 → 点击【确定】
在副图中调用即可
借平台之力、靠你我之手，传到每一个真正需要的人面前。
