编写要求:
解答:
?网友求助:
源码:
{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的选股公式~!
谢谢老师~!
Copyright 2018- www.dyjian.com/ 大宇股票知识网 海口美兰韩哲棚百货商行 版权所有 琼ICP备2023001966号
免责声名:本站所发表的内容仅用于学术交流和学习,内容所带来的一切后果均与本站无关。若您发现本站存在您非授权的原创作品,请第一时间联系本站删除!