通达信分型顶底主图选股指标公式源码

通达信分型顶底主图选股指标公式源码

源码正文：

重心线:(H+L+O+C*3)/6{XG51};
NX:=(3*CLOSE+LOW+OPEN+HIGH)/6;    
牛线:(20*NX+19*REF(NX,1)+18*REF(NX,2)+17*REF(NX,3)+16*REF(NX,4)    
+15*REF(NX,5)+14*REF(NX,6)+13*REF(NX,7)+12*REF(NX,8)+11*REF(NX,9)    
+10*REF(NX,10)+9*REF(NX,11)+8*REF(NX,12)+7*REF(NX,13)+6*REF(NX,14)    
+5*REF(NX,15)+4*REF(NX,16)+3*REF(NX,17)    +2*REF(NX,18)+REF(NX,20))/210{XG51};
牛熊线:ma(牛线,6),COLORCYAN,LINETHICK2{XG51};
顶:=bbi+3*stD(BBI,13),COLOR004AFF{XG51};
底:=BBI-3*STD(BBI,13),COLOR67FF00{XG51};
KU1:=IF(HIGH=HHV(HIGH,3),1,0){XG51};
kd1:=IF(LOW=LLV(LOW,3),1,0){XG51};
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0
AND KU1=0,REF(HIGH,2),REF(HIGH,2+BArslAST(REF(KU1,2)=1
AND REF(KU1,1)=0 AND KU1=0))){XG51};
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0
AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1
AND REF(KD1,1)=0 AND KD1=0))){XG51};
HV:=H>UL AND H>REF(H,1){XG51};
LV:=L<DL AND L<REF(L,1){XG51};
GP:=BARSLAST(HV){XG51};
DP:=BARSLAST(LV){XG51};
IP:=IF(GP=0,DP,GP)>3{XG51};
HHV1:=HV AND IP AND H>=HHV(H,BARSLAST(LV)){XG51};
LV1:=LV AND IP AND L<=LLV(L,BARSLAST(HV)){XG51};
V00:=HIGH<REF(HIGH,1) AND LOW<REF(LOW,1){XG51};
V01:=HIGH<REF(HIGH,1) AND LOW>REF(LOW,1){XG51};
V02:=HIGH>REF(HIGH,1) AND LOW<REF(LOW,1){XG51};
V03:=HIGH>REF(HIGH,1) AND LOW>REF(LOW,1){XG51};
V04:=REF(HIGH,2)<HIGH AND REF(LOW,2)<LOW
AND REF(HIGH,2)>REF(HIGH,1) AND REF(LOW,2)<REF(LOW,1){XG51};
V1:=COUNT(V00,6)>=3 AND COUNT(V01 OR V02,5)=0 AND LLVBARS(LOW,6)=1 AND HHVBARS(HIGH,6)>=5 AND V03{XG51};
V2:=COUNT(V00,7)>=3 AND COUNT(V01 OR V02,6)=1 AND LLVBARS(LOW,7)=2 AND HHVBARS(HIGH,7)>=6 AND V04{XG51};
V3:=COUNT(V00,7)>=3 AND COUNT(V01 OR V02,6)=1 AND LLVBARS(LOW,7)=1 AND HHVBARS(HIGH,7)>=6 AND V03{XG51};
V4:=COUNT(V00,8)>=3 AND COUNT(V01 OR V02,7)<=2 AND LLVBARS(LOW,8)=2 AND HHVBARS(HIGH,8)>=7 AND V04{XG51};
V5:=COUNT(V00,8)>=3 AND COUNT(V01 OR V02,7)<=2 AND LLVBARS(LOW,8)=1 AND HHVBARS(HIGH,8)>=7 AND V03{XG51};
V6:=COUNT(V00,9)>=3 AND COUNT(V01 OR V02,8)<=3 AND LLVBARS(LOW,9)=2 AND HHVBARS(HIGH,9)>=8 AND V04{XG51};
V7:=COUNT(V00,9)>=3 AND COUNT(V01 OR V02,8)<=3 AND LLVBARS(LOW,9)=1 AND HHVBARS(HIGH,9)>=8 AND V03{XG51};
V8:=COUNT(V00,10)>=3 AND COUNT(V01 OR V02,9)<=4 AND LLVBARS(LOW,10)=2 AND HHVBARS(HIGH,10)>=9 AND V04{XG51};
V9:=COUNT(V00,10)>=3 AND COUNT(V01 OR V02,9)<=4 AND LLVBARS(LOW,10)=1 AND HHVBARS(HIGH,10)>=9 AND V03{XG51};
V10:=COUNT(V00,11)>=3 AND COUNT(V01 OR V02,10)<=5 AND LLVBARS(LOW,11)=2 AND HHVBARS(HIGH,11)>=10 AND V04{XG51};
XG:=V1 OR V2 OR V3 OR V4 OR V5 OR V6 OR V7 OR V8 OR V9 OR V10{XG51};
HV00:=HIGH>REF(HIGH,1) AND LOW>REF(LOW,1){XG51};
HV01:=HIGH<REF(HIGH,1) AND LOW>REF(LOW,1){XG51};
HV02:=HIGH>REF(HIGH,1) AND LOW<REF(LOW,1){XG51};
HV03:=HIGH<REF(HIGH,1) AND LOW<REF(LOW,1){XG51};
HV04:=REF(HIGH,2)>HIGH AND REF(LOW,2)>LOW AND REF(HIGH,2)>REF(HIGH,1) AND REF(LOW,2)<REF(LOW,1){XG51};
HV1:=COUNT(HV00,6)>=3 AND COUNT(HV01 OR HV02,5)=0 AND HHVBARS(HIGH,6)=1 AND LLVBARS(LOW,6)>=5 AND HV03{XG51};
HV2:=COUNT(HV00,7)>=3 AND COUNT(HV01 OR HV02,6)=1 AND HHVBARS(HIGH,7)=2 AND LLVBARS(LOW,7)>=6 AND HV04{XG51};
HV3:=COUNT(HV00,7)>=3 AND COUNT(HV01 OR HV02,6)=1 AND HHVBARS(HIGH,7)=1 AND LLVBARS(LOW,7)>=6 AND HV03{XG51};
HV4:=COUNT(HV00,8)>=3 AND COUNT(HV01 OR HV02,7)<=2 AND HHVBARS(HIGH,8)=2 AND LLVBARS(LOW,8)>=7 AND HV04{XG51};
HV5:=COUNT(HV00,8)>=3 AND COUNT(HV01 OR HV02,7)<=2 AND HHVBARS(HIGH,8)=1 AND LLVBARS(LOW,8)>=7 AND HV03{XG51};
HV6:=COUNT(HV00,9)>=3 AND COUNT(HV01 OR HV02,8)<=3 AND HHVBARS(HIGH,9)=2 AND LLVBARS(LOW,9)>=8 AND HV04{XG51};
HV7:=COUNT(HV00,9)>=3 AND COUNT(HV01 OR HV02,8)<=3 AND HHVBARS(HIGH,9)=1 AND LLVBARS(LOW,9)>=8 AND HV03{XG51};
HV8:=COUNT(HV00,10)>=3 AND COUNT(HV01 OR HV02,9)<=4 AND HHVBARS(HIGH,10)=2 AND LLVBARS(LOW,10)>=9 AND HV04{XG51};
HV9:=COUNT(HV00,10)>=3 AND COUNT(HV01 OR HV02,9)<=4 AND HHVBARS(HIGH,10)=1 AND LLVBARS(LOW,10)>=9 AND HV03{XG51};
HV10:=COUNT(HV00,11)>=3 AND COUNT(HV01 OR HV02,10)<=5 AND HHVBARS(HIGH,11)=2 AND LLVBARS(LOW,11)>=10 AND HV04{XG51};
HXG:=HV1 OR HV2 OR HV3 OR HV4 OR HV5 OR HV6 OR HV7 OR HV8 OR HV9 OR HV10{XG51};
底分型:FILTER(XG=1,5) AND 重心线<10.5 AND 牛线<12 AND 牛熊线<10.2,COLORBLUE,NODRAW{XG51};
顶分型:FILTER(HXG=1,3),NODRAW{XG51};
DRAWBAND(BBI,RGB(97,95,00),顶,RGB(97,95,00)){XG51};
DRAWBAND(BBI,RGB(25,75,150),底,RGB(25,75,250)){XG51};
DRAWLINE(LV1,LOW,HHV1,HIGH,0),COLORBLUE,LINETHICK2{XG51};
DRAWLINE(HHV1,HIGH,LV1,LOW,0),COLORLIMAGENTA,LINETHICK2{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),HIGH,LOW,0,1),COLORWHITE{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,3,0),COLOR000055{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,2.7,0),COLOR000077{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,2.1,0),COLOR000099{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,1.5,0),COLOR0000BB{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,0.9,0),COLOR0000DD{XG51};
STICKLINE(CLOSE>REF(CLOSE,1),OPEN,CLOSE,0.3,0),COLOR0000FF{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),HIGH,LOW,0,1),COLORRED{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,3,0),COLOR555555{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,2.7,0),COLOR777777{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,2.1,0),COLOR999999{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,1.5,0),COLORBBBBBB{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,0.9,0),COLORDDDDDD{XG51};
STICKLINE(CLOSE=REF(CLOSE,1),OPEN,CLOSE,0.3,0),COLORFFFFFF{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),HIGH,LOW,0,1),COLORGREEN{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,3,0),COLOR990000{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,2.7,0),COLORCC0000{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,2.1,0),COLORFF4400{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,1.5,0),COLORFF8800{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,0.9,0),COLORFFCC00{XG51};
STICKLINE(CLOSE<REF(CLOSE,1),OPEN,CLOSE,0.3,0),COLORGREEN{XG51};
DRAWTEXT(FILTER(XG=1,5) AND 重心线<10.5 AND 牛线<12 AND 牛熊线<10.2,L*0.97,'底分型'),COLORBLUE{XG51};
DRAWTEXT(FILTER(HXG=1,3),H*1.02,'顶分型'){X~G_5-1~C~N~{};