n日内涨幅问题
-
相关简介：编写要求： www.guhai.com.cn 股海网解答： 网友求助： 求100日内涨幅最大的前50个交易日涨幅总和，这个公式怎么编写？ 解答如下： input:n(100,1,9999); wx:=barslast(barpos=0); nn:=wx; if datacountn then begin nn:=datacount-1; end else begin nn:=n; end; ZF:=(c/ref(c,1)-1)*100; dt:=datacount; tmp:=sort(ZF
-
文章来源：股海网作者：股海网发布时间：2019-03-07浏览次数：
编写要求：
www.guhai.com.cn股海网解答：
网友求助：
求100日内涨幅最大的前50个交易日涨幅总和，这个公式怎么编写？
解答如下：
input:n(100,1,9999);
wx:=barslast(barpos=0);
nn:=wx;
if datacount<n then begin
nn:=datacount-1;
end else begin
nn:=n;
end;
ZF:=(c/ref(c,1)-1)*100;
dt:=datacount;
tmp:=sort(ZF,0, dt-nn+1,dt);
ZFv:=(c/ref(c,1)-1)*100;
sp:=c*0;
for i=dt downto dt-nn+1 do begin
for j=dt downto dt-nn+1 do begin
if ZFv[j]=ZF[i] then
sp[j]:=i;
end;
end;
ZFp:=if(sp-(dt-nn)>=50,ZFv,0);
涨幅总和:sum(ZFp,0);
wx:=barslast(barpos=0);
nn:=wx;
if datacount<n then begin
nn:=datacount-1;
end else begin
nn:=n;
end;
ZF:=(c/ref(c,1)-1)*100;
dt:=datacount;
tmp:=sort(ZF,0, dt-nn+1,dt);
ZFv:=(c/ref(c,1)-1)*100;
sp:=c*0;
for i=dt downto dt-nn+1 do begin
for j=dt downto dt-nn+1 do begin
if ZFv[j]=ZF[i] then
sp[j]:=i;
end;
end;
ZFp:=if(sp-(dt-nn)>=50,ZFv,0);
涨幅总和:sum(ZFp,0);
上一篇：均线金叉选股改为飞狐
下一篇：只在9:30到10:00内运行的限定公式
☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:
现在就去充值积分
加入VIP可下载100以下的所有资源
栏目导航