把这个附图指标改为日净流入大于零的选股公式

编写要求：

股票网解答：

网友求助：

源码如下：

jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);
XD1:=qj0*(jj-MIN(CLOSE,OPEN));
XD2:=qj0*(HIGH-MAX(OPEN,CLOSE));
TD2:=qj0*(MAX(CLOSE,OPEN)-jj);
日净额:((TD1+XD1)-(TD2+XD2))/10000,PRECIS2,linethick0;
周净额:sum(日净额,5),PRECIS2,linethick0;
月净额:sum(日净额,22),PRECIS2,linethick0;
FILLRGN(周净额,0,周净额>0,RGB(80,0,0),周净额<0,RGB(0,50,0));
stickline(日净额>0,0,日净额,6,0),color0000aa;
stickline(日净额>0,0,日净额,3,0),color0000cc;
stickline(日净额>0,0,日净额,1,0),color0000ff;
stickline(日净额<0,日净额,0,6,0),color00aa00;
stickline(日净额<0,日净额,0,3,0),color00cc00;
stickline(日净额<0,日净额,0,1,0),color00ff00;
DRAWTEXTREL(0,0,'茶舍资金流(万元)'),COLORYELLOW;
DRAWTEXTREL(0,80,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;

解答如下：

jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);
XD1:=qj0*(jj-MIN(CLOSE,OPEN));
XD2:=qj0*(HIGH-MAX(OPEN,CLOSE));
TD2:=qj0*(MAX(CLOSE,OPEN)-jj);
((TD1+XD1)-(TD2+XD2))/10000>0;

>