找规律公式通达信指标公式源码顶背离,底背离

2020年9月21日发(作者：郑敦训)

0轴上方，是macd日周月,红色是金叉，蓝色是死叉，
50轴下方,是kdj日周月,玫红色是金叉，绿色是死叉；
指标参考论坛上某位仁兄的kdj日周月设计，
我把macd的日周月也加进去，增加金叉共振提示，macd的顶底背离，
kdj 和rsi的顶底背离……
买点说明，金叉共振是买点， 底背离是买点， 出现顶背离信号要注意，
kdj日线和周线都金叉，是很好的买点。


{XXXXXX BY SHUHONG}

DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
DIF:EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;
DEA:EMA(DIF,9),LINETHICK0;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIF,A1+1)A2:=BARSLAST(REF(CROSS(
B2:=REF(C,A2+1)>C AND REF(
(
A3:=BARSLAST(REF(CROSS(
B3:=RE F(C,A3+1)>C AND REF(
CROSS
(
C1:=BARSLAST(REF(CROSS(DEA,DIF),1));
D1:=REF(C,C1+1)DIF AND CROSS(DEA,DIF);
C2:=BARSLAST(REF(CROSS(
D2:=REF(C,C2+1)(
C3:=BARSLAST(REF(CROSS(
D3:=RE F(C,C3+1)CROSS
(
STICKLINE(B1>0,110,100,3,0),COLORRED;
DRAWTEXT((B1>0),104.5,' MACD底背离'),COLORRED;
STICKLINE(D1>0,110,100,3,0),COLORFF8000;
DRAWTEXT((D1>0),104.5,' MACD顶背离'),COLORFF8000;
STICKLINE(B2>0,0,-10,3,0),COLORFA00FA;
DRAWTEXT((B2>0),-6,' KDJ底背离'),COLORFA00FA;
STICKLINE(D2>0,0,-10,3,0),COLORGREEN;
DRAWTEXT((D2>0),-6,' KDJ顶背离'),COLORGREEN;
STICKLINE(B3>0,-20,-10,3,0),COLORYELLOW;
DRAWTEXT((B3>0),-15,' RSI底背离'),COLORYELLOW;
STICKLINE(D3>0,-20,-10,3,0),COLORCYAN;
DRAWTEXT((D3>0),-15,' RSI顶背离'),COLORCYAN;
RSV:=(CLOSE- LLV(LOW,9))(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,9,3),LINETHICK0;
D:SMA(K,9,3),LINETHICK0;
J:3*K-2*D,LINETHICK0;
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
STICKLINE(A,0,100,3,0),COLORYELLOW;
DRAWICON(A,92,25);DRAWICON(A,42,25);
DRAWTEXT(A,93,' ★MACD_KDJ金叉共振'),COLORYELLOW;
DRAWTEXT(A,43,' ★KDJ_MACD金叉共振'),COLORYELLOW; < br>日DIF:=
日DEA:=
日死叉:STICKLINE(日DIF<日DEA,80, 85,3,0),COLORFF8000;
日金叉:STICKLINE(日DIF>日DEA,80,85,3,0),COLORRED;
DRAWTEXT(ISLASTBAR,82,'__日MACD'),COLORYELLOW;
周DIF:=
周DEA:=
周死叉:STICKLINE(周DIF<周DEA,70 ,75,3,0),COLORFF8064;
周金叉:STICKLINE(周DIF>周DEA, 70,75,3,0),COLOR3232FF;
DRAWTEXT(ISLASTBAR,72,'__周MACD'),COLORYELLOW;
月DIF:=
月DEA:=
月死叉:STICKLINE(月DIF<月DEA,60 ,65,3,0),COLORFF808C;
月金叉:STICKLINE(月DIF>月DEA ,60,65,3,0),COLOR5032FF;
DRAWTEXT(ISLASTBAR,62,'__月MACD'),COLORYELLOW;
N:=1;
月K:KDJ.K#MONTH,NODRAW,COLORWHITE,LINETHICK0;
月D:KDJ.D#MONTH,NODRAW,COLORYELLOW,LINETHICK0;
月J:KDJ.J#MONTH,NODRAW,COLORMAGENTA,LINETHICK0;
周K:KDJ.K#WEEK,NODRAW,COLORWHITE,LINETHICK0;
周D:KDJ.D#WEEK,NODRAW,COLORYELLOW,LINETHICK0;
周J:KDJ.J#WEEK,NODRAW,COLORMAGENTA,LINETHICK0;
日K:KDJ.K,NODRAW,COLORWHITE,LINETHICK0;
日D:KDJ.D,NODRAW,COLORYELLOW,LINETHICK0;
日J:KDJ.J,NODRAW,COLORMAGENTA,LINETHICK0;
K日金叉:=CROSS(日K,日D) AND (日D<40 OR 日D>60);
K周金叉:=CROSS(周K,周D) AND (周D<40 OR 周D>60);
K月金叉:=CROSS(月K,月D) AND (月D<40 OR 月D>60);
共振KDJ:=(K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K
月金叉)OR (K日金叉 AND
K周金叉 AND K月金叉);
STICKLINE(共振KDJ,0,50,3,0),COLORYELLOW;
DRAWICON(共振KDJ,42,25);
DRAWTEXT((K周金叉 AND K日金叉) OR (K周金叉 AND K月金叉) OR (K日金叉 AND K
月金叉)OR (K日金叉 AND
K周金叉 AND K月金叉),42,' ★KDJ(日周月)共振'),COLORYELLOW;
NOTEXT月K:IF(N=3,月K, DRAWNULL),COLORWHITE,LINETHICK0;
NOTEXT月D:IF(N =3,月D,DRAWNULL),COLORYELLOW,LINETHICK0;
NOTEXT 月J:IF(N=3,月J,DRAWNULL),COLORMAGENTA,LINETHICK0; NOTEXT周K:IF(N=2,周K,DRAWNULL),COLORWHITE,LINETHIC K0;
NOTEXT周D:IF(N=2,周D,DRAWNULL),COLORYELLOW,L INETHICK0;
NOTEXT周J:IF(N=2,周J,DRAWNULL),COLORM AGENTA,LINETHICK0;
NOTEXT日K:IF(N=1,日K,DRAWNULL ),COLORWHITE,LINETHICK0;
NOTEXT日D:IF(N=1,日D,DR AWNULL),COLORYELLOW,LINETHICK0;
NOTEXT日J:IF(N= 1,日J,DRAWNULL),COLORMAGENTA,LINETHICK0;
STICKLINE(日K>=日D,30,35,3,0),COLOR8000FF;
STICKLINE(日K< 日D,30,35,3,0),COLOR009600;
DRAWTEXT(ISLASTBAR,27,'__日KDJ'),COLORWHITE;
STICKLINE(周K>=周D,20,25,3,0),COLOR803CFF;
STICKLINE(周K< 周D,20,25,3,0),COLOR3C9600;
DRAWTEXT(ISLASTBAR,17,'__周KDJ'),COLORWHITE;
STICKLINE(月K>=月D,10,15,3,0),COLOR8050FF;
STICKLINE(月K< 月D,10,15,3,0),COLOR649600;
DRAWTEXT(ISLASTBAR,7,'__月KDJ'),COLORWHITE;
0,LINETHICK1,DOTLINE,COLORWHITE;
50,LINETHICK1,COLORWHITE;
100,LINETHICK1,DOTLINE,COLORWHITE;
DRAWRECTREL(0,0,180,990,RGB(250,0,250));
D RAWTEXT_FIX(ISLASTBAR,0.111,0.03,0,'KDJ(日周月)'),COL OR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.18,0, '日K='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0 .140,0.18,0,日K),COLORFFFFFF;
DRAWTEXT_FIX(ISLA STBAR,0.101,0.31,0,'日D='),COLORFFFFFF;
DRAWNUM BER_FIX(ISLASTBAR,0.140,0.31,0,日D),COLORFFFFFF; DRAWTEXT_FIX(ISLASTBAR,0.101,0.44,0,'周K='),COLOR FFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.44,0, 周K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101, 0.57,0,'周D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLA STBAR,0.140,0.57,0,周D),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101,0.70,0,'月K= '),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.140,0.70,0, 月K),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.101, 0.83,0,'月D='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLA STBAR,0.140,0.83,0,月D),COLORFFFFFF;
DRAWRECTREL(0,0,90,990,RGB(220,0,0));
DRAW TEXT_FIX(ISLASTBAR,0.023,0.03,0,'MACD(日周月)'),COLOR 00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.18,0,'日D IF='),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0. 05,0.18,0,日DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLA STBAR,0.01,0.31,0,'日DEA='),COLORFFFFFF;
DRAWNU MBER_FIX(ISLASTBAR,0.05,0.31,0,日DEA),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.44,0,'周DIF='),CO LORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.44, 0,周DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0. 01,0.57,0,'周DEA='),COLORFFFFFF;
DRAWNUMBER_FIX (ISLASTBAR,0.05,0.57,0,周DEA),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.70,0,'月DIF= '),COLORFFFFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.05,0.70,0, 月DIF),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.01 ,0.83,0,'月DEA='),COLORFFFFFF;
DRAWNUMBER_FIX(I SLASTBAR,0.05,0.83,0,月DEA),COLORFFFFFF;