背离准确率100
大家可以用原版对照下,看看优化效果之余,再瞄瞄是否有升级空间!
N:=9;
DIF:=MA(CLOSE,9)-MA(CLOSE,7);
DEA:=MA(DIF,4);
MACD1:=(DIF-DEA)*2;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=MA(RSV,4);
D:=MA(K,4);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
RSI1:=MA(MAX(CLOSE-LC,0),9)/MA(ABS(CLOSE-LC),4)*100;
TYP1:=(HIGH+LOW+CLOSE)/3;
CCI1:=(TYP1-MA(TYP1,4))/(0.015*AVEDEV(TYP1,9));
DD:=C=LLV(C,N);
DDSJ:=BARSLAST(REF(DD,1));
DDGJ:=REF(CLOSE,DDSJ+1)>CLOSE;
KDZB:=REF(J,DDSJ+1);
K底背离:=DDGJ AND KDZB<J;
GD:=C=HHV(C,N);
GDSJ:=BARSLAST(REF(GD,1));
GDGJ:=REF(CLOSE,GDSJ+1)<CLOSE;
KGZB:=REF(J,GDSJ+1)>J;
K顶背离:=GDGJ AND KGZB;
MDZB:=REF(MACD1,DDSJ+1);
M底背离:=DDGJ AND MDZB<MACD1;
MGZB:=REF(MACD1,GDSJ+1)>MACD1;
M顶背离:=GDGJ AND MGZB;
RDZB:=REF(RSI1,DDSJ+1);
R底背离:=DDGJ AND RDZB<RSI1;
RGZB:=REF(RSI1,GDSJ+1)>RSI1;
R顶背离:=GDGJ AND RGZB;
CDZB:=REF(CCI1,DDSJ+1);
C底背离:=DDGJ AND CDZB<CCI1;
CGZB:=REF(CCI1,GDSJ+1)>CCI1;
C顶背离:=GDGJ AND CGZB;
DRAWTEXT(K顶背离, IF(ISLASTBAR, 27.5, 25), '←'), LINETHICK2;
DRAWTEXT(M顶背离, IF(ISLASTBAR, 24.5, 20), '←'), LINETHICK2;
DRAWTEXT(R顶背离, IF(ISLASTBAR, 20.5, 15), '←'), LINETHICK2;
DRAWTEXT(C顶背离, IF(ISLASTBAR, 15.5, 10), '←'), LINETHICK2;
DRAWTEXT(ISLASTBAR, 10.1, 'CCI '), LINETHICK2, COLORGREEN;
DRAWTEXT(C底背离, IF(ISLASTBAR, 12, 10), '←'), LINETHICK2, COLORRED;
DRAWTEXT(ISLASTBAR, 15, 'RSI '), LINETHICK2, COLORRED;
DRAWTEXT(R底背离, IF(ISLASTBAR, 8.5, 15), '←'), LINETHICK2, COLORRED;
DRAWTEXT(ISLASTBAR, 20, 'MACD '), LINETHICK2, COLORMAGENTA;
DRAWTEXT(M底背离, IF(ISLASTBAR, 4.5, 20), '←'), LINETHICK2, COLORRED;
DRAWTEXT(ISLASTBAR, 25, 'KDJ '), LINETHICK2, COLORRED;
DRAWTEXT(K底背离, IF(ISLASTBAR, 1.5, 25), '←'), LINETHICK2, COLORRED;
综合顶:=K顶背离+M顶背离+R顶背离+C顶背离;
综合底:=C底背离+R底背离+M底背离+K底背离;
相对顶背离:=综合顶=3;
DRAWICON(综合顶=3 AND C<(REF(C,1)*0.99), 40, 1);
DRAWICON(综合底=4 AND C<(REF(C,1)*0.99), 0, 1);
