将"理想资金流"改成选股公式

编写要求：

股票网解答：

网友求助：

源码：
{LX-SVZJ}
refline:0;
TODAY:= "ddx.ddx"=0;
DD1:=amount*BIGORDER(1,2)/10000;
DD2:=amount*"DDEDATA@BIGORDER"(1,2)/10000;
DD3:=amount*BIGORDER(2,2)/10000;
DD4:=amount*"DDEDATA@BIGORDER"(2,2)/10000;
DD5:=(BIGORDER(1,2)-BIGORDER(2,2));
DD6:=("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2));
DD:=IF(TODAY,DD6,DD5);
流入:IF(TODAY,DD2,DD1),colorred,linethick0;
流出:IF(TODAY,DD4,DD3),colorgreen,linethick0;
净额:流入-流出,linethick0;
HS:=vol/capital;
DT:=HS*DD*100;
{三增减:Sum(DT,3),colorgreen,linethick0;
五增减:Sum(DT,5),colorgreen,linethick0;
七增减:Sum(DT,7),colorgreen,linethick0;
十增减:Sum(DT,10),colorgreen,linethick0;
十五增减:Sum(DT,15),colorgreen,linethick0;
二十增减:Sum(DT,20),colorgreen,linethick0;}
{五日飘红:count(净额>0,5),colorred,linethick0;}
十日飘红:count(净额>0,10),colorred,linethick0;
{十五日飘红:count(净额>0,15),colorred,linethick0;
二十日飘红:count(净额>0,20),colorred,linethick0;}
连红:last(净额>0),colorred,linethick0;
stickline(净额>0,0,净额,4,0),colorred,linethick2;
stickline(净额<0,净额,0,4,0),colorgreen,linethick2;
当日增减度:DT, linethick0;
当日成交 := (DT * capital) * DYNAINFO(11)/10000;
买入手数 := (capital*DT)/100;
if (当日成交>=0) then
begin
Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
if 当日成交<0 then
begin
Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';
Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';
Str3 := '当日增减度：' + NUMTOSTRN(DT,3);
end;
DRAWFLAGTEXT(DT>=0,净额,Str1+str2+str3),COLORRED;
DRAWFLAGTEXT(DT<0,净额,Str1+str2+str3),COLORGREEN;
DRAWTEXTREL(0,0,'理想资金流'),COLORYELLOW;

请老师更改为：净额当日大于0或3日内有2日大于0的选股公式~！
谢谢老师~！

解答如下：

TODAY:= "ddx.ddx"=0;
DD1:=amount*BIGORDER(1,2)/10000;
DD2:=amount*"DDEDATA@BIGORDER"(1,2)/10000;
DD3:=amount*BIGORDER(2,2)/10000;
DD4:=amount*"DDEDATA@BIGORDER"(2,2)/10000;
DD5:=(BIGORDER(1,2)-BIGORDER(2,2));
DD6:=("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2));
DD:=IF(TODAY,DD6,DD5);
流入:=IF(TODAY,DD2,DD1);
流出:=IF(TODAY,DD4,DD3);
净额:=流入-流出;
净额>0 or count(净额>0,3)>=2;

>