通达信【AI量化分时量化】指标，抓板，吸筹，突破，起爆，机构能量（分时主图+分时副图）
{AI量化分时--主图}
{主图源码如下}
ZBGS31:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2;
ZBGS32:=BARSCOUNT(C);
前高:=REF(HHV(H,ZBGS32),1);
突破:=CROSS(C,REF(HHV(H,ZBGS32),1)) AND C/ZBGS31< 1.09 AND ZBGS32>1 AND ZBGS32< 240;
主力扫盘:=COUNT(突破,13)>=3 AND CROSS(C,REF(HHV(H,ZBGS32),1));
已主力扫盘:=BARSLAST(主力扫盘)< 13;
HJ_2:=DYNAINFO(4)>0 AND HHV(HIGH,2)/LLV(LOW,2)< 1.25 AND REF(CLOSE,1)< LLV(LOW,3)+(HHV(HIGH,3)-LLV(LOW,3))*0.85;
ZBGS33:=EMA(CLOSE,2);
ZBGS34:=EMA(CLOSE,3);
ZBGS35:=MAX(ZBGS33,ZBGS34);
NX:=MA(((SLOPE(C,20)*5)+C),10);
B1:=HOUR=09 AND MINUTE=45;
B20:=LLV(L,15);
B30:=BARSLAST(B1);
B4:=REF(B20,B30);
B5:=CONST(B4);
C1:=HOUR=09 AND MINUTE=45;
C2:=HHV(H,15);
C3:=BARSLAST(C1);
C4:=REF(C2,C3);
C5:=CONST(C4),COLORFF80FF,CIRCLEDOT,LINETHICK2;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD10:=(DIF-DEA)*2;
AA0:=MACD10>00 AND DIF>0 AND DEA>0;
A100:=HOUR=10 AND MINUTE=0;
A20:=HHV(H,30);
A30:=BARSLAST(A100);
A40:=REF(A20,A30);
A50:=CONST(A40);
A80:=CLOSE>A50 AND REF(C<=A50,1) AND CLOSE>NX;
AB:=FILTER(A80,100);
A90:=DYNAINFO(3);
AC:=CLOSE<=A90*1.04 AND CLOSE>A90;
量比:=V/REF(MA(V,5),1);
XG:=AA0 AND AB AND AC AND A40>A90 AND 量比>=1;
HJ_4:=CLOSE;
HJ_5:=(CLOSE-REF(CLOSE,5))/REF(CLOSE,5);
BAB1:=STICKLINE(HJ_5>0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_5),0.1,0);
BAB2:=STICKLINE(HJ_5< 0,DYNAINFO(3),DYNAINFO(3)*(1+HJ_5),0.1,0);
HJ_6:=CLOSE/DYNAINFO(3);
HJ_7:=FILTER(HJ_5>0.015 AND HJ_5>REF(HJ_5,1)*2 AND VOL>REF(VOL,1)*2 AND CLOSE>REF(CLOSE,1) OR HJ_5>0.025,240);
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:=L1+P1*8/9,COLORYELLOW,DOTLINE;
支撑:=L1+P1*0.5/9,COLORGREEN,DOTLINE;
DRAWTEXT(FILTER(CROSS(C,支撑),240),L-0.01,'吸筹'),COLOR0000FF;
DRAWTEXT(FILTER(CROSS(C,阻力),240),H-0.01,'压'),COLOR0000FF;
WA1:=V*C/100;
WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8>20) AND (CLOSE< (REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8< 20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA5:=SUM((IF(((WA1/8< 20) AND (CLOSE< (REF(CLOSE,1)))),WA1,0)),0);
机构买盘:=(WA2);
机构卖盘:=(WA3);
散户买盘:=(WA4);
散户卖盘:=(WA5);
BU:=BARSLAST(CLOSE=HHV(CLOSE,60));
SE:=BARSLAST(CLOSE=LLV(CLOSE,60));
OK:=SE>BU AND SE>BU;
OK1:=SE>BU AND SE< BU;
NOK:=BU>SE AND BU>SE;
NOK1:=BU>SE AND BU< SE;
DRAWICON(FILTER(CROSS(SE,BU),240),OPEN*1,5);
DRAWTEXT(FILTER(CROSS(SE,BU),240) ,OPEN*0.985,'抓'),COLORFF0000;
TT1:=BARSCOUNT(C);
均价黄:=SUM(C*V,TT1)/SUM(V,TT1);
量两步:=MA(V,5)>REF(MA(V,5),1) AND REF(MA(V,5),1)>REF(MA(V,5),2);
价两步:= C>=REF(C,1) AND REF(C,1)>REF(C,2);
价上岗量破5:=C>均价黄 AND V>MA(V,5);
量起爆:=V>=REF(V,1)*1;
价创新高:=C>=HHV(C,0);
量创新高:=V>=HHV(V,0);
对昨日涨幅:=(C/DYNAINFO(3)-1)*100<=4.50;
每日一点:=量两步 AND 价两步 AND 价上岗量破5 AND 量起爆 AND 价创新高 AND 量创新高 AND 对昨日涨幅;
VV:=BARSSINCE(每日一点)+1;
首次起爆价:=REF(C,VV-1),NODRAW;
起爆收益:(DYNAINFO(7)-首次起爆价)/首次起爆价*100,NODRAW;
流通盘:=CAPITAL*100/100000000,NODRAW;
起爆时间:=REF(TIME/10000,VV),NODRAW;
已爆分钟:=VV-1,NODRAW;
DRAWICON(每日一点,C,25);
DRAWTEXT(每日一点,L-0.01,'←分时起爆'),COLORYELLOW;
DRAWNUMBER_FIX(ISLASTBAR AND C>1,0.8,0.5,0,起爆收益),COLORFF0000;
DRAWTEXT_FIX(ISLASTBAR AND C>1,0.8,0.45,0,'起爆收益'),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR AND C>1,0.85,0.5,0,'%'),COLOR0000FF;
ACX:=FILTER(CROSS(SE,BU),240);
ACX1:=BARSSINCE(ACX)+1;
首次抓板价:=REF(C,ACX1-1),NODRAW;
抓板收益:(DYNAINFO(7)-首次抓板价)/首次抓板价*100,NODRAW;
DRAWNUMBER_FIX(ISLASTBAR AND C>1,0.8,0.35,0,抓板收益),COLORFF0000;
DRAWTEXT_FIX(ISLASTBAR AND C>1,0.8,0.3,0,'抓板收益'),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR AND C>1,0.85,0.35,0,'%'),COLOR0000FF;
全仓买进:=CROSS(C,REF(HHV(H,ZBGS32),1)) AND HHVBARS(VOL,ZBGS32)=0 AND C/ZBGS31< 1.09 AND ZBGS32>1 AND ZBGS32< 240 AND BARSLAST(主力扫盘)>=20 AND 对昨日涨幅;
DRAWTEXT(全仓买进 ,前高, '←全仓'),COLORCYAN;
DRAWICON(全仓买进,C,23);
对昨日涨幅1:=(C/DYNAINFO(3)-1)*100<=7;
价2步:=C/REF(C,3)>1.04 ;
DRAWTEXT(价2步,C*0.995,'←突'),COLORYELLOW;
现:=100*(C-REF(C,1))/REF(C,1);
量:=SUM(V,FROMOPEN);
大买:=SUM(IF(现>=0 AND V>CAPITAL*0.0005 AND PERIOD=0,V,0),FROMOPEN);
大卖:=SUM(IF(现< 0 AND V>CAPITAL*0.0005 AND PERIOD=0,V,0),FROMOPEN);
小买:=SUM(IF(现>=0 AND V< CAPITAL*0.0005 AND PERIOD=0,V,0),FROMOPEN);
小卖:=SUM(IF(现< 0 AND V< CAPITAL*0.0005 AND PERIOD=0,V,0),FROMOPEN);
B31:=100*大买/量;
B32:=100*大卖/量;
B33:=100*小买/量;
B34:=100*小卖/量;
DRAWRECTREL(133,CONST(100-B31)*1000/100,159,1000,RGB(255,0,0));
DRAWRECTREL(269,CONST(100-B32)*1000/100,294,1000,RGB(0,255,0));
DRAWRECTREL(405,CONST(100-B33)*1000/100,426,1000,RGB(128,0,0));
DRAWRECTREL(536,CONST(100-B34)*1000/100,557,1000,RGB(0,128,0));
DRAWTEXT_FIX(PERIOD=0,0.135,8,0,CON2STR(B31,0)) COLORYELLOW;
DRAWTEXT_FIX(PERIOD=0,0.270,8,0,CON2STR(B32,0)) COLORFF0000;
DRAWTEXT_FIX(PERIOD=0,0.403,8,0,CON2STR(B33,0)) COLORFF0000;
DRAWTEXT_FIX(PERIOD=0,0.539,8,0,CON2STR(B34,0)) COLORFF0000;
{机构量化副图源码如下}
ZBGS31:=VOL/CLOSE/3;
ZBGS32:=SUM(IF(ZBGS31>0.2 AND CLOSE>REF(CLOSE,1),ZBGS31,0),0);
ZBGS33:=SUM(IF(ZBGS31>0.2 AND CLOSE<REF(CLOSE,1),ZBGS31,0),0);
ZBGS34:=SUM(IF(ZBGS31<0.29 AND CLOSE>REF(CLOSE,1),ZBGS31,0),0);
ZBGS35:=SUM(IF(ZBGS31<0.29 AND CLOSE<REF(CLOSE,1),ZBGS31,0),0);
ZBGS36:=ZBGS32+ZBGS33+ZBGS34+ZBGS35;
ZBGS37:=IF(ISLASTBAR=1,100*ZBGS32/ZBGS36,0);
ZBGS38:=IF(ISLASTBAR=1,100*ZBGS33/ZBGS36,0);
ZBGS39:=IF(ISLASTBAR=1,100*ZBGS34/ZBGS36,0);
ZBGS310:=IF(ISLASTBAR=1,100*ZBGS35/ZBGS36,0);
机构买盘红:ZBGS32,COLORRED,LINETHICK2;
机构卖盘绿:ZBGS33,COLORGREEN,LINETHICK2;
散户买盘黄:ZBGS34,COLORYELLOW,LINETHICK2;
散户卖盘蓝:ZBGS35,COLORBLUE,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,机构买盘红*0.9,17),COLORRED,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,机构卖盘绿*0.9,18),COLORBROWN,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,散户买盘黄*0.9,19),COLORLIGREEN,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,散户卖盘蓝*0.9,20),COLORBLUE,LINETHICK2;
买卖差额:机构买盘红-机构卖盘绿,COLORWHITE,LINETHICK2;
抄底:IF(CROSS(ZBGS32,ZBGS33),10,0),COLORMAGENTA,LINETHICK3;
闪电买入:DRAWTEXT(CROSS(买卖差额,抄底 AND ZBGS33),买卖差额*0.68,21),COLORWHITE,LINETHICK3;
{分时量化量副图源码如下}
流通盘:=CAPITAL;
DBHS:=IF(CAPITAL< 2000000,V/CAPITAL*100,V/流通盘*100);
标准量:IF(COUNT(V>流通盘/1000,0)>0,流通盘/1000,0),COLORMAGENTA;
STICKLINE(C< REF(C,1),0,VOL,0.1,0),COLORGREEN;
STICKLINE(C>REF(C,1),0,VOL,0.1,0),COLORRED;
STICKLINE(C=REF(C,1),0,VOL,0.1,0),COLORWHITE;
总量:=SUM(V,0);
单笔最大量:HHV(V,0),COLORWHITE,DOTLINE;
单笔最大换手:HHV(DBHS,240),COLORWHITE,DOTLINE;
牛:=(EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100;
DRAWICON(CROSS(EXPMA(牛,120)-0.0004,EXPMA(牛,200)),单笔最大量*0.8,17);
DRAWICON(CROSS(EXPMA(牛,200),EXPMA(牛,120)-0.0004),V,8);
Q:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))),1.05,0.95);
Q2:=IF(Q=0,MA(C,BARSCOUNT(C)),(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))));
DRAWICON(CROSS((C/Q2),1.03),-V/4,6);
现量:VOL,VOLSTICK;
STICKLINE(C< REF(C,1) AND V>REF(单笔最大量,1) AND TIME>94200,0,VOL,0.1,0),COLORGREEN;
STICKLINE(C>REF(C,1) AND V>REF(单笔最大量,1) AND TIME>94200,0,VOL,0.1,0),COLORRED;
STICKLINE(C=REF(C,1) AND V>REF(单笔最大量,1) AND TIME>94200,0,VOL,0.1,0),COLORWHITE;
STICKLINE(V>REF(单笔最大量,1)*1.5 AND C>REF(C,1) AND DBHS>0.15 AND TIME>94500,0,VOL,0.1,0),COLORYELLOW;
STICKLINE(C>REF(C,1) AND DBHS>0.22 AND TIME< 94200,0,VOL,0.1,0),COLOR66FFFF,LINETHICK2;
LXTP:=((V>REF(V,1) AND DBHS>=0.1 AND REF(V,1)>REF(单笔最大量,2)) OR (V>REF(单笔最大量,1) AND DBHS>=0.08 AND REF(V,2)>REF(单笔最大量,3))) AND C>REF(C,1);
LXTP1:=((V>REF(V,1)*0.9 AND DBHS>=0.1 AND REF(V,1)>REF(单笔最大量,2)) OR (V>REF(单笔最大量,1)*0.9 AND DBHS>=0.1 AND REF(V,2)>REF(单笔最大量,3))) AND C>REF(C,1);
DRAWTEXT(LXTP1,V*1.4,'@'),COLORYELLOW;
DRAWTEXT(LXTP,V*1.1,'@'),COLORRED;
XG:=LXTP,COLORYELLOW;
VA:=IF(CLOSE>REF(CLOSE,1),VOL/10,-VOL/10);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLORYELLOW,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,标准量,'←标准量'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR=1,OBV,'←OBV'),COLORYELLOW;
SPLH1:=(VOL/CLOSE)/2;
SPLH2:=SUM(IF(SPLH1>100 AND CLOSE>REF(CLOSE,1),SPLH1,0),0);
SPLH3:=SUM(IF(SPLH1>100 AND CLOSE< REF(CLOSE,1),SPLH1,0),0);
SPLH4:=SUM(IF(SPLH1< 100 AND CLOSE>REF(CLOSE,1),SPLH1,0),0);
SPLH5:=SUM(IF(SPLH1< 100 AND CLOSE< REF(CLOSE,1),SPLH1,0),0);
SPLH6:=((SPLH2+SPLH3)+SPLH4)+SPLH5;
量比:=SUM(VOL,0)*240/MA(V,5)/BARSCOUNT(C);
SPLH7:=IF((CURRBARSCOUNT=2),((100*SPLH2)/SPLH6),0);
SPLH8:=((IF((CURRBARSCOUNT=2),((100*SPLH3)/SPLH6),0)));
SPLH9:=((IF((CURRBARSCOUNT=2),((100*SPLH4)/SPLH6),0)));
SPLH10:=((IF((CURRBARSCOUNT=2),((100*SPLH5)/SPLH6),0)));
主力买:=CROSS(SPLH2,SPLH3) AND 量比>0.5,NODRAW;
DRAWICON(主力买,单笔最大量,34);
DRAWTEXT(主力买,单笔最大量*0.9,'主力买'),COLORYELLOW;
