说明
这一款专为短线交易设计的日内资金追踪工具。它基于Level-2数据深度加工,将主力大单资金在分时图上的每一次异动转化为直观的曲线和柱状图。主图显示资金趋势线与G价叠加,副图则分别展示主力资金净流入/流出强度和大单成交密度,选G指标则用于在收盘前筛选当天资金抢筹明显的个G。
示图
主图
XG:HHV(H,480),DOTLINE,COLORCYAN; RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;
MA1:=REF(C,JY);
MA2:=REF(MA1,JY);
MA3:=REF(MA2,JY);
MA4:=REF(MA3,JY);
MA5:=REF(MA4,JY);
MA6:=REF(MA5,JY);
MA7:=REF(MA6,JY);
MA8:=REF(MA7,JY);
MA9:=REF(MA8,JY);
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力 1+P1*8/9,COLORLIRED,DOTLINE;
支撑 1+P1*0.5/9,COLORGREEN,DOTLINE;
均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORYELLOW,DOTLINE;
DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3);
DEA:=EMA(DIF,9);
MACD1:=10*(DIF-DEA);
MACD2:=EMA(MACD1,2);
STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGRAY;
STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLICYAN;
STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGRAY;
STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGREEN;
XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));
主力:=EXPMA(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120);
底:=1;1.022,NODRAW;高:=1.033;
DRAWTEXT(CROSS(主力,1.02),C*0.999,' 拉'),COLORMAGENTA;
DRAWICON(CROSS(主力,1.04),C,45);
DRAWTEXT(CROSS(主力,1.04),C*0.999,' 冲'),COLORRED;
A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((BARSTATUS=2),((100*A2)/A6),0);
A8:=((IF((BARSTATUS=2),((100*A3)/A6),0)));
A9:=((IF((BARSTATUS=2),((100*A4)/A6),0)));
A10:=((IF((BARSTATUS=2),((100*A5)/A6),0)));
DRAWTEXT(LONGCROSS(支撑,C,2),C-0.01,' 买入'),COLOR0000FF;
DRAWICON(LONGCROSS(支撑,C,2),C-0.01,1);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORCYAN;
DRAWTEXT(LONGCROSS(C,阻力,2),C+0.01,' 卖出'),COLORGREEN;
DRAWICON(LONGCROSS(C,阻力,2),C+0.01,45);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORRED;
量价:=(VOL/CLOSE)/3;
B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
B6:=B2+B3;DD1:=1;比:=B2/B3;
D1:=YEAR AND MONTH AND DAY;
BA1:=STRCAT(CON2STR(YEAR,0),'年');
BA2:=STRCAT(CON2STR(MONTH,0),'月');
BA3:=STRCAT(CON2STR(DAY,0),'日');
BA4:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(BA1,BA2),STRCAT(BA3,BA4)),'');
DRAWTEXT_FIX(D1,0.905,0,0,AA),COLORGRAY;
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);
WA6:=((A2+A3)+A4)+A5;
WA7:=IF((ISLASTBAR),((100*WA2)/WA6),0);
WA8:=IF((ISLASTBAR),((100*WA3)/WA6),0);
WA9:=IF((ISLASTBAR),((100*WA4)/WA6),0);
WA10:=IF((ISLASTBAR),((100*WA5)/WA6),0);
机构买盘:=(WA2);
机构卖盘:=(WA3);
散户买盘:=(WA4);
散户卖盘:=(WA5);
DRAWTEXT_FIX(1,0.752,1-0.088,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),' 万')),COLORRED;
DRAWTEXT_FIX(1,0.752,1-0.001,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),' 万')),COLORGREEN;
DRAWTEXT_FIX(1,0.883,1-0.088,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),' 万')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.883,1-0.001,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),' 万')),COLORCYAN;
副图
GZB1:=V*C/100,NODRAW; GZB2:=SUM((IF(((GZB1/8>20) AND (CLOSE>(REF(CLOSE,1)))),GZB1,0)),0);
GZB3:=SUM((IF(((GZB1/8>20) AND (CLOSE<(REF(CLOSE,1)))),GZB1,0)),0);
GZB4:=SUM((IF(((GZB1/8<20) AND (CLOSE>(REF(CLOSE,1)))),GZB1,0)),0);
GZB5:=SUM((IF(((GZB1/8<20) AND (CLOSE<(REF(CLOSE,1)))),GZB1,0)),0);
GZB6:=((GZB2+GZB3)+GZB4)+GZB5;
机构买 GZB2),LINETHICK6,COLORRED;
机构卖 GZB3),LINETHICK6,COLORGREEN;
机构进出:机构买-机构卖,NODRAW;
散户买 GZB4),COLOR5555FF;
散户卖 GZB5),COLOR55FF55;
GZB7:=散户买-散户卖;
强势 (100*GZB2)/GZB6>50);
STICKLINE(强势,机构买*1.02,机构买*1.1,1,0),COLORYELLOW;
拉升 (100*GZB2)/GZB6-(100*GZB3)/GZB6)>18 AND (100*GZB2)/GZB6-(100*GZB5)/GZB6>18;
STICKLINE(拉升,机构买*1.1,机构买*1.2,1,0),COLORRED;
DRAWTEXT(ISLASTBAR=1,机构买*0.95,''),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR=1,机构卖*0.95,''),LINETHICK2,COLORFFFF55;
GZB8:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))),1.05,0.95);
GZB9:=IF(GZB8=0,MA(C,BARSCOUNT(C)),(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))));
DRAWICON(CROSS((C/GZB9),1.03),机构买,5);
GZB10:=1;
GZB11:=STRCAT(STRCAT('机买',CON2STR((100*GZB2)/GZB6,0)),'%');
GZB12:=STRCAT(STRCAT('机卖',CON2STR((100*GZB3)/GZB6,0)),'%');
GZB13:=STRCAT(STRCAT('机构总买',CON2STR((100*(GZB2-GZB3))/GZB6,0)),'%');
GZB14:=STRCAT(STRCAT('散买',CON2STR((100*GZB4)/GZB6,0)),'%');
GZB15:=STRCAT(STRCAT('散卖',CON2STR((100*GZB5)/GZB6,0)),'%');
GZB16:=STRCAT(STRCAT('散户总买',CON2STR((100*(GZB4-GZB5))/GZB6,0)),'%');
DRAWTEXT_FIX(GZB10=1,0.801,0.05,0,GZB11),COLORRED;
DRAWTEXT_FIX(GZB10=1,0.801,0.15,0,GZB12),COLORGREEN;
DRAWTEXT_FIX(GZB10=1,0.801,0.25,0,GZB14),COLORRED;
DRAWTEXT_FIX(GZB10=1,0.801,0.35,0,GZB15),COLORGREEN;
DRAWTEXT_FIX(GZB10=1,0.801,0.65,0,GZB13),LINETHICK5,COLORCYAN;
DRAWTEXT_FIX(GZB10=1,0.801,0.50,0,GZB16),LINETHICK5,COLORCYAN;
GZB17:=(机构进出+GZB7)/GZB1,NODRAW;
GZB18:=STRCAT(STRCAT('主力净买',CON2STR(GZB17,0)),'%');
DRAWTEXT_FIX(GZB10=1,0.801,0.80,0,GZB18),COLORMAGENTA;
GZB19:=SUM(V*C,0)/SUM(V,0);
地:EMA(GZB19,50)/0.97,LINETHICK2,COLORGREEN,NODRAW;
GZB20:=COUNT(V>4000 AND C>REF(C,1),0);
GZB21:=COUNT(V>DYNAINFO(16)*10 AND C>REF(C,1),0);
DRAWICON(GZB20>REF(GZB20,1) AND GZB21>REF(GZB21,1) AND CROSS(C,地),机构买,24);
GZB22:=EMA((CLOSE+HIGH+LOW)/3,2);
GZB23:=MAX((DYNAINFO(3)),EMA(DYNAINFO(5),5));
GZB24:=MIN((DYNAINFO(3)),EMA(DYNAINFO(6),5));
GZB25:=(COST(95)+DYNAINFO(11))/2;
GZB26:=(COST(5)+DYNAINFO(11))/2;
GZB27:=CONST((GZB23+GZB25)/2);
GZB28:=CONST((GZB24+GZB26)/2);
GZB29:=(3*SMA((C-LLV(L,54))/(HHV(H,54)-LLV(L,54)),3,1)-2*SMA(SMA((C-LLV(L,54))/(HHV(H,54)-LLV(L,54)),3,1),3,1));
GZB30:=MEMA(GZB29,10);
GZB31:=EMA(GZB30,10);
GZB38:=IF(EXIST(CROSS(GZB27,GZB22),5) AND EXIST(C>GZB27,10) AND GZB30<HHV(GZB30,10) AND GZB31<REF(GZB31,1),1,0);
GZB39:=IF(EXIST(CROSS(GZB22,GZB28),5) AND EXIST(C<GZB28,10) AND GZB30>LLV(GZB30,10) AND GZB31>REF(GZB31,1),1,0);
DRAWICON(GZB38=1 AND REF(GZB38,1)=0,机构买,8);
DRAWICON(GZB39=1 AND REF(GZB39,1)=0,机构买,7);
|