通达信庄赢分时主图，主力低吸 机构买入扫盘

H1:=MAX(DYNAINFO(3),DYNAINFO(5));

L1:=MIN(DYNAINFO(3),DYNAINFO(6));

P1:=H1-L1;

阻力:L1+P1*8/9,COLORCYAN,LINETHICK1;

支撑:L1+P1*0.5/9,COLORFF66FF,LINETHICK1;

中:(H1+L1)/2,POINTDOT,COLORWHITE,LINETHICK1;

DRAWICON(LONGCROSS(支撑,C,2),C*0.995,44);

STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORRED;

DRAWICON(LONGCROSS(C,阻力,2),C*1.005,45);

STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORGREEN;

STICKLINE(C< 支撑,支撑,C,1,0),COLORYELLOW;

成交额:=V*C/100,NODRAW;

gspt1:=SUM((IF(((成交额/8>20) AND (C>(REF(C,1)))),成交额,0)),0);

gspt2:=SUM((IF(((成交额/8>20) AND (C< (REF(C,1)))),成交额,0)),0);

gspt3:=SUM((IF(((成交额/8< 20) AND (C>(REF(C,1)))),成交额,0)),0);

gspt4:=SUM((IF(((成交额/8< 20) AND (C< (REF(C,1)))),成交额,0)),0);

gspt5:=((gspt1+gspt2)+gspt3)+gspt4;

gspt6:=1;

gspt7:=STRCAT(STRCAT('机构买入',CON2STR((100*gspt1)/gspt5,0)),'%');

gspt8:=STRCAT(STRCAT('机构卖出',CON2STR((100*gspt2)/gspt5,0)),'%');

DRAWTEXT_FIX(gspt6=1,0.0,0.9,0,gspt7),COLORRED;

DRAWTEXT_FIX(gspt6=1,0.1,0.1,0,gspt8),COLORBLACK;

所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));

DRAWTEXT_FIX(ISLASTBAR,0.09,0.95,0,所属板块),COLORWHITE;

价:=C;

大盘:=EMA(INDEXC,500)/EMA(C,500);

大盘参考线:=INDEXC/大盘;

var1:=(3*C+L+O+H)/6;

var2:=(20*var1+19*REF(var1,1)+18*REF(var1,2)+17*REF(var1,3)+16*REF(var1,4)+15*REF(var1,5)+14*REF(var1,6)+13*REF(var1,7)+12*REF(var1,8)+11*REF(var1,9)+10*REF(var1,10)+9*REF(var1,11)+8* REF(var1,12)+7*REF(var1,13)+6*REF(var1,14)+5*REF(var1,15)+4*REF(var1,16)+3*REF(var1,17)+2*REF(var1,18)+REF(var1,21))/210;

var3:=HHV(C,90);

var4:=LLV(C,90);

var5:=var3-var4;

var6:=EMA((C-var4)/var5-0.5,14);

var7:=var6*20;

var8:=REF(HHV(C,66),2);

var9:=CROSS(C,var8) AND (HHV(C,110)/LLV(C,110)-1)*100< 45 AND var7< 5.666;

var10:=15*FILTER(var9,41)>10;

主力扫盘:=var10*50,;

DRAWTEXT(var10,C,'●主力吸筹'),COLORRED;

var:=(VOL/C)/2;

var11:=SUM(IF(var>100 AND C>REF(C,1),var,0),0);

var12:=SUM(IF(var>100 AND C< REF(C,1),var,0),0);

var13:=SUM(IF(var< 100 AND C>REF(C,1),var,0),0);

var14:=SUM(IF(var< 100 AND C< REF(C,1),var,0),0);

var15:=var11+var12+var13+var14;

机买:=(var11/var15)*100;

机卖:=(var12/var15)*100;

主力差:=机买-机卖;

var16:=DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构')=1;

DRAWTEXT(var16>0 ,C*1.0001,'●'),COLORRED;

var17:=EMA(EMA(C,13),13);

控盘:=(var17-REF(var17,1))/REF(var17,1)*1000;

X_:=DYNAINFO(11);

财:=(EMA(C,8)-EMA(C,55))*10;

神:=EMA(财,3);

X_1:=(C-X_)/X_< -0.03;

X_2:=控盘>REF(控盘,1) AND 控盘< -0.2;

X_3:=CROSS(财,神) AND 财< -0.3;

X_4:=FILTER(X_1 AND X_2 AND X_3,13);

DRAWTEXT(X_4,C,'●庄赢'),COLORYELLOW;

星期:=WEEKDAY;

日1:=DATETODAY(DATE);

上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);

自然日:=日1-DATETODAY(上市日)+1;

ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTALBARSCOUNT-CURRBARSCOUNT=0;

周期:=BARSLAST(ZB)+1;

MA1:=REF(C,周期);

MA2:=REF(MA1,周期);

MA3:=REF(MA2,周期);

MA4:=REF(MA3,周期);

MA5:=REF(MA4,周期);

MA6:=REF(MA5,周期);

MA7:=REF(MA6,周期);

MA8:=REF(MA7,周期);

MA9:=REF(MA8,周期);

MA10:=REF(MA9,周期);

MA11:=REF(MA10,周期);

MA12:=REF(MA11,周期);

十三周价:=(C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9+MA10+MA11+MA12)/13;

决策:REFDATE(十三周价,DATE),POINTDOT,COLORMAGENTA;

DRAWICON(CROSS(C,决策),C,1);