通达信机构买分时主图指标(源码)

成交额:=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;
AAA1:=STRCAT(STRCAT( 机构买 ,CON2STR((100*A2)/A6,0)), %%
AAA2:=STRCAT(STRCAT( 机构卖 ,CON2STR((100*A3)/A6,0)), %%
AAA3:=STRCAT(STRCAT( 总买入 ,CON2STR((100*(A2-A3))/A6,0)), %%
DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;