通达信KDJ+宝塔顶底组合指标

源码

{白色柱子大底}
大底1:STICKLINE(CROSS(((CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100),-24),80,0,2,0),COLORYELLOW;
 AAAA:CROSS(((CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100),-24);
 DRAWTEXT(AAAA,75,'大底');

50;

N:=9;
 KN:=3;
 DN:=3;
 RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
 K:SMA(RSV,KN,1),COLOR0099FF;
 D:SMA(K,DN,1),COLORYELLOW;
 J:3*K-2*D,COLORYELLOW;
 IF(J>=REF(J,1),J,DRAWNULL),COLORRED;
 IF(J<REF(J,1),J,DRAWNULL),COLORAA8800;
 IF(K>=REF(K,1),K,DRAWNULL),COLOR0099FF;
 IF(K<REF(K,1),K,DRAWNULL),COLORAA8800;
 IF(D>=REF(D,1),D,DRAWNULL),COLORYELLOW;
 IF(D<REF(D,1),D,DRAWNULL),COLORAA8800;

DRAWBAND(K,RGB(220,0,220),D,RGB(180,140,140));
 DIF1:=EMA(CLOSE,8)-EMA(CLOSE,13);
 DEA1:=EMA(DIF1,6);
二阳包阴:=CROSS(C<REF(C,1),1) AND C>O AND CROSS(C,REF(O,1));
阳包阴:=CROSS(C,REF(O,1)) AND REF(O>C,1);
小包阳:=EVERY(C>O,2) AND C>REF(C,1) AND O<REF(O,1);
 XG:二阳包阴 OR 阳包阴 OR 小包阳;
买进: IF(XG,20,0),LINETHICK2,COLORWHITE;
 STICKLINE(J>95,95,J,2,0),COLORGREEN;
 STICKLINE(J<5,5,J,2,0),COLORRED;

底:= 5,COLORCYAN, COLOR77AA1A;
小顶: 95,COLORCYAN,COLOR22A6E6;
抄底:IF(J<=0,J,0),COLORRED,LINETHICK2;
风险:IF(J>=100,J,0),COLORGREEN,LINETHICK1;
警惕:IF(D>=80,D,0),COLORYELLOW,LINETHICK2;
顶:100,COLOR22A6E6,LINETHICK1;

VAR1:=3;
 VAR2:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
股价准备启动:IF(CROSS(VAR2,VAR1),100,0),COLORRED;
神秘买点:IF((VAR2 <= 3),25,0),COLORFF00FF;
机构建增补仓:IF((VAR2 < 5),45,0),COLOR00FF00;

OBV:=J;
 P8:=12;
 A1:=REF(OBV,P8)=HHV(OBV,2*P8+1);
 B1:=FILTER(A1,P8);
 C1:=BACKSET(B1,P8+1);
 D1:=FILTER(C1,P8);{高点1}
 R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1);
 DRAWLINE(D1,OBV,S11,OBV,1),COLORCYAN,DOTLINE;
 A2:=REF(OBV,P8)=LLV(OBV,2*P8+1);
 B2:=FILTER(A2,P8);
 C2:=BACKSET(B2,P8+1);
 D2:=FILTER(C2,P8);{低点1}
 T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1);
 DRAWLINE(D2,OBV,U11,OBV,1),COLORCYAN,DOTLINE;
 Q1:=INTPART(3*8/18);
 A12:=REF(OBV,Q1)=HHV(OBV,2*Q1+1);
 B12:=FILTER(A12,Q1);
 C12:=BACKSET(B12,Q1+1);
 D12:=FILTER(C12,Q1);{高点2}
 R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1); S112:=R112>REF(R112,1);
 DRAWLINE(S11,OBV,S112,OBV,1),COLORCYAN,DOTLINE;
 Q2:=INTPART(3*8/18);
 A22:=REF(OBV,Q2)=LLV(OBV,2*Q2+1);
 B22:=FILTER(A22,Q2);
 C22:=BACKSET(B22,Q2+1);
 D22:=FILTER(C22,Q2);{低点2}
 T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1); U112:=T112>REF(T112,1);
 DRAWLINE(U11,OBV,U112,OBV,1),COLORCYAN,DOTLINE;
 DRAWICON(D2,OBV,26);
 DRAWICON(D1,OBV,27);

{顶部明确}
VAR177:=REF(CLOSE,1);
 VAR277:=((SMA(MAX((CLOSE - VAR177),0),7,1) / SMA(ABS((CLOSE - VAR177)),7,1)) * 100);
 VAR377:=CROSS(79,VAR277);
 VAR477:=FILTER(VAR377,4);
 VAR577:=(((HHV(HIGH,36) - CLOSE) / (HHV(HIGH,36) - LLV(LOW,36))) * 100);
 VAR677:=SMA(VAR577,5,1);
 VAR777:=SMA(VAR677,8,1);
 VAR877:=(CROSS(VAR677,VAR777) AND (VAR777 < 5));
 VAR977:=((CLOSE > (LLV(CLOSE,60) + (0.3 * LLV(CLOSE,60)))) AND VAR877);
 VAR1077:=IF((CLOSE > 1000),VAR877,VAR977);
 VAR1177:=VAR1077;
 DRAWTEXT(VAR477,98,'☆顶'),COLORMAGENTA;

{宝塔顶底}
VAR22:=LLV(LOW,10);
 VAR32:=HHV(HIGH,25);
阶段卖出:= 3.2,COLORCYAN;

清仓卖出:= 3.5;
动力线:= EMA((CLOSE-VAR22)/(VAR32-VAR22)*4,4)*30;
 STICKLINE(动力线>REF(动力线,1) ,动力线 ,REF(动力线,1),2 ,1),COLORRED;
 STICKLINE(动力线<=REF(动力线,1) ,动力线 ,REF(动力线,1),2 ,1),COLORGREEN;
底部介入:=0.2,COLORGREEN;
重点关注:=0.5, COLORYELLOW;
 DRAWICON( FILTER(CROSS(动力线,重点关注),20),动力线+0.02 ,1);
 DRAWICON( FILTER(CROSS(清仓卖出,动力线),20),动力线+0.02,2);
 DRAWICON( FILTER(CROSS(动力线,底部介入),20),动力线+0.02 ,1);
 DRAWICON( FILTER(CROSS(阶段卖出,动力线),20),动力线+0.02,2);
强弱分界线:=1.75,POINTDOT,COLORDDDDDD;

{上证顶部}
SD1:=100*(INDEXC-LLV(INDEXL,34))/(HHV(INDEXH,34)-LLV(INDEXL,34));
 MA1:=SMA(SD1,3,1);
 SD2:=100*(INDEXC-LLV(INDEXL,64))/(HHV(INDEXH,64)-LLV(INDEXL,64));
 MA2:=SMA(SD2,3,1);
 VAR18:=(2*INDEXC+INDEXH+INDEXL+INDEXO)/5;
 VAR28:=EMA(EMA(EMA(VAR18,4),4),4);
 SJ:=(VAR28-REF(VAR28,1))/REF(VAR28,1)*100;
 SD:=MA(SJ,2);
 SK:=MA(SJ,1);
卖出:=-(CROSS(90,MA1) OR CROSS(90,MA2) AND CROSS(EMA(CLOSE,3),C)),COLORYELLOW;
 {上证底部}
买进8:=CROSS(MA2,19) AND SK>SD AND CROSS(EMA(C,3),EMA(C,8)),COLORRED;
 DRAWTEXT(卖出,80,'顶部'),COLORYELLOW;
 DRAWTEXT(买进8,30,'底部'),COLORYELLOW;