修正一个分时主图指标通达信指标公式源码.doc

DRAWGBK(C>0, RGB(50,60,250),RGB(17,21,89),0,'ll',0);
05:='#DAY';
C5:=‘#DAY';
H5:='#DAY';
L5:='分(108,H02,108,L02,RGB(IF(C0>=O0,200,0),IF(C0>=O0,0,200),0)); DRAWRECTREL(100,C02,116,002,RGB(IF(C0>=O0,128,0),IF(C0>=O0,0,128),0)); ｛会心大盘分时主图：｝
成交额:=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((ISU\STBAR),((100*A2)/A6),0)；
A8:=IF((ISU\STBAR),((100*A3)/A6),0)；
DD1: = 1;
AAAI: =STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%')；
AAA2: =STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%')；
AAA3: =STRCAT(STRCAT('机构总买入',CON2STR((100*(A2-A3))/A6,0)),'%')；
AOOO:=DRAWTEXT_FIX(DD1 = 1,0,,0,AAAI),COLORRED;
A001:=DRAWTEXT_FIX(DDl = l,0,,0,AAA2),COLOR00FF00；
DRAWTEXT_FIX(DDl = l,0,,0,AAA3),COLOR00FFFF;
现手买:=BUYVOL*DYNAINFO(7)*100/10000 COLOROOOOFF^NODRAW;
现手卖：=SELLVOL*DYNAINFO(7)*100/10000 COLOROOFFOO,NODRAW;
合:=ABS(现手买)+ABS(现手卖)COLOR80FFF5 NODRAW;
差:=ABS(现手买)-ABS(现手卖)COLOR80FFF5NODRAW;
MPB1:=ABS(现手买)/合 *100；
MPB2:=ABS(现手卖)/合 *100;
TESTSKIP(NOT(现手买 OR 现手卖 OR 合 OR 差 OR MPB1 OR MPB2)!=0);
DRAWRECTREL(640,1000,940,940,RGB(190,190,190));
DRAWRECTREL(640,995,940,945,RGB(200,200,200));
DRAWRECTREL(640,990,940,950,RGB(210,210,210));
DRAWRECTREL(640,985,940,955,RGB(220,220,220));
DRAWRECTREL(640,980,940,960,RGB(230,230,230));
DRA