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

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

源码正文：

重心线:(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~{};

通达信红绿二重天主图未加密选股指标公式源码

源码正文：

ma1:MA(CLOSE,5){XG51};
MA2:MA(CLOSE,10){XG51};
MA3:MA(CLOSE,20){XG51};
MA4:MA(CLOSE,60){XG51};
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100{XG51};
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100{XG51};
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100{XG51};
VAR6:=(VAR3+VAR4+VAR5)/3{XG51};
VAR7:=ema(VAR6,5){XG51};
ZB:=EMA(EMA(VAR3,5),5)*3, COLORstICK{XG51};
VAR8:=IF(VAR6<=-20,10,0){XG51};
VAR9:=HHV(VAR8,10){XG51};
VARA:=IF(VAR9 AND crOSS(MA(CLOSE,3),MA(CLOSE,5)),20,0){XG51};
K:=EMA(VAR7,5)*2, , COLORFF00FF{XG51};
D:=EMA(K,5), , COLORRED{XG51};
J:=K*3-D*2, ,COLORBLUE{XG51};
VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10{XG51};
HS:=vol/CAPITAL*100, , COLORCYAN{XG51};
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.93,'接近底部') COLORLIMAGENTA{XG51};
DRAWTEXT(VARA=20,LOW*0.95,'底部') COLORBLUE{XG51};
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20{XG51};
VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1){XG51};
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'↖有庄家在吸货'),LINETHICK1,COLORFF00FF{XG51};
VAR12:=(HIGH+LOW+CLOSE)/3{XG51};
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14)){XG51};
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70)){XG51};
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0){XG51};
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15){XG51};
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
VAR18:=100-Abs(VAR17){XG51};
VAR19:=IF(VAR18<90,VAR18,100){XG51};
VAR1A:=IF(VARE>0,VARE,0){XG51};
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60{XG51};
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100{XG51};
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.95,'大笔成交') COLORRED{XG51};
A1:=REF(H,8)=HHV(H,2*8+1){XG51};
B1:=FILTER(A1,8){XG51};
C1:=BacKSET(B1,8+1){XG51};
D1:=FILTER(C1,8){XG51};
R11:=BACKSET(ISLASTBAR,BArslAST(D1)+1); S11:=R11>REF(R11,1){XG51};
DRAWLINE(D1,H,S11,H,1),COLORYELLOW{XG51};
A2:=REF(L,8)=LLV(L,2*8+1){XG51};
B2:=FILTER(A2,8){XG51};
C2:=BACKSET(B2,8+1){XG51};
D2:=FILTER(C2,8){XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1){XG51};
DRAWLINE(D2,L,U11,L,1),COLORYELLOW{XG51};
M:=INTPART(3*8/5){XG51};
A12:=REF(H,M)=HHV(H,2*M+1){XG51};
B12:=FILTER(A12,M){XG51};
C12:=BACKSET(B12,M+1){XG51};
D12:=FILTER(C12,M){XG51};
R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1); S112:=R112>REF(R112,1){XG51};
DRAWLINE(D12,H,S112,H,1),COLORWHITE{XG51};
A22:=REF(L,M)=LLV(L,2*M+1){XG51};
B22:=FILTER(A22,M){XG51};
C22:=BACKSET(B22,M+1){XG51};
D22:=FILTER(C22,M){XG51};
T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1); U112:=T112>REF(T112,1){XG51};
DRAWLINE(D22,L,U112,L,1),COLORWHITE{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100{XG51};
DRAWTEXT(CROSS(84,RSI) , HIGH,'←逃'),COLORCYAN{XG51};
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0){XG51};
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0){XG51};
VAR51:=3{XG51};
VAR52:=(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)){XG51};
DRAWTEXT(CROSS(VAR52,VAR51), LOW,'←启动')COLORLIMAGENTA{XG51};
涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,4,0),COLORWHITE{XG51};
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORWHITE{XG51};
DRAWTEXT(涨停,L-0.1,'涨停'),COLORWHITE{XG51};
C3:=REF(C,1){XG51};
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,4,0),COLORYELLOW{XG51};
STICKLINE(跌停,OPEN,CLOSE,3,0),COLORYELLOW{XG51};
DRAWTEXT(跌停,H+0.3,'跌停'),COLORYELLOW{X^G*5.1^C^N^{};