通达信机构买卖量源码

以下是通达信机构买卖量源码

N:=20;
 M:=40;
 DRAWGBK(C>0, RGB(0,10,10),RGB(48,0,0),0,’11’,0);
 VAR1:=((CLOSE – LLV(LOW,50))/(HHV(HIGH,50) – LLV(LOW,50)))*(100);
 VAR2:=REVERSE(VAR1);
 VAR3:=SMA(VAR1,6,1);
 K:=SMA(VAR3,4,1);
 D:=SMA(K,4,1);
 STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
 STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
 STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
 STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
 STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
 STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
 STICKLINE((K <= D),K,D,6,0),COLOR008800;
 STICKLINE((K <= D),K,D,5,0),COLOR009900;
 STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
 STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
 STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
 STICKLINE((K <= D),K,D,1,0),COLOR00DD00;
顶:90;
底:10;
敢死队:= (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100, COLORSTICK;
主力:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,120)-0.0004,LINETHICK2,COLORMAGENTA;
散户:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,200),LINETHICK2,COLORGREEN;
 DRAWICON(CROSS(EXPMA(敢死队,120)-0.0004,EXPMA(敢死队,200)),45,11);
 DRAWTEXT(CROSS(EXPMA(敢死队,120)-0.0004,EXPMA(敢死队,200)),40,’敢死队’),COLORRED;
 A11:=(DVOL/CLOSE)/2;
 A21:=SUM(IF(A11>100 AND CLOSE>REF(CLOSE,1),A11,0),0);
 A31:=SUM(IF(A11>100 AND CLOSE<REF(CLOSE,1),A11,0),0);
 A41:=SUM(IF(A11<100 AND CLOSE>REF(CLOSE,1),A11,0),0);
 A51:=SUM(IF(A11<100 AND CLOSE<REF(CLOSE,1),A11,0),0);
 A61:=A21+A31+A41+A51;
机买:=(A21/A61)*100,LINETHICK2,COLORRED;
机卖:=(A31/A61)*100,LINETHICK2,COLORGREEN;
机买红:A21/100000,LINETHICK1, COLORRED;
机卖绿:A31/100000,LINETHICK1,COLORGREEN;
机净买粉:机买红-机卖绿;
散户买:=A41/10000,COLORMAGENTA;
散户卖:=A51/10000,COLORWHITE;
散净买:=散户买-散户卖;
DRAWTEXT(ISLASTBAR=1,机买红*0.9,”),LINETHICK2,COLORFF55FF;
 DRAWTEXT(ISLASTBAR=1,机卖绿,”),LINETHICK2,COLORFFFF55;
 DRAWTEXT(ISLASTBAR=1,散户买,”),LINETHICK2,COLOR5555FF;
 DRAWTEXT(ISLASTBAR=1,散户卖,”),LINETHICK2,COLOR55FF55;
中线白:0.00,COLORWHITE;
 DRAWICON(CROSS(机买,机卖),70,24);
 DRAWTEXT(CROSS(机买,机卖),75,’机转多’),COLORRED;
机构买盘:=A21,LINETHICK3, COLORRED;
机构卖盘:=A31,LINETHICK3,COLORGREEN;
 TH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),N);
 TL:=SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),N);
 TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),N);
 VR:=100*(TH*2+TQ)/(TL*2+TQ);
 MAVR:=MA(VR,M);
 B:=VR/MAVR;
 XG:(机买/机卖>1.2 AND 散户买/散户卖<0.9)*50,LINETHICK2;
 DRAWICON(XG=50,60,34);
 BB:=机构买盘/机构卖盘;
