通达信K线理念综合主图选股指标公式源码

通达信K线理念综合主图选股指标公式源码

源码正文：

ma10:MA(C,10),COLOR00FFFF,NODRAW{XG51};
MA5:MA(C,5),COLOR0000FF,NODRAW{XG51};
HH9:=HHV(H,9){XG51};
LL9:=LLV(L,9){XG51};
RSVZ9:=(C-LL9)/(HH9-LL9){XG51};
K:=SMA(RSVZ9*100,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
KZ9:=SMA(RSVZ9,3,1){XG51};
DZ9:=SMA(KZ9,3,1){XG51};
JZ9:=3*KZ9-2*DZ9{XG51};
ZTK9:=KZ9*(HH9-LL9)+LL9{XG51};
ZTD9:=DZ9*(HH9-LL9)+LL9{XG51};
ZTJ9:JZ9*(HH9-LL9)+LL9,COLORDDDDDD,NODRAW{XG51};
ZTJE:=ema(ZTJ9,3){XG51};
HYY50:(H/((HH9+LL9)/2)-1)*100,NODRAW{XG51};
JCJ:=(ZTJ9/((H+MAX(C,O))/2)-1)*100{XG51};
YY20:=0.20*(HH9-LL9)+LL9{XG51};
YY25:=0.25*(HH9-LL9)+LL9{XG51};
YY50:0.5*(HH9-LL9)+LL9,COLORFF0000,DOTLINE,NODRAW{XG51};
YY45:=0.45*(HH9-LL9)+LL9{XG51};
YY65:=0.65*(HH9-LL9)+LL9{XG51};
YY70:=0.70*(HH9-LL9)+LL9{XG51};
YY78:=0.78*(HH9-LL9)+LL9{XG51};
YY85:=0.85*(HH9-LL9)+LL9{XG51};
YY95:=0.95*(HH9-LL9)+LL9{XG51};
LLKB:=LLV(L,BArslAst(crOSS(50,K))+1){XG51};
HHKB:=HHV(H,BARSLAST(CROSS(K,50))+1){XG51};
LDKL:=LLV(L,BARSLAST(CROSS(EMA(ZTJ9,3),ZTJ9))+1){XG51};
LDKJ:=LLV(ZTJ9,BARSLAST(CROSS(EMA(ZTJ9,3),ZTJ9))+1){XG51};
RSVZ34:=(C-LLV(L,34))/(HHV(H,34)-LLV(L,34)){XG51};
KZ34:=SMA(RSVZ34,3,1){XG51};
DZ34:=SMA(KZ34,3,1){XG51};
JZ34:=3*KZ34-2*DZ34{XG51};
ZTK34:=KZ34*(HHV(H,34)-LLV(L,34))+LLV(L,34){XG51};
ZTD34:=DZ34*(HHV(H,34)-LLV(L,34))+LLV(L,34){XG51};
ZTJ34:=JZ34*(HHV(H,34)-LLV(L,34))+LLV(L,34){XG51};
DRAWBAND(0.5*(HH9-LL9)+LL9,RGB(60,80,84),0.25*(HH9-LL9)+LL9,DRAWNULL){XG51};
DRAWBAND(IF(ZTJ34>=(HHV(H,34)+LLV(L,34))/2,(HH9+LL9)/2,DRAWNULL),RGB(80,55,84),IF(ZTJ34>=(HHV(H,34)+LLV(L,34))/2,0.25*(HH9-LL9)+LL9,DRAWNULL),DRAWNULL){XG51};
XXX_101:=ZTJ9{XG51};
XXX_102:=ZTD9{XG51};
STICKLINE(C<O,H,L,0,0),COLORFFF000{XG51};
STICKLINE(C<O,C,O,3.2,1),COLORFFF000{XG51};
STICKLINE(C>=O,H,L,0,0),COLOR0000FF{XG51};
STICKLINE(C>=O,C,O,3.2,1),COLOR0000FF{XG51};
STICKLINE(ZTK9<YY25 AND C<O,H,L,0,0),COLORFF0000{XG51};
STICKLINE(ZTK9<YY25 AND C<O,C,O,3.2,1),COLORFF0000{XG51};
STICKLINE(ZTK9<YY25 AND C>=O,H,L,0,0),COLORC050AA{XG51};
STICKLINE(ZTK9<YY25 AND C>=O,C,O,3.2,1),COLORC050AA{XG51};
STICKLINE(ZTJ9>=ZTJE,C,O,3.2,0),COLOR225599{XG51};
STICKLINE(ZTJ9>=ZTJE,C,O,1.5,0),COLOR2255AA{XG51};
STICKLINE(ZTJ9>=ZTJE,C,O,0.4,0),COLOR2255BB{XG51};
STICKLINE(ZTJ9>=ZTJE AND XXX_101>=XXX_102,C,O,3.2,0),COLOR000077{XG51};
STICKLINE(ZTJ9>=ZTJE AND XXX_101>=XXX_102,C,O,1.5,0),COLOR000088{XG51};
STICKLINE(ZTJ9>=ZTJE AND XXX_101>=XXX_102,C,O,0.4,0),COLOR000099{XG51};
STICKLINE(ZTJ9<ZTJE AND XXX_101>=XXX_102,C,O,3.2,0),COLORC0C0C0{XG51};
STICKLINE(ZTJ9<ZTJE AND XXX_101>=XXX_102,C,O,1.5,0),COLORD0D0D0{XG51};
STICKLINE(ZTJ9<ZTJE AND XXX_101>=XXX_102,C,O,0.4,0),COLORE0E0E0{XG51};
STICKLINE(ZTK9>=YY45,MAX(C,O),(C+O)/2,3.2,0),COLOR770088{XG51};
STICKLINE(ZTK9>=YY45,MAX(C,O),(C+O)/2,1.5,0),COLOR880099{XG51};
STICKLINE(ZTK9>=YY45,MAX(C,O),(C+O)/2,0.4,0),COLOR9900AA{XG51};
STICKLINE(ZTK9>=YY65,MAX(C,O),(C+O)/2,3.2,0),COLOR0000DD{XG51};
STICKLINE(ZTK9>=YY65,MAX(C,O),(C+O)/2,1.5,0),COLOR0000EE{XG51};
STICKLINE(ZTK9>=YY65,MAX(C,O),(C+O)/2,0.4,0),COLOR0000FF{XG51};
STICKLINE(ZTK9>=YY78,MAX(C,O),(C+O)/2,3.2,0),COLORFF0060{XG51};
STICKLINE(ZTK9>=YY78,MAX(C,O),(C+O)/2,1.5,0),COLORFF0070{XG51};
STICKLINE(ZTK9>=YY78,MAX(C,O),(C+O)/2,0.4,0),COLORFF0080{XG51};
STICKLINE(ZTK9>=YY85,MAX(C,O),(C+O)/2,3.2,0),COLOR00BBCC{XG51};
STICKLINE(ZTK9>=YY85,MAX(C,O),(C+O)/2,1.5,0),COLOR00CCDD{XG51};
STICKLINE(ZTK9>=YY85,MAX(C,O),(C+O)/2,0.4,0),COLOR00ddeE{XG51};
STICKLINE(ZTK9>=YY45 AND C<O,(C+O)/2,C,3.2,0),COLORDDDD00{XG51};
STICKLINE(ZTK9>=YY45 AND C<O,(C+O)/2,C,1.5,0),COLOREEEE00{XG51};
STICKLINE(ZTK9>=YY45 AND C<O,(C+O)/2,C,0.4,0),COLORFFFF00{XG51};
STICKLINE(ZTK9>=YY85 AND C<O,(C+O)/2,C,3.2,0),COLOR00DD00{XG51};
STICKLINE(ZTK9>=YY85 AND C<O,(C+O)/2,C,1.5,0),COLOR00EE00{XG51};
STICKLINE(ZTK9>=YY85 AND C<O,(C+O)/2,C,0.4,0),COLOR00FF00{XG51};
STICKLINE(REF(COUNT(K>D AND ZTJ9>REF(ZTJ9,1),2)=2,1) AND K<REF(K,1) AND C<O AND C<REF((C+O)/2,2),REF((C+O)/2,2),REF((C+O)/2,2),6,-1),COLOR00FF00{XG51};
YY50,COLORFF0000,DOTLINE{XG51};
ZTJ9,COLOR888888{XG51};
MA10,COLOR00FFFF{XG51};
MA5,COLOR0000FF{XG51};
kd9死叉T:=BARSLAST(CROSS(ZTD9,ZTK9)){XG51};
KD9死叉T0:=KD9死叉T+1{XG51};
KD9死叉1:=REF(KD9死叉T,KD9死叉T+1)+KD9死叉T{XG51};
KD9死叉T1:=KD9死叉1+1{XG51};
KD9死叉2:=REF(KD9死叉T1,KD9死叉T+1)+KD9死叉T{XG51};
KD9死叉T2:=KD9死叉2+1{XG51};
KD9死叉3:=REF(KD9死叉T2,KD9死叉T+1)+KD9死叉T{XG51};
KD9死叉T3:=KD9死叉3+1{XG51};
KD9金叉T:=BARSLAST(CROSS(ZTK9,ZTD9)){XG51};
KD9金叉T0:=KD9金叉T+1{XG51};
KD9金叉1:=REF(KD9金叉T,KD9金叉T+1)+KD9金叉T{XG51};
KD9金叉T1:=KD9金叉1+1{XG51};
KD9金叉2:=REF(KD9金叉T1,KD9金叉T+1)+KD9金叉T{XG51};
KD9金叉T2:=KD9金叉2+1{XG51};
KD9金叉3:=REF(KD9金叉T2,KD9金叉T+1)+KD9金叉T{XG51};
KD9金叉T3:=KD9金叉3+1{XG51};
DBX:=IF(ZTK9>=ZTD9,LLV(L,KD9死叉T0),DRAWNULL),COLORFF0000{XG51};
DBX2:=IF(ZTK9>=ZTD9,LLV(L,KD9死叉T1),DRAWNULL),COLOR00FFFF{XG51};
KD9底背离:=CROSS(K,D) AND DBX>DBX2{XG51};
J高风险:=(HHV(J,7)>=109.5 AND J>100 AND ((K>78 AND KZ34<0.6) OR (K>84 AND KZ34>0.8))) OR (JCJ>4 AND K>78){XG51};
DRAWICON(J高风险,ZTJ9,2){XG51};
明天新低:=CROSS(ZTD9,ZTK9) AND C<O AND C<REF((C+O)/2,2){XG51};
DRAWICON(明天新低,H*1.015,12){XG51};
跟庄介入:=CROSS(ZTJ9,YY50) AND ZTJ9>MA(C,5) AND (MA(C,5)/REF(MA(C,5),1)-1)*100>0.1 AND ZTJ9>REF(ZTJ9,1) AND (MAX(C,O)+H)/2>YY50 AND O/LLV(L,5)<1.2 AND COUNT(MIN(C,O)<YY25,7)>0{XG51};
DRAWICON(跟庄介入,YY20,29){XG51};
DRAWICON(跟庄介入 AND ZTJ34>=(HHV(H,34)+LLV(L,34))/2,YY20,30){XG51};
k线哥:=跟庄介入 AND COUNT(J<-10,7)>0{XG51};
DRAWTEXT(K线哥,H*1.015,'↙K线哥'),COLORFFFFFF{XG51};
K线哥TJ2:=CROSS(C,(HHV(H,9)+LLV(L,9))/2) AND C>MA(C,5) AND ZTJ9>MA(C,5){XG51};
K线哥TJ1:=CROSS(ZTJ9,ZTJE){XG51};
K线哥TJ:=K线哥TJ1 AND LLV(ZTJ9,5)>REF(LLV(ZTJ9,5),BARSLAST(REF(K线哥TJ1,1))) AND LLV(MIN(C,O),5)*1.002>REF(LLV(L,5),BARSLAST(REF(K线哥TJ1,1))) AND
REF(LLV(kdj.J,6),BARSLAST(REF(K线哥TJ1,1)))<-9.9{XG51};
DRAWTEXT(COUNT(K线哥TJ,6)>0 AND K线哥TJ2,0.2*(HH9-LL9)+LL9,'↖K线哥'),COLOR00FFFF{XG51};
乌云ZT:=(O-REF(H,1))/REF(H,1)*100>0{XG51};
乌云实体:=(MAX(C,O)-MIN(C,O))/MIN(C,O)*100>2 AND C<O{XG51};
乌云盖顶:=乌云ZT AND 乌云实体{XG51};
上十字星:=(H-L)/Abs(C-O)>3 AND H>MAX(C,O) AND H>REF(H,1){XG51};
见顶K线:=(上十字星 OR 乌云盖顶) AND HHKB/LLKB>1.49 AND (H=HHV(H,3) OR HHV(MAX(C,O),3)=MAX(C,O)){XG51};
顶背迹象:=HHV(H,BARSLAST(CROSS(K,50))+1)>K AND HHV(H,BARSLAST(CROSS(K,50))+1)=H AND COUNT(K>78,7)>0{XG51};
随时逃:=见顶K线 AND ((COUNT(J>100,5)>0 OR COUNT(K>84,5)>0) OR 顶背迹象){XG51};
DRAWTEXT(随时逃,H*1.015,'↙随时逃'),COLOR00FF00{X_G~5-1_C_N_{};