|
以下是通达信KDJ底背离（主图 副图/选股 源码）（无源码的请下载附件导入）
{主图}
T:=BARSLAST(L=LLV(L,10));
K:=KDJ.K;
L1:=REF(L,T);
L2:=REF(L1,T+1);
K1:=REF(K,T);
K2:=REF(K1,T+1);
TJ:=L1<L2 AND K1>K2 AND T=0 AND REF(T,1)>3;
TJT:=BARSLAST(TJ);
QF:=BACKSET(TJ,REF(T,1)+2);
QT:=BARSLAST(CROSS(QF=1,0.5));
VV:=HHV(VOL,20)/VOL;
KK:=IF(QF=1,K,-9999);
HH:=HHV(KK,QT);
TT:=BARSLAST(KK=HH);
TC:=QT-TJT;
XG:=CROSS(K,REF(KK,TT)) AND QT<20 AND VV>2.5 AND TC<7;
DRAWLINE(QT=0,L,TJT=0,L,0),COLORRED;
STICKLINE(XG,C,O,2,0),COLORBROWN;
STICKLINE(XG,H,L,0,0),COLORBROWN;
DRAWTEXT(QT=0,L*0.95,'底背离'),COLORYELLOW;
DRAWICON(XG,H*1.05,9);
{幅图}
RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV1,3,1);
D:SMA(K,3,1);
J:3*K-2*D,LINETHICK1;
T:=BARSLAST(L=LLV(L,10));
L1:=REF(L,T);
L2:=REF(L1,T+1);
K1:=REF(K,T);
K2:=REF(K1,T+1);
TJ:=L1<L2 AND K1>K2 AND REF(T,1)>3 AND T=0;
TJT:=BARSLAST(TJ);
QF:=BACKSET(TJ,REF(T,1)+2);
QT:=BARSLAST(CROSS(QF=1,0.5));
KK:=IF(QF=1,K,-9999);
HH:=HHV(KK,QT);
TT:=BARSLAST(KK=HH);
TC:=QT-TJT;
XG:=CROSS(K,REF(KK,TT)) AND QT<20 AND V<REF(V,1) AND HHV(VOL,20)/VOL>2.5 AND TC<7;
DRAWLINE(TT=0,K,REF(TT=0,1),REF(K,1),1),COLORGREEN;
DRAWLINE(QT=0,K,TJ,K,0),COLORRED,LINETHICK2;
DRAWICON(XG,K,1);
DRAWTEXT(QT=0,K,'底背离'),COLORYELLOW;
{选股}
RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV1,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
T:=BARSLAST(L=LLV(L,10));
L1:=REF(L,T);
L2:=REF(L1,T+1);
K1:=REF(K,T);
K2:=REF(K1,T+1);
TJ:=L1<L2 AND K1>K2 AND REF(T,1)>3 AND T=0;
TJT:=BARSLAST(TJ);
QF:=BACKSET(TJ,REF(T,1)+2);
QT:=BARSLAST(CROSS(QF=1,0.5));
KK:=IF(QF=1,K,-9999);
HH:=HHV(KK,QT);
TT:=BARSLAST(KK=HH);
TC:=QT-TJT;
XG:CROSS(K,REF(KK,TT)) AND QT<20 AND V<REF(V,1) AND HHV(VOL,20)/VOL>2.5 AND TC<7;
750577405.jpg
|
