DRAWBAND(DIFFA,RGB(255,64,64),DEAA,RGB(64,255,64));
MACDA:=(MACD-FHLB)*(KHLC/FHLC)+KHLB;
CDA:=MACD REF(MACD,1) AND MACD
CDB:=MACD =REF(MACD,1) AND MACD
CDC:=MACD REF(MACD,1) AND MACD
CDD:=MACD =REF(MACD,1) AND MACD
STICKLINE(CDA,SH,MACDA,0.1,0),COLORBLUE;{0上蓝柱}
STICKLINE(CDB,SH,MACDA,0.1,0),COLOR8000FF; {0上红柱}
STICKLINE(CDC,SH,MACDA,0.1,0),COLOR8000FF;{0下红柱}
STICKLINE(CDD,SH,MACDA,0.1,0),COLORBLUE;{0下蓝柱}
DRAWTEXT(BARSTATUS=2,SH,' 0轴'),COLORWHITE;
{-------------------------------------------------------------}
{传统KDJ}
KKK:SMA(RSV,3,1),COLORWHITE,LINETHICK2;
DDD:SMA(KKK,3,1),COLORYELLOW,LINETHICK2;
JJJ:3*KKK-2*DDD,COLORMAGENTA,LINETHICK2;
DRAWTEXT(ISLASTBAR,KKK,' K'),COLORWHITE;
DRAWTEXT(ISLASTBAR,DDD,' D'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,JJJ,' J'),COLORMAGENTA;
{MACD KDJ 金叉共振 信号}
A:=CROSS(DIFF,DEA) AND CROSS(KKK,DDD) AND CROSS(JJJ,DDD);
{共振出现时图标}
DRAWICON(A,20,25);
DRAWTEXT(A,20,' MACD&KDJ金叉共振'),COLORYELLOW;
{低位金叉标识}
低位金叉:=CROSS(DIFF,DEA) AND DIFF -0.1;
DRAWICON(低位金叉,10,41);
DRAWTEXT(低位金叉,10,' MACD低位金叉'),COLORWHITE;
{二次金叉}
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA =0));
二次金叉:=CROSS(DIFF,DEA) AND DEA 0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,0,41);
DRAWTEXT(二次金叉,0,' MACD二次金叉'),COLORYELLOW;
{MACD,KDJ,RSI顶底背离}
{MACD底背}
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1) C AND REF(DIFF,A1+1) DIFF AND CROSS(DIFF,DEA);
{MACD顶背}
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1) C AND REF(DIFF,C1+1) DIFF AND CROSS(DEA,DIFF);
{MACD底背信号}
DRAWICON((B1 0),-10,41);
DRAWTEXT((B1 0),-10,' MACD底背离'),COLORRED;
{MACD顶背信号}
DRAWICON((D1 0),-10,37);
DRAWTEXT((D1 0),-10,' MACD顶背离'),COLORGREEN;
{KDJ底背}
A2:=BARSLAST(REF(CROSS( KDJ.K (9,3,3), KDJ.D (9,3,3)),1));
B2:=REF(C,A2+1) C AND REF( KDJ.K (9,3,3),A2+1) KDJ.K (9,3,3) AND CROSS
( KDJ.K (9,3,3), KDJ.D (9,3,3));
{KDJ顶背}
C2:=BARSLAST(REF(CROSS( KDJ.D (9,3,3), KDJ.K (9,3,3)),1));
D2:=REF(C,C2+1) C AND REF( KDJ.K (9,3,3),C2+1) KDJ.K (9,3,3) AND CROSS
( KDJ.D (9,3,3), KDJ.K (9,3,3));
{KDJ底背信号}
DRAWICON((B2 0),85,41);
DRAWTEXT((B2 0),85,' KDJ底背离'),COLORWHITE;
{KDJ顶背信号}
DRAWICON((D2 0),85,37);
DRAWTEXT((D2 0),85,' KDJ顶背离'),COLORGREEN;
{RSI底背}
A3:=BARSLAST(REF(CROSS( RSI.RSI1 (6,12,24), RSI.RSI2 (6,12,24)),1));
B3:=REF(C,A3+1) C AND REF( RSI.RSI1 (6,12,24),A3+1) RSI.RSI1 (6,12,24) AND CROSS
( RSI.RSI1 (6,12,24), RSI.RSI2 (6,12,24));
{RSI顶背}
C3:=BARSLAST(REF(CROSS( RSI.RSI2 (6,12,24), RSI.RSI1 (6,12,24)),1));
D3:=REF(C,C3+1) C AND REF( RSI.RSI1 (6,12,24),C3+1) RSI.RSI1 (6,12,24) AND CROSS
( RSI.RSI2 (6,12,24), RSI.RSI1 (6,12,24));
{RSI顶背信号}
DRAWICON((D3 0),-20,37);
DRAWTEXT((D3 0),-20,' RSI顶背离'),COLORGREEN;
{RSI底背信号}
DRAWICON((B3 0),-20,41);
DRAWTEXT((B3 0),-20,' RSI底背离'),COLORRED;
{KDJ日周共振}
N:=1;
日K:=KDJ.K;
日D:=KDJ.D;
日J:=KDJ.J;
周K:=KDJ.K#WEEK,NODRAW;
周D:=KDJ.D#WEEK,NODRAW;
周J:=KDJ.J#WEEK,NODRAW;
日金叉:=CROSS(日K,日D) AND (日D 40 OR 日D
周金叉:=CROSS(周K,周D) AND (周D 40 OR 周D
{}
共振:=(周金叉 AND 日金叉);
DRAWTEXT((周金叉 AND 日金叉),75,' KDJ日周共振'),COLORYELLOW;
DRAWICON((周金叉 AND 日金叉),75,25);
