先建一个引入指标
{XTYY}
a1:close;
a2:high;
a3:low;{ 二代小天K-KDJ }
input: N(8,1,100),M(55,1,100);
zc:=STKINDI(STKLABEL,'xtyy.a1',0,7);//引用周收盘价;
zh:=STKINDI(STKLABEL,'xtyy.a2',0,7);//引用周最高价;
zl:=STKINDI(STKLABEL,'xtyy.a3',0,7);//引用周最低价;
RSV:=(zc-LLV(zl,n))/(HHV(zh,n)-LLV(zl,n))*100;
K:=eMA(RSV,3);
D:=eMA(K,3);
J:=3*K-2*D;
RSV24:=(CLOSE-LLV(LOW,m))/(HHV(HIGH,m)-LLV(LOW,m))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
支撑:IF(CROSS(j,j24),L,REF(L,BARSLAST(CROSS(j,j24)))),COLORYELLOW;
压力:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),COLorred;
U2L:=IF(C>=MA(C,21),80,50);
L2L:=IF(C>=MA(C,21),50,20);
RH1:=IF(j<U2L AND REF(j,1)>=U2L,HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)<U2L)-1),
REF(HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)<U2L)-1),BARSLAST(j<U2L AND REF(j,1))));
RH4:=IF(H>RH1,L,REF(L,BARSLAST(H>RH1)));
RH42:=IF(H>RH1,j,REF(j,BARSLAST(H>RH1)));
强压:IF(H>RH4 AND j<RH42 AND j<j24,H,REF(H,BARSLAST(H>RH4 AND j<RH42 AND j<j24))),COLORgreen;
RL1:=IF(j>L2L AND REF(j,1)<=L2L,LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),
REF(LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),BARSLAST(j>L2L AND REF(j,1))));
RL4:=IF(L<RL1,H,REF(H,BARSLAST(L<RL1)));
RL42:=IF(L<RL1,j,REF(j,BARSLAST(L<RL1)));
强撑:IF(L<RL4 AND j>RL42 AND j>j24,L,REF(L,BARSLAST(L<RL4 AND j>RL42 AND j>j24))),COLORMAGENTA;
STICKLINE(c>=o,l,h,0.1,0),colorred;
STICKLINE(c>=o,o,c,7,1),colorred;
STICKLINE(c<=o,l,h,0.1,0),colorcyan;
STICKLINE(c<=o,o,c,7,0),colorcyan; |
