大智慧CCI-J公式源码

应同学的要求我重新发CCI-J公式.也是因为我也想强调CCI比起MACD和KDJ所发出的信号及时.比MADC来的快.比KDJ来的实在KDJ里虚信号多.而CCI每一个信号都相当及时准确.而这个CCI是我改造过的和一般的大不一样是多参数的.并且加了MACD.KDJ.RSI的背离信号以及相应的买卖信号.用起来会得心应手.是炒股不可缺的公式.新同学需要我就只好重复一遍.已经有的.请你路过.谢谢你进来看看.
 {ccI-J}
 DRAWGBKlast(DATE>900101,strip(RGB(0,0,150),RGB(0,0,40),0));
 TYB:= (HIGH + LOW + 2*CLOSE)/4;
 CCIA:=(TYB-MA(TYB,14))/(0.015*AVEDEV(TYB,14));
 CCIB:=(TYB-MA(TYB,28))/(0.015*AVEDEV(TYB,28));
 CCIC:=(TYB-MA(TYB,42))/(0.015*AVEDEV(TYB,42));
 CCI:WMA((CCIA+CCIB+CCIC)/3,3);
 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),COLOR00ff00,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;
 
{顶底背离}
 {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顶背离};
 {4.CCI}
 TYB:= (HIGH + LOW + 2*CLOSE)/4;
 CCI4:=(TYB-MA(TYB,28))/(0.015*AVEDEV(TYB,28));
 B4:=LAST(MA(C,5)<MA(C,10)<=5)  AND CCI4>REF(CCI4,1) AND CROSS(CCI4,-100);  { CCI底背离'}
 XG:=((B1 AND B2) OR (B2 AND B3) OR (B1 AND B3) OR ( B4 AND CCI4<-90) ) AND "KDJ.D"<30;
 
{转向选股}
 转向:=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;
 DRAWTEXT(LAST(MA(C,5)<MA(C,10)<=5)  AND CCI>REF(CCI,1) AND CROSS(CCI,-100),-100,'CCI底背离'),COLOR00ff00;