编写标准:
编写方式:网友求助:
源代码:
{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;