发一个简单的MACD公式(通达信)

发一个简单的MACD公式(通达信)

源码正文：

用法：红色柱——底背离；黄色柱——低位金叉；紫色柱——二次金叉。其它趋势均有提示。取自网上，加以合成修改，以供判断。
源码：实用macd
dif:=ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9),COLOR33CCFF{XG51};
DRAWBAND(DIF,RGB(155,50,50),DEA,RGB(0,100,50)){XG51};
MacD:(DIF-DEA)*2,COLORstICK,COLORLIMAGENTA;

K1:=BACKSET(DIF>REF(DIF,1),2){XG51};
持仓:IF(K1,DIF,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
K2:=BACKSET(DIF<REF(DIF,1),2){XG51};
空仓:IF(K2,DIF,DRAWNULL),COLOR33FF33,LINETHICK1{XG51};
STICKLINE(持仓,0,0,2,0),COLORWHITE{XG51};
STICKLINE(空仓,0,0,2,0),COLORCYAN;

STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,0,1),COLORWHITE{XG51};
STICKLINE(MACD>=0 AND MACD< REF(MACD,1),0,MACD,0,1),COLORLIMAGENTA{XG51};
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,0,1),COLOR33CCFF{XG51};
STICKLINE(MACD<0 AND MACD< REF(MACD,1),0,MACD,0,1),COLOR33FF33;

多头趋势:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0){XG51};
空头趋势:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0){XG51};
缩头:=IF(MACD>0 AND REF(MACD,1)>REF(MACD,2) AND MACD< REF(MACD,1),1,0){XG51};
缩脚:=IF(MACD<0 AND REF(MACD,1)< REF(MACD,2) AND MACD>REF(MACD,1),1,0){XG51};
阻力:=IF(crOSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0){XG51};
支撑:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0){XG51};
做多:=IF(CROSS(DEA,DIF) AND DIF>0 AND DEA>0,1,0){XG51};
放空:=IF(CROSS(DIF,DEA) AND DIF<0 AND DEA<0,1,0){XG51};
趋势:IF(DEA<1000,DEA,DRAWNULL),COLOR33CCFF,LINETHICK1;

低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1{XG51};
STICKLINE(低位金叉,0,0.1,2,0),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(DIF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二次金叉,0,0.2,2,0),COLORFF80FF{XG51};
A1:=BARSLAST(REF(CROSS(DIF,DEA),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA){XG51};
STICKLINE(底背离,0,0.1,2,0),COLORWHITE{XG51};
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF){XG51};
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN,LINETHICK2{X!G?5!1!C!N!{};

一个简单实用的kdj公式(通达信)

源码正文：

我把公式起名为“实用kdj”。源码为：
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:SMA(RSV,3,1){XG51};
D:Sma(K,3,1){XG51};
J:3*K-2*D{XG51};
VARK:=K,COLORRED{XG51};
升K:=IF(VARK>REF(VARK,1),VARK,DRAWNULL),COLORWHITE{XG51};
平K:=IF(VARK=REF(VARK,1),VARK,DRAWNULL),COLORRED{XG51};
降K:=IF(VARK<REF(VARK,1),VARK,DRAWNULL),COLORCYAN{XG51};
VARD:=D,COLORRED{XG51};
升D:=IF(VARD>REF(VARD,1),VARD,DRAWNULL),COLORWHITE{XG51};
平D:=IF(VARD=REF(VARD,1),VARD,DRAWNULL),COLORRED{XG51};
降D:=IF(VARD<REF(VARD,1),VARD,DRAWNULL),COLORCYAN{XG51};
VARJ:=J,COLORRED{XG51};
升J:IF(VARJ>REF(VARJ,1),VARJ,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
平J:IF(VARJ=REF(VARJ,1),VARJ,DRAWNULL),COLORRED,LINETHICK1{XG51};
降J:IF(VARJ<REF(VARJ,1),VARJ,DRAWNULL),COLORCYAN,LINETHICK1{XG51};
DRAWBAND(K,RGB(155,50,50),D,RGB(0,100,50)){XG51};
stICKLINE(J<0,J,0,1,1),COLORBLUE{XG51};
STICKLINE(J>100,J,100,1,1),COLORRED{X.G*5+1.C.N.{};