同花顺MACD&KDJ顶底背离副图指标 源码

我是转载别人的，我也没有用过，不知道好不好用，不要以这个指标为准。

BU:=BARSLAST(CLOSE=HHV(CLOSE,60));
SE:=BARSLAST(CLOSE=LLV(CLOSE,60));
KK1:=SE;
KK2:=BU;
LM1:=SE;
LM2:=BU;
OK:=KK1>KK2 AND LM1>LM2;
OK1:=KK1>KK2 AND LM1<LM2;
NOK:=KK2>KK1 AND LM2>LM1;
NOK1:=KK2>KK1 AND LM2<LM1;
DRAWICON(CROSS(KK1,KK2),OPEN*1,1);
DRAWTEXT(CROSS(KK1,KK2),OPEN*0.985,'抓'),color3cb371;
T:=BARSCOUNT(C);
均价:=DYNAINFO(11);
总量:=SUM(VOL,T);
总额:=SUM(AMOUNT,T);
均价:=总额/(总量*100);
次数:=COUNT(CLOSE>均价,T);
占比:=次数/T*100;
分时强势:DRAWICON(CROSS(CLOSE,均价) AND CLOSE>均价 AND 占比>80 AND T>5,CLOSE*0.99,7);
DRAWTEXT(CROSS(CLOSE,均价) AND CLOSE>均价 AND 占比>80 AND T>5,CLOSE*0.98,'涨价'),colorFFFF00;
VAR1:=AMOUNT/VOL/100;
VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR3:=SUM(AMOUNT,5)/VAR1/100;
VAR4:=SUM(AMOUNT,13)/VAR1/100;
VAR5:=SUM(AMOUNT,34)/VAR1/100;
CYC5:=DMA(VAR2,VOL/VAR3);
CYC13:=DMA(VAR2,VOL/VAR4);
CYC34:=DMA(VAR2,VOL/VAR5);
CYC∞:=DMA(VAR2,VOL/CAPITAL);
一剑封喉:=CROSS(CLOSE,MA(CLOSE,13)) AND CROSS(CLOSE,MA(CLOSE,34)) AND CROSS(CLOSE,MA(CLOSE,55));
A1:=(CLOSE-LLV(LOW,22))/(HHV(HIGH,22)-LLV(LOW,22))*100;
A2:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
A:=3*SMA(A1,5,1)-2*SMA(SMA(A2,5,1),3,1);
YNGS:=一剑封喉 AND A<30;
DRAWICON(一剑封喉 AND A<30,LOW*0.985,10);
DRAWTEXT(一剑封喉 AND A<30,LOW*0.98,'停'),colorFF0000;
c1:=REF(C,1);
c2:=HHV(c1,2);
c3:=LLV(c1,1);
et:=HHV(c1,2);
et1:=REF(et,1);
xb:=LLV(c1,1);
xb1:=REF(xb,1);
m:=BARSLAST(C<xb AND c1>=xb1);
m11:=REF(m,1);
n9:=BARSLAST(C>et AND c1<=et1);
n1:=REF(n9,1);
m21:=BARSLAST(m-n9>0 AND m11<=n1)+1;
n2:=BARSLAST(n9-m>0 AND n1<=m11)+1;
et2:=HHV(et,m21);
xb2:=LLV(xb,n2);
a:=IF(m-n9>0 AND m11<=n1,1,IF(n9-m>0 AND n1<=m11,0,2));
h1:=IF(m-n9>0,C,et2);
h2:=IF(a=1,C,c2);
h3:=IF(m-n9<0,C,xb2);
h4:=IF(a=1,C,xb2);
h5:=IF(m-n9>0 OR a=1,C,h3);
明关键价位:REF(h5,1);
MA1:=MA(CLOSE,2);
Var1:=MA(C, 1);
Var2:=MA(C, 5);
Var3:=MA(C, 10);
Var4:=MA(C, 20);
Var5:=MA(C, 30);
Var6:=(Var1+Var2+Var3+Var4+Var5)/5;
Var7:=(Var6-REF(Var6, 15))/REF(Var6,15)*100;
Var8:=(Var6-REF(Var6, 15))/REF(Var6, 15)*100;
Var9:=EMA(Var7, 8);
平均价:=(H+4*L+C+O)/7;
均价差:= EMA(平均价,13) - EMA(平均价,34);
移动均价:= EMA(均价差,5);
差:=(均价差-移动均价)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=平均价,平均价,差) );
分水岭:=FORCAST(FORCAST(A,31),10);
涨↑:IF(A>分水岭,A,分水岭),LINETHICK1,colorred;
跌↓:IF(A<分水岭,A,分水岭),LINETHICK1,colorgreen;
ma6:=MA(C,6);
ma18:=MA(C,18);
ma55:=MA(C,55);
ma125:=MA(C,125);
ma250:=MA(C,250);
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=REF(B1,10+1); HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=REF(B2,10+1); LD:=REF(C2,10);
AA:=REF(C,BARSLAST(HD)); B:=REF(C,BARSLAST(LD));
t11:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
t21:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波峰:IF(t11,AA,AA),ColorFF00FF,POINTDOT;
STICKLINE(t11,AA,AA,9,0),ColorFF00FF;
波谷:IF(t21,B,B),Color80FF00,POINTDOT;
STICKLINE(t21,B,B,9,0),Color80FF00;
买进价:=((C-REF(ma6,1))/6+ma6)*1.004;
买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
黄点状线:IF(买进条件,H,L),coloryellow,linethick1,POINTDOT;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(IF(B1>0,1,0),L-0.1,'MACD底背'),colorgreen;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*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);
DRAWTEXT(IF(B2>0,1,0),L-0.25,'KDJ底背'),coloryellow;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,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);
DRAWTEXT(IF(B3>0,1,0),L-0.4,'RSI底背'),colorcyan;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D1>0,1,0),H*1.01,'MACD顶背'),colorwhite;
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT(IF(D2>0,1,0),H+0.15,'KDJ顶背'),colorwhite;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H+0.1,'RSI顶背'),colormagenta;
REF(H,C1),colorB48246,POINTDOT;
KK:=DATE<1341231;
PK:=VOL*(OPEN+CLOSE+HIGH+LOW)/4;
PK1:=IF(VOL>0,PK/VOL,(OPEN+CLOSE+HIGH+LOW)/4);
C11:=PK1;
A01:=(C11-LLV(C11,75))/(HHV(C11,75)-LLV(C11,75));
A11:=SMA(A01,13,1);
A21:=SMA(A11,13,1);
A31:=3*A11-2*A21;
A41:=2*A31-0.5;
ZS:=DYNAINFO(3)*0.95;
选1:=IF(KK,C11*(1-(A41-A21)/40),0);
选2:=CROSS(C11,选1) AND CLOSE/REF(CLOSE,1)<1.03;
选3:IF(选2,ZS*1.03,ZS),colorgreen;