通达信主力扫盘分时选股指标公式源码

通达信主力扫盘分时选股指标公式源码

源码正文：

N:=20{XG51};
M:=40{XG51};
DRAWGBK(C>0, RGB(0,10,10),RGB(48,0,0),0,'11',0){XG51};
VAR1:=((CLOSE - LLV(LOW,50))/(HHV(HIGH,50) - LLV(LOW,50)))*(100){XG51};
VAR2:=REVERSE(VAR1){XG51};
VAR3:=SMA(VAR1,6,1){XG51};
K:=Sma(VAR3,4,1){XG51};
D:=SMA(K,4,1){XG51};
stICKLINE((K >= D),K,D,6,0),COLOR0000A8{XG51};
STICKLINE((K >= D),K,D,5,0),COLOR0000C0{XG51};
STICKLINE((K >= D),K,D,4,0),COLOR0000E0{XG51};
STICKLINE((K >= D),K,D,3,0),COLOR0000F0{XG51};
STICKLINE((K >= D),K,D,2,0),COLOR0000D0{XG51};
STICKLINE((K >= D),K,D,1,0),COLOR8080FF{XG51};
STICKLINE((K <= D),K,D,6,0),COLOR008800{XG51};
STICKLINE((K <= D),K,D,5,0),COLOR009900{XG51};
STICKLINE((K <= D),K,D,4,0),COLOR00AA00{XG51};
STICKLINE((K <= D),K,D,3,0),COLOR00BB00{XG51};
STICKLINE((K <= D),K,D,2,0),COLOR00CC00{XG51};
STICKLINE((K <= D),K,D,1,0),COLOR00DD00{XG51};
顶:90{XG51};
底:10{XG51};
敢死队:= (expma(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100, COLORSTICK{XG51};
主力:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,120)-0.0004,LINETHICK2,COLORLIMAGENTA{XG51};
散户:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,200),LINETHICK2,COLORCYAN{XG51};
DRAWICON(crOSS(EXPMA(敢死队,120)-0.0004,EXPMA(敢死队,200)),45,11){XG51};
DRAWTEXT(CROSS(EXPMA(敢死队,120)-0.0004,EXPMA(敢死队,200)),40,'敢死队'),COLORWHITE{XG51};
A11:=(Dvol/CLOSE)/2{XG51};
A21:=SUM(IF(A11>100 AND CLOSE>REF(CLOSE,1),A11,0),0){XG51};
A31:=SUM(IF(A11>100 AND CLOSE<REF(CLOSE,1),A11,0),0){XG51};
A41:=SUM(IF(A11<100 AND CLOSE>REF(CLOSE,1),A11,0),0){XG51};
A51:=SUM(IF(A11<100 AND CLOSE<REF(CLOSE,1),A11,0),0){XG51};
A61:=A21+A31+A41+A51{XG51};
机买:=(A21/A61)*100,LINETHICK2,COLORWHITE{XG51};
机卖:=(A31/A61)*100,LINETHICK2,COLORCYAN{XG51};
机买红:A21/100000,LINETHICK1, COLORWHITE{XG51};
机卖绿:A31/100000,LINETHICK1,COLORCYAN{XG51};
机净买粉:机买红-机卖绿{XG51};
散户买:=A41/10000,COLORLIMAGENTA{XG51};
散户卖:=A51/10000,COLORRED{XG51};
散净买:=散户买-散户卖{XG51};
DRAWTEXT(ISLASTBAR=1,机买红*0.9,''),LINETHICK2,COLORFF55FF{XG51};
DRAWTEXT(ISLASTBAR=1,机卖绿,''),LINETHICK2,COLORFFFF55{XG51};
DRAWTEXT(ISLASTBAR=1,散户买,''),LINETHICK2,COLOR5555FF{XG51};
DRAWTEXT(ISLASTBAR=1,散户卖,''),LINETHICK2,COLOR55FF55{XG51};
中线白:0.00,COLORRED{XG51};
DRAWICON(CROSS(机买,机卖),70,24){XG51};
DRAWTEXT(CROSS(机买,机卖),75,'机转多'),COLORWHITE{XG51};
机构买盘:=A21,LINETHICK3, COLORWHITE{XG51};
机构卖盘:=A31,LINETHICK3,COLORCYAN{XG51};
TH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),N){XG51};
TL:=SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),N){XG51};
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),N){XG51};
VR:=100*(TH*2+TQ)/(TL*2+TQ){XG51};
MAVR:=MA(VR,M){XG51};
B:=VR/MAVR{XG51};
XG:(机买/机卖>1.2 AND 散户买/散户卖<0.9)*50,LINETHICK2{XG51};
DRAWICON(XG=50,60,34){XG51};
BB:=机构买盘/机构卖盘{XG51};
BBB:=BB/REF(BB,1){XG51};
DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,10,25){XG51};
DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,20,26){XG51};
DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,30,27){XG51};
DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,40,28){XG51};
DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,50,29){XG51};
DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,60,1){XG51};
DRAWTEXT(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,70,'买')COLORBLUE{XG51};
DRAWTEXT(BB>120 AND BBB/REF(BBB,1)>4,80+BB,'全买')COLORBLUE{XG51};
STICKLINE(BB>120 AND BBB/REF(BBB,1)>4,0,55,1,0)COLORWHITE{XG51};
A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0){XG51};
成交额:=V*C/100,NODRAW{XG51};
A2:=SUM((IF(((成交额/8>18) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
A3:=SUM((IF(((成交额/8>18) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
A4:=SUM((IF(((成交额/8<18) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
A5:=SUM((IF(((成交额/8<18) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
A6:=((A2+A3)+A4)+A5{XG51};
RATE:=A2/A6*100,COLORRED,LINETHICK1{XG51};
VOLA:=SUM(VOL,4)/CAPITAL*100>0.22{XG51};
HH1:=IF(CAPITAL>5000000 AND REF(V,3)/CAPITAL*100>0.45,0,1){XG51};
HH2:=IF(CAPITAL<5000000 AND CAPITAL>3000000 AND REF(V,3)/CAPITAL*100>0.6,0,1){XG51};
HH3:=IF(CAPITAL<3000000 AND CAPITAL>1000000 AND REF(V,3)/CAPITAL*100>0.75,0,1){XG51};
HH4:=IF(CAPITAL<1000000 AND REF(V,3)/CAPITAL*100>0.9,0,1){XG51};
SUMVOL:=HH1 AND HH2 AND HH3 AND HH4{XG51};
MM3:=IF(REF(VOL,3)/REF(VOL,2)>3.5 OR (REF(VOL,3)/REF(VOL,2)>2.8
OR REF(V,3)/CAPITAL*100>0.09 AND REF(C,3)<DYNAINFO(4)),0,1){XG51};
MM4:=IF(REF(VOL,4)/REF(VOL,3)>3.5 OR (REF(VOL,4)/REF(VOL,3)>2.8 AND REF(C,4)<DYNAINFO(4)),0,1){XG51};
MM5:=IF(REF(VOL,5)/REF(VOL,4)>3.5 OR (REF(VOL,5)/REF(VOL,4)>2.8 AND REF(C,5)<DYNAINFO(4)),0,1){XG51};
NN3:=COUNT(RATE=100,3)=3 AND BARSCOUNT(FROMOPEN)=3 AND MM3;
NN4:=COUNT(RATE=100,3)=3 AND BARSCOUNT(FROMOPEN)=4 AND MM4;
NN5:=COUNT(RATE=100,3)=3 AND BARSCOUNT(FROMOPEN)=5 AND MM5{XG51};
量形限制:=IF(VOL/REF(HHV(VOL,3),1)>1.56 OR VOL/REF(VOL,1)>1.6 OR VOL/REF(VOL,1)<0.5 OR
REF(VOL,1)/REF(VOL,2)>1.8,0,1){XG51};

NN:=(NN3 OR NN4 OR NN5) AND VOLA AND SUMVOL AND 量形限制{XG51};
DRAWICON(NN,90,1){XG51};
DRAWICON(NN,74,25){XG51};
DRAWICON(NN,58,26){XG51};
DRAWICON(NN,43,28){XG51};
DRAWICON(NN,27,29){XG51};
DRAWICON(NN,12,30){XG51};
100,LINETHICK0{XG51};
STICKLINE(BARSCOUNT(FROMOPEN)=0,100,0,1,1),COLORMAGENTA{XG51};
0,COLORBLUE{XG51};
{XG51};
涨幅%:=DYNAINFO(14)*100,NODRAW{XG51};
SHOU:=IF(DATE<=1150520,1,0){XG51};
SHI:=BETWEEN((DCLOSE*SHOU)/(SUM(AMOUNT,BARSCOUNT((DCLOSE*SHOU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*SHOU)))),1.05,0.95){XG51};
TOU:=IF(SHI=0,MA((DCLOSE*SHOU),BARSCOUNT((DCLOSE*SHOU))),(SUM(AMOUNT,BARSCOUNT((DCLOSE*SHOU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*SHOU))))){XG51};
动力线:=EXPMA((DCLOSE/TOU),13),COLORFFFF00,LINETHICK1{XG51};
趋势线:=EXPMA((DCLOSE/TOU),88),COLOR0080FF,LINETHICK2{XG51};
NOTEXT1:=1.003,COLORLIBLUE,LINETHICK2{XG51};
NOTEXT2:=1.03,COLORLICYAN,LINETHICK2{XG51};
IF(动力线>1.003,动力线,DRAWNULL),COLORLIMAGENTA{XG51};
IF(动力线>1.03,动力线,DRAWNULL),COLORWHITE{XG51};
DRAWICON(CROSS(动力线,1.03),15,13){XG51};
DRAWTEXT(CROSS(动力线,1.03),20,'板动力'),COLORBLUE{XG51};
VAR18:=ema(EMA(CLOSE,13),13){XG51};
控盘:=(VAR18-REF(VAR18,1))/REF(VAR18,1)*1000{XG51};
STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF{XG51};
无庄控盘:=控盘<0{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF{XG51};
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0{XG51};
VAR288:=100*WINNER(CLOSE*0.95){XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00{XG51};
主力出货:=控盘<REF(控盘,1) AND 控盘>0{XG51};
STICKLINE(VAR288>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF{XG51};
高度控盘: VAR288>50 AND COST(85)<CLOSE AND 控盘>0,COLOR00FFFF,LINETHICK2{XG51};
A10:=CROSS(控盘,0){XG51};
控盘B:FILTER(IF(A10,1,0),5)*0.5{XG51};
JJ:=DYNAINFO(11){XG51};
P:=55;S:=8;M1:=3{XG51};
财:(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORWHITE,LINETHICK1{XG51};
神:EMA(财,M1),COLORCYAN,LINETHICK1{XG51};
DRAWBAND(财,RGB(255,0,0),神,RGB(0,100,50)){XG51};
BTJ1:=(C-JJ)/JJ<-0.03{XG51};
BTJ11:=(C-JJ)/JJ<-0.03{XG51};
BTJ12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ<0.005{XG51};
STJ1:=(C-JJ)/JJ>0.005{XG51};
STJ01:=控盘<REF(控盘,1) AND 控盘>0.5{XG51};
STJ02:=控盘>0{XG51};
BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2{XG51};
BTJ22:=控盘>REF(控盘,1) AND 控盘<0 {XG51};
BTJ3:=CROSS(财,神) AND 财<-0.3{XG51};
BTJ32:=CROSS(财,神) AND 财<-0.1{XG51};
STJ31:=CROSS(神,财){XG51};
STJ32:=CROSS(神,财) AND 财>1.618{XG51};
{XG51};
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13){XG51};
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13){XG51};
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13){XG51};
STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13){XG51};
STJ82:=FILTER(STJ02 AND STJ32 ,13){XG51};
STJ83:=STJ81 AND STJ82{XG51};
difF: (EMA(CLOSE,8) - EMA(CLOSE,55))*10,COLORWHITE{XG51};
DEA: EMA(DIFF,3),COLORCYAN{XG51};
庄:= BTJ11 AND BTJ2 AND BTJ3{XG51};
有庄:FILTER(庄,55),COLORRED{XG51};
DRAWTEXT(BTJ811,40,'有庄'),COLORBLUE{XG51};
价:=C{XG51};
大盘:=EMA(INDEXC,500)/EMA(C,500){XG51};
大盘参考线:INDEXC/大盘,COLORFFFF00{XG51};
VAR20:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
VAR21:=(20*VAR20+19*REF(VAR20,1)+18*REF(VAR20,2)+17*REF(VAR20,3)+16*REF(VAR20,4)+15*REF(VAR20,5)+14*REF(VAR20,6)+13*REF(VAR20,7)+12*REF(VAR20,8)+11*REF(VAR20,9)+10*REF(VAR20,10)+9*REF(VAR20,11)+8* REF(VAR20,12)+7*REF(VAR20,13)+6*REF(VAR20,14)+5*REF(VAR20,15)+4*REF(VAR20,16)+3*REF(VAR20,17)+2*REF(VAR20,18)+REF(VAR20,21))/210{XG51};
VAR22:=EMA(VAR21,15){XG51};
VAR23:=HHV(CLOSE,90){XG51};
VAR24:=LLV(CLOSE,90){XG51};
VAR25:=VAR23-VAR24{XG51};
VAR26:=EMA((CLOSE-VAR24)/VAR25-0.5,14){XG51};
ZLSP:=VAR26*20{XG51};
VAR27:=REF(HHV(CLOSE,66),2){XG51};
VAR28:=CROSS(CLOSE,VAR27) AND (HHV(CLOSE,110)/LLV(CLOSE,110)-1)*100<45 AND ZLSP<5.666{XG51};
VAR29:=LLV(ZLSP,35)<-8.9 AND CROSS(ZLSP,-7.815) AND ZLSP<-1.2{XG51};
VAR30:=10*FILTER(VAR29,41){XG51};
VAR31:=15*FILTER(VAR28,41)>10{XG51};
主力扫盘:VAR31*50,LINETHICK0{XG51};
DRAWTEXT(VAR31,60,'主力扫盘'),COLORBLUE{XG51};
DRAWICON(主力扫盘=50,50,18){XG51};
GG:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(V*100,BARSCOUNT(C))),1.05,0.95){XG51};
ZZ:=IF(GG=0,MA(C,BARSCOUNT(C)),SUM(AMOUNT,BARSCOUNT(C))/SUM(V*100,BARSCOUNT
(C))){XG51};
AA:IF(PERIOD<1,POW(C/ZZ,3)*100,0),COLOR00FFFF{XG51};
100,COLORWHITE{XG51};
BB8:=EXPMA(AA,20),COLORFFFFFF{XG51};
DRAWICON((AA-BB8<=-6 OR (AA<89 AND AA-BB8<=-2)) AND C=LLV(C,30),78,26){XG51};
DRAWICON(AA-BB8<-4 AND AA<=92 AND C=LLV(C,30),80,1){XG51};
STICKLINE(AA-BB8<-4 AND AA<=92 AND C=LLV(C,30),10,75,1,1),COLOR0000AA{XG51};
DRAWICON(AA-BB8>4 AND AA>=108 AND C=HHV(C,30),104,2){XG51};

VAR1111:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100{XG51};
VAR2222:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100{XG51};
VAR3333:=SMA(VAR2222,2,1){XG51};
天:100+(-ABS(VAR1111)),COLORWHITE{XG51};
下:SMA(VAR3333,2,1){XG51};
无:ABS(VAR1111),COLORCYAN{XG51};
敌:50,COLORFFAA00,LINETHICK3{XG51};
A8:80{XG51};
B8:20{XG51};
买:STICKLINE(CROSS(下,无),3,20,2,0),COLORWHITE,LINETHICK1{XG51};
STICKLINE(CROSS(下,无),20,25,2,0),COLORFF9900,LINETHICK1{XG51};
DRAWTEXT(CROSS(下,无),30,' '),COLORFFFFCC{XG51};
卖:STICKLINE(CROSS(下,天),70,90,2,0),COLORWHITE,LINETHICK1{XG51};
STICKLINE(CROSS(下,天),90,99,2,0),COLORFF9900,LINETHICK1{XG51};
DRAWTEXT(CROSS(下,天),70,' '),COLORFFFFCC{X_G?5*1_C_N_{};