将“理想化资金流”改成选股公式

编写标准：

编写方式：网友求助：

源代码：

{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;