2008-1-31 11:22
狐狸
[大智慧2] KDJ MACD RSI CCI BIAS 背离指标
[code]{cci背离指标}
{N:=( 2 ,120, 14);
N1:=( 2, 250 ,36);
G:=( 1, 60, 15);
Z:=( 1, 100, 5);}
变动速率:"ROC(12,6).MAROC"*Z;
DD1:=REF(变动速率,1);
P:=(HIGH+LOW+CLOSE)/3;
CCI1:(P-MA(P,N))*1000/(G*AVEDEV(P,N)),COLORCYAN;
CCI2:=(P-MA(P,N1))*1000/(G*AVEDEV(P,N1));
B1:=BARSLAST(CCI1=LLV(CCI1,60));
DD:=C<REF(C,B1) AND CCI1>REF(CCI1,B1);
底背离:IF(DD,100,0),LINETHICK2,COLORRED;
机会难得:IF(CROSS(CCI1,CCI2) AND REF(CCI1,1)=LLV(CCI1,60),100,0),LINETHICK2,COLORYELLOW;
=======================================================
{kdj背离指标}
v1:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));
KDJ底背离:ref(c,v1+1)>c and ref("kdj.k",v1+1)<"kdj.k" and cross("kdj.k","kdj.d");
v2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));
KDJ顶背离:ref(c,v2+1)>c and ref("kdj.k",v2+1)<"kdj.k" and cross("kdj.d","kdj.k");
==========================================================
{MACD背离指标}
v1:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
MACD底背离:ref(c,v1+1)>c and ref("macd.diff",v1+1)<"macd.diff" and cross("macd.diff","macd.dea");
v2:=BARSLAST(ref(cross("macd.dea","macd.diff"),1));
MACD顶背离:ref(c,v2+1)>c and ref("macd.diff",v2+1)<"macd.diff" and cross("macd.dea","macd.diff");
==========================================================
{rsi背离指标}
v1:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));
RSI底背离:ref(c,v1+1)>c and ref("RSI.RSI1",v1+1)<"RSI.RSI1" and cross("RSI.RSI1","RSI.RSI2");
v2:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));
RSI顶背离:ref(c,v2+1)>c and ref("RSI.RSI1",v2+1)<"RSI.RSI1" and cross("RSI.RSI2","RSI.RSI1");
--------------------------------------------------------------------------------
{BIAS底背离 副图指标}
BIAS:="BIAS.BIAS1";
k4:=cross(BIAS,ma(BIAS,2));
A2:=BARSLAST(REF(k4,1));
B2:=REF(C,A2+1)>C AND REF(BIAS,A2+1)<BIAS AND k4;
FILTER(B2>0,5);[/code]