把底背离指标改个通达信的

编写条件：

源码如下： {底背离} INPUT:N(20,0,80); {1.MACD} DIFF :=EMA(CLOSE,7) - EMA(CLOSE,13); DEA := EMA(DIFF,3); MACD := 2*(DIFF-DEA); A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)); B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)C AND REF(K,A2+1)C AND REF(RSI1,A3+1)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 D编写方法：

&nbsp;N:=20;

 {1.macd}

 DIFF :=EMA(CLOSE,7) - EMA(CLOSE,13);

 DEA  := EMA(DIFF,3);

 MACD := 2*(DIFF-DEA);

 A1:=BARSLAST(REF(crOSS(DIFF,DEA),1));

 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);{MACD底背离}

 {2.kdj}

 RSV:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;

 K:=SMA(RSV,3,1);

 D:=SMA(K,3,1);

 A2:=BARSLAST(REF(CROSS(K,D),1));

 B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);{kdJ底背离}

 {3.rsi}

 LC := REF(CLOSE,1);

 RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;

 RSI2:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;

 A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));

 B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);{RSI底背离}

 

 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,1)  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 D<N ;