《股票-恭请老师编写三背离选股公式.docx》由会员分享，可在线阅读，更多相关《股票-恭请老师编写三背离选股公式.docx（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、恭请老师编写三背离选股公式恭请教师编写选股公式：选出KDJ底背离ORRSI底背离ORMACD底背离ORMACD_KDJ金叉共振ORKDJ(日/周/月)共振的股票公式三背离金叉指标副图：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)>CANDREF(DIF,A1+1)<DIFANDCROSS(DIF,DEA)
2、;A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3),1);B2:=REF(C,A2+1)>CANDREF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3)ANDCROSS ("KDJ.K"(9,3,3),"KDJ.D"(9,3,3);A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12
3、,24),1);B3:=REF(C,A3+1)>CANDREF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24)ANDCROSS ("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24);C1:=BARSLAST(REF(CROSS(DEA,DIF),1);D1:=REF(C,C1+1)<CANDREF(DIF,C1+1)>DIFANDCROSS(DEA,DIF);C2:=BARSLAST(REF(CROSS("KD
4、J.D"(9,3,3),"KDJ.K"(9,3,3),1);D2:=REF(C,C2+1)<CANDREF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3)ANDCROSS ("KDJ.D"(9,3,3),"KDJ.K"(9,3,3);C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24),1);D3:=REF(C,C3+1)<CANDR
5、EF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24)ANDCROSS ("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24);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顶背离),C
6、OLORFF8000;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;D
7、RAWTEXT(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)ANDCROSS(K,D)ANDCROSS(J,D);STICKLINE(A,0,100,3,0),COLORYELLOW;DRAWICON(A,92,25);DRAWICON(A,42,25);DRAWTEXT(A,93,MACD_KDJ金叉
8、共振),COLORYELLOW;DRAWTEXT(A,43,KDJ_MACD金叉共振),COLORYELLOW;日DIF:="MACD.DIF#DAY"日DEA:="MACD.DEA#DAY"日死叉:STICKLINE(日DIF<日DEA,80,85,3,0),COLORFF8000;日金叉:STICKLINE(日DIF>日DEA,80,85,3,0),COLORRED;DRAWTEXT(ISLASTBAR,82,_日MACD),COLORYELLOW;周DIF:="MACD.DIF#WEEK"(12,26,9);周DEA
9、:="MACD.DEA#WEEK"(12,26,9);周死叉:STICKLINE(周DIF<周DEA,70,75,3,0),COLORFF8064;周金叉:STICKLINE(周DIF>周DEA,70,75,3,0),COLOR3232FF;DRAWTEXT(ISLASTBAR,72,_周MACD),COLORYELLOW;月DIF:="MACD.DIF#MONTH"(12,26,9);月DEA:="MACD.DEA#MONTH"(12,26,9);月死叉:STICKLINE(月DIF<月DEA,60,65,3,0)
10、,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#WEE
11、K,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<40OR日D>60);K周金叉:=CROSS(周K,周D)AND(周D<40OR周D>60);K月金叉:=CROSS(月K,月D)AND(
12、月D<40OR月D>60);共振KDJ:=(K周金叉ANDK日金叉)OR(K周金叉ANDK月金叉)OR(K日金叉ANDK月金叉)OR(K日金叉ANDK周金叉ANDK月金叉);STICKLINE(共振KDJ,0,50,3,0),COLORYELLOW;DRAWICON(共振KDJ,42,25);DRAWTEXT(K周金叉ANDK日金叉)OR(K周金叉ANDK月金叉)OR(K日金叉ANDK月金叉)OR(K日金叉ANDK周金叉ANDK月金叉),42,KDJ(日/周/月)共振),COLORYELLOW;NOTEXT月K:IF(N=3,月K,DRAWNULL),COLORWHITE,LINE
13、THICK0;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,LINETHICK0;NOTEXT周D:IF(N=2,周D,DRAWNULL),COLORYELLOW,LINETHICK0;NOTEXT周J:IF(N=2,周J,DRAWNULL),COLORMAGENTA,LINETHICK0;NOTEXT日K:IF(N=1,日K,DRAWNULL),COL
14、ORWHITE,LINETHICK0;NOTEXT日D:IF(N=1,日D,DRAWNULL),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;STICKLIN
15、E(周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
16、(0,0,180,990,RGB(250,0,250);DRAWTEXT_FIX(ISLASTBAR,0.111,0.03,0,KDJ(日/周/月),COLOR00FFFF;DRAWTEXT_FIX(ISLASTBAR,0.101,0.18,0,日K=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.140,0.18,0,日K),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.101,0.31,0,日D=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.140,0.31,0,日D),COLORFFFFFF
17、;DRAWTEXT_FIX(ISLASTBAR,0.101,0.44,0,周K=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.140,0.44,0,周K),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.101,0.57,0,周D=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.140,0.57,0,周D),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.101,0.70,0,月K=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.140,0
18、.70,0,月K),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.101,0.83,0,月D=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.140,0.83,0,月D),COLORFFFFFF;DRAWRECTREL(0,0,90,990,RGB(220,0,0);DRAWTEXT_FIX(ISLASTBAR,0.023,0.03,0,MACD(日/周/月),COLOR00FFFF;DRAWTEXT_FIX(ISLASTBAR,0.01,0.18,0,日DIF=),COLORFFFFFF;DRAWNUMBER_FIX(ISLAST
19、BAR,0.05,0.18,0,日DIF),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.01,0.31,0,日DEA=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.05,0.31,0,日DEA),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.01,0.44,0,周DIF=),COLORFFFFFF;DRAWNUMBER_FIX(ISLASTBAR,0.05,0.44,0,周DIF),COLORFFFFFF;DRAWTEXT_FIX(ISLASTBAR,0.01,0.57,0,周DEA=),COLORF
20、FFFFF;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(ISLASTBAR,0.05,0.83,0,月DEA),COLORFFFFFF; 本帖最后由玉溪12345于2016-8-1314:41编辑假如互助答疑不能解决需求，可以到?威客任务?发布有偿悬赏。