【红豆糕】我好久就改了如下源码.里边有选股条文.有事到实战交流去找我 {CCI-J} DRAWGBKlast(DATE>900101,strip(RGB(0,0,150),RGB(0,0,40),0)); TYB:= EMA((HIGH + LOW + 2*CLOSE)/4,3); CCI1:=(TYB-MA(TYB,8))/(0.015*AVEDEV(TYB,8)); CCI2:=(TYB-MA(TYB,11))/(0.015*AVEDEV(TYB,11)); CCI3:=(TYB-MA(TYB,21))/(0.015*AVEDEV(TYB,21)); CCI4:=(TYB-MA(TYB,34))/(0.015*AVEDEV(TYB,34)); CCI:EMA((CCI1+CCI2+CCI3+CCI4)/4,5); IF(CROSS(REF(CCI,1),CCI) AND CCI>100,60,100),COLOR0077ff; IF(CROSS(CCI,REF(CCI,1)) AND CCI<-150,-60,-100),COLOR00ffff; XG: IF(CROSS(CCI,REF(CCI,1)) AND CCI<-150 AND "KDJ.J"(9,3,3)<10 ,-80,-100),COLOR0000ff; {选股} PARTLINE(cci,cci>REF(cci,1),rgb(255,0,0),cci<=REF(cci,1),rgb(0,255,0) ),LINETHICK2; A1:=cci>REF(cci,1) and REF(cci,1)<REF(cci,2); C1:=BACKSET(A1>0,2); D1:=(C1>0 AND REF(C1,1)<1); A2:=cci<REF(cci,1) and REF(cci,1)>REF(cci,2); C2:=BACKSET(A2>0,2); D2:=(C2>0 AND REF(C2,1)<1); R1:=BACKSET(DISPSTATUS=2,BARSLAST(D1)+1); S1:=R1>REF(R1,1); T1:=BACKSET(DISPSTATUS=2,BARSLAST(D2)+1); U1:=T1>REF(T1,1); R2:=BACKSET(S1,REF(BARSLAST(D1),1)+2); S2:=R2>REF(R2,1); T2:=BACKSET(U1,REF(BARSLAST(D2),1)+2); U2:=T2>REF(T2,1); DRAWLINE(S2,cci,S1,cci,1),COLORBLUE,linethick4; DRAWLINE(U2,cci,U1,cci,1),POINTDOT,COLORBLUE,linethick4; Var12:=(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))*100; 能量线:SMA(Var12,3,1)*(-1)+100,colorRED,linethick0; KNX:=SMA(Var12,3,1); MK:=MA(KNX,18); XG买:IF(KNX>45 AND CROSS(MK , KNX),-50,-100),COLOR00ff00; {顶底背离} DRAWTEXTABS(10,5,'CCI大于100掉头或顶背离必卖'),COLOR00FFFF,LINETHICK4; DRAWTEXTABS(300,5,'CCI小于-100掉头或底背离必买'),COLOR00ff00,LINETHICK4; {1.MACD} A1:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1)); B1:=REF(C,A1+1)>C AND REF("MACD.DIFF",A1+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA"); DRAWTEXT(B1>0,-100,'M底背'),COLOR00FFFF,LINETHICK1;{MACD底背离}; C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFf"),1)); D1:=REF(C,C1+1)<C AND REF("MACD.DIFf",C1+1)>"MACD.DIFf" AND CROSS("MACD.DEA","MACD.DIFf"); DRAWTEXT(D1>0,95,'M顶背'),COLOR0077FF,LINETHICK1;{MACD顶背离}; {2.KDJ} A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)); B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"); DRAWTEXT(B2,-50,'J9底背'),COLOR00FFFF,LINETHICK1;{KDJ底背离}; C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)); D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K"); DRAWTEXT(D2>0,80,'J9顶背'),COLOR0077FF,LINETHICK1;{KDJ顶背离}; {3.RSI} A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1)); B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2"); DRAWTEXT(B3>0,-80,'R底背'),COLOR00FFFF,LINETHICK1;{RSI底背离} C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)); D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1"); DRAWTEXT(D3>0,65,'R顶背'),COLOR0077FF,LINETHICK1;{RSI顶背离}; {转向选股} 转向:=TROUGHBARS(3,15,1)<10; {3--收盘.15--转向幅度.前【1个】的ZIG转向波谷值} DDX10红天:=count("DDX.DDX">0,10)>5; if(转向>ref(转向,1) AND "DDX.DDX">0 AND DDX10红天,0,-100),COLORff00ff,linethick1; ; |
|