BBB:=BB/REF(BB,1);
 DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,10,25);
 DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,20,26);
 DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,30,27);
 DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,40,28);
 DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,50,29);
 DRAWICON(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,60,1);
 DRAWTEXT(BB/REF(BB,1)>1.05 AND BB>7 AND BBB/REF(BBB,1)>4,70,’买’)COLORYELLOW;
 DRAWTEXT(BB>120 AND BBB/REF(BBB,1)>4,80+BB,’全买’)COLORYELLOW;
 STICKLINE(BB>120 AND BBB/REF(BBB,1)>4,0,55,1,0)COLORRED;
 A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8>18) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
 A3:=SUM((IF(((成交额/8>18) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
 A4:=SUM((IF(((成交额/8<18) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
 A5:=SUM((IF(((成交额/8<18) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
 A6:=((A2+A3)+A4)+A5;
 RATE:=A2/A6*100,COLORWHITE,LINETHICK1;
 {换手限制}
VOLA:=SUM(VOL,4)/CAPITAL*100>0.22;
 {开盘量限制}
HH1:=IF(CAPITAL>5000000 AND REF(V,3)/CAPITAL*100>0.45,0,1);
 HH2:=IF(CAPITAL<5000000 AND CAPITAL>3000000 AND REF(V,3)/CAPITAL*100>0.6,0,1);
 HH3:=IF(CAPITAL<3000000 AND CAPITAL>1000000 AND REF(V,3)/CAPITAL*100>0.75,0,1);
 HH4:=IF(CAPITAL<1000000 AND REF(V,3)/CAPITAL*100>0.9,0,1);
 SUMVOL:=HH1 AND HH2 AND HH3 AND HH4;
 {开盘量幅限制}
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);
 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);
 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);
 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;
 {量形异常过滤}
量形限制:=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);
 {综合限制}
NN:=(NN3 OR NN4 OR NN5) AND VOLA AND SUMVOL AND 量形限制;
DRAWICON(NN,90,1);
 DRAWICON(NN,74,25);
 DRAWICON(NN,58,26);
 DRAWICON(NN,43,28);
 DRAWICON(NN,27,29);
 DRAWICON(NN,12,30);
 100,LINETHICK0;
 STICKLINE(BARSCOUNT(FROMOPEN)=0,100,0,1,1),COLORLIMAGENTA;
 {STICKLINE(BARSCOUNT(FROMOPEN)=8,100,0,1,1),COLORLIMAGENTA;}
 0,COLORYELLOW;
 {DRAWTEXT_FIX(1,0.033,0.79,0,’ 【伏击】’),COLORCYAN;}
 {DRAWTEXT_FIX(1,0.033,0.65,0,’ 【指数在EXPMA(7)上面可大胆狙击】’),COLORYELLOW;};
涨幅%:=DYNAINFO(14)*100,NODRAW;
 SHOU:=IF(DATE<=1150520,1,0);
 SHI:=BETWEEN((DCLOSE*SHOU)/(SUM(AMOUNT,BARSCOUNT((DCLOSE*SHOU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*SHOU)))),1.05,0.95);
 TOU:=IF(SHI=0,MA((DCLOSE*SHOU),BARSCOUNT((DCLOSE*SHOU))),(SUM(AMOUNT,BARSCOUNT((DCLOSE*SHOU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*SHOU)))));
动力线:=EXPMA((DCLOSE/TOU),13),COLORFFFF00,LINETHICK1;
趋势线:=EXPMA((DCLOSE/TOU),88),COLOR0080FF,LINETHICK2;
 NOTEXT1:=1.003,COLORLIGREEN,LINETHICK2;
 NOTEXT2:=1.03,COLORLIRED,LINETHICK2;
 IF(动力线>1.003,动力线,DRAWNULL),COLORMAGENTA;
 IF(动力线>1.03,动力线,DRAWNULL),COLORRED;
 DRAWICON(CROSS(动力线,1.03),15,13);
 DRAWTEXT(CROSS(动力线,1.03),20,’板动力’),COLORYELLOW;
 VAR18:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR18-REF(VAR18,1))/REF(VAR18,1)*1000;
 STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00;
 STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF;
无庄控盘:=控盘<0;
 STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF;
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
 VAR288:=100*WINNER(CLOSE*0.95);
 STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00;
主力出货:=控盘<REF(控盘,1) AND 控盘>0;
 STICKLINE(VAR288>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF;
高度控盘: VAR288>50 AND COST(85)<CLOSE AND 控盘>0,COLOR00FFFF,LINETHICK2;
 A10:=CROSS(控盘,0);
控盘B:FILTER(IF(A10,1,0),5)*0.5;
 JJ:=DYNAINFO(11);
 P:=55;S:=8;M1:=3;
财:(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK1;
神:EMA(财,M1),COLORGREEN,LINETHICK1;
 DRAWBAND(财,RGB(255,0,0),神,RGB(0,100,50));
 {股价与均线偏离买卖条件}
BTJ1:=(C-JJ)/JJ<-0.03;
 BTJ11:=(C-JJ)/JJ<-0.03;
 BTJ12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ<0.005;
 STJ1:=(C-JJ)/JJ>0.005;
 {控盘买卖条件}
STJ01:=控盘<REF(控盘,1) AND 控盘>0.5;
 STJ02:=控盘>0;
 BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
 BTJ22:=控盘>REF(控盘,1) AND 控盘<0 ;
 {波段买卖条件}
BTJ3:=CROSS(财,神) AND 财<-0.3;
 BTJ32:=CROSS(财,神) AND 财<-0.1;
 STJ31:=CROSS(神,财);
STJ32:=CROSS(神,财) AND 财>1.618;
 {以下为信号};
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);
 BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
 BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13);
 STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13);
 STJ82:=FILTER(STJ02 AND STJ32 ,13);
 STJ83:=STJ81 AND STJ82;
 DIFF: (EMA(CLOSE,8) – EMA(CLOSE,55))*10,COLORRED;
 DEA: EMA(DIFF,3),COLORGREEN;
庄:= BTJ11 AND BTJ2 AND BTJ3;
有庄:FILTER(庄,55),COLORWHITE;
 DRAWTEXT(BTJ811,40,’有庄’),COLORYELLOW;
价:=C;
大盘:=EMA(INDEXC,500)/EMA(C,500);
大盘参考线:INDEXC/大盘,COLORFFFF00;
 VAR20:=(3*CLOSE+LOW+OPEN+HIGH)/6;
 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;
 VAR22:=EMA(VAR21,15);
 VAR23:=HHV(CLOSE,90);
 VAR24:=LLV(CLOSE,90);
 VAR25:=VAR23-VAR24;
 VAR26:=EMA((CLOSE-VAR24)/VAR25-0.5,14);
 ZLSP:=VAR26*20;
 VAR27:=REF(HHV(CLOSE,66),2);
 VAR28:=CROSS(CLOSE,VAR27) AND (HHV(CLOSE,110)/LLV(CLOSE,110)-1)*100<45 AND ZLSP<5.666;
 VAR29:=LLV(ZLSP,35)<-8.9 AND CROSS(ZLSP,-7.815) AND ZLSP<-1.2;
 VAR30:=10*FILTER(VAR29,41);
 VAR31:=15*FILTER(VAR28,41)>10;
主力扫盘:VAR31*50,LINETHICK0;
 DRAWTEXT(VAR31,60,’主力扫盘’),COLORYELLOW;
 DRAWICON(主力扫盘=50,50,18);
 GG:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(V*100,BARSCOUNT(C))),1.05,0.95);
 ZZ:=IF(GG=0,MA(C,BARSCOUNT(C)),SUM(AMOUNT,BARSCOUNT(C))/SUM(V*100,BARSCOUNT
 (C)));
 AA:IF(PERIOD<1,POW(C/ZZ,3)*100,0),COLOR00FFFF;
 100,COLORRED;
 BB8:=EXPMA(AA,20),COLORFFFFFF;
 {STICKLINE(BB>REF(BB,1),100,103,1,1),COLOR0000AA;
 STICKLINE(BB>REF(BB,1) AND EXPMA(AA,20)>EXPMA(AA,120),100,103,1,0),COLOR0033FF;
 STICKLINE(BB<REF(BB,1),100,97,1,1),COLORFF0000;
 STICKLINE(BB<REF(BB,1) AND EXPMA(AA,20)<EXPMA(AA,120),100,97,1,0),COLORFF8800;}
 DRAWICON((AA-BB8<=-6 OR (AA<89 AND AA-BB8<=-2)) AND C=LLV(C,30),78,26);
 DRAWICON(AA-BB8<-4 AND AA<=92 AND C=LLV(C,30),80,1);
 STICKLINE(AA-BB8<-4 AND AA<=92 AND C=LLV(C,30),10,75,1,1),COLOR0000AA;
 DRAWICON(AA-BB8>4 AND AA>=108 AND C=HHV(C,30),104,2);
 {VAR1A:=EMA(HHV(HIGH,500),21);
 VAR2A:=EMA(HHV(HIGH,250),21);
 VAR3A:=EMA(HHV(HIGH,90),21);
 VAR4A:=EMA(LLV(LOW,500),21);
 VAR5A:=EMA(LLV(LOW,250),21);
 VAR6A:=EMA(LLV(LOW,90),21);
 VAR7A:=EMA((VAR4A*0.96+VAR5A*0.96+VAR6A*0.96+VAR1A*0.558+VAR2A*0.558+VAR3A*0.558)/6,21);
 VAR8A:=EMA((VAR4A*1.25+VAR5A*1.23+VAR6A*1.2+VAR1A*0.55+VAR2A*0.55+VAR3A*0.65)/6,21);
 VAR9A:=EMA((VAR4A*1.3+VAR5A*1.3+VAR6A*1.3+VAR1A*0.68+VAR2A*0.68+VAR3A*0.68)/6,21);
 VARA:=EMA((VAR7A*3+VAR8A*2+VAR9A)/6*1.738,21);
 VARB:=REF(LOW,1);
 VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
 VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC/10),3);
 VARE:=LLV(LOW,30);
 VARF:=HHV(VARD,30);
 VAR10:=IF(MA(CLOSE,58),1,0);
神炎:EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10,COLORYELLOW;
 {邪炎:STICKLINE(神炎>0 ,0 ,神炎 ,4 ,1); }
 {㊣:神炎,COLORRED;
 STICKLINE(神炎>0,0 ,㊣*1.2,8,0 ),COLOR00EEFF;
 STICKLINE(神炎>0,0 ,㊣*0.8,8,0 ),COLOR00BBFF;
 STICKLINE(神炎>0,0 ,㊣*0.6,8,0 ),COLOR0099FF;
 STICKLINE(神炎>0,0 ,㊣*0.4,8,0 ),COLOR0066FF;
 STICKLINE(神炎>0,0 ,㊣*0.2,8,0 ),COLOR0000FF;}
 VAR1111:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100;
 VAR2222:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100;
 VAR3333:=SMA(VAR2222,2,1);
天:100+(-ABS(VAR1111)),COLORRED;
下:SMA(VAR3333,2,1);
无:ABS(VAR1111),COLORGREEN;
敌:50,COLORFFAA00,LINETHICK3;
 A8:80;
 B8:20;
买:STICKLINE(CROSS(下,无),3,20,2,0),COLORRED,LINETHICK1;
 STICKLINE(CROSS(下,无),20,25,2,0),COLORFF9900,LINETHICK1;
 DRAWTEXT(CROSS(下,无),30,’ ‘),COLORFFFFCC;
卖:STICKLINE(CROSS(下,天),70,90,2,0),COLORRED,LINETHICK1;
 STICKLINE(CROSS(下,天),90,99,2,0),COLORFF9900,LINETHICK1;
 DRAWTEXT(CROSS(下,天),70,’ ‘),COLORFFFFCC;