当日资金流向－精品通达信指标公式源码分享

现手买:=BUYVOL*DYNAINFO(7)*100/10000;

现手卖:=SELLVOL*DYNAINFO(7)*100/10000;

合:=ABS(现手买)+ABS(现手卖);

差:=ABS(现手买)-ABS(现手卖);

XM1:=ABS(现手买)/合*100;

XM2:=ABS(现手卖)/合*100;

DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}

DRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}

DRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}

DRAWTEXT_FIX(1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万')),COLORRED;

DRAWTEXT_FIX(1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万')),COLORGREEN;

DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万'))), COLORRED;

DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万'))), COLORGREEN;

DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万'))), COLORYELLOW;

DRAWTEXT_FIX(1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;

DRAWTEXT_FIX(1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;

成交额:=V*C/100,NODRAW;{万元}

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

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

A6:=(A2+A3);

A7:=IF((ISLASTBAR),((100*A2)/A6),0);

A8:=IF((ISLASTBAR),((100*A3)/A6),0);

DD1:=1;

DD2:=SMA(ABS(L-REF(LOW,2)),3,1);

AA1:=STRCAT(STRCAT(' 机构买',CON2STR((100*A2)/A6,0)),'%');

AA2:=STRCAT(STRCAT(' 机构卖',CON2STR((100*A3)/A6,0)),'%');

AA3:=STRCAT(STRCAT(' 机构流',CON2STR((100*(A2-A3))/A6,0)),'%');

DRAWTEXT_FIX(DD1=1,0,0.5,0,AA1),COLORRED;

DRAWTEXT_FIX(DD1=1,0,0.8,0,AA2),COLORGREEN;

DRAWTEXT_FIX(DD1=1,0,0.11,0,AA3),COLORYELLOW;

{图表上再加点花头}

V5:=MA(VOL,5); V10:=MA(VOL,10);

虚量:=IF(ISLASTBAR AND FROMOPEN<240,FROMOPEN*VOL/240,VOL);

流通盘【亿】:CAPITAL/1000000,NODRAW;换手:=100*VOL/流通盘【亿】/1000000;

即时:=550+换手*700/100;

X1:=IF(差>=0,255,0);Y1:=IF(差>=0,0,255);Z1:=IF(差>=0,0,65);

DRAWRECTREL(180,900,220,200,RGB(255,255,255)); {图表底色-白};

DRAWRECTREL(180,900,220,即时,RGB(X1,Y1,Z1));

DRAWTEXT_FIX(1,0.28,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(虚量,1)),'手')),COLORRED;

DRAWTEXT_FIX(1,0.28,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;

DRAWTEXT_FIX(1,0.28,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW;