将“理想资金流”改成选股公式_股票书籍

源码：

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