本帖最后由 资深技术05 于 2024-4-1 09:07 编辑
第一个问题:
[PEL] 复制代码 input:x(1,0.01,100,0.01);//单位是%
if islastbar then
begin
所属行业:=hyblock;
explain(1,所属行业);//后台里运行时候,请注释掉这行代码
行业品种数量:stkcount(所属行业);//所属行业对应的板块品种数量
up_count:=0;//满足指定涨幅品种数量
for i=1 to 行业品种数量 do
begin
code:=stkfromblk(所属行业,i);//品种代码
d1:=callstock(code,vtclose,6,-1);//昨收盘价
c0:=callstock(code,vtclose,-1,0);//最新价
//利用日期过滤当前日期下没有行情的品种,需最新7.0版才能使用这个函数
//如果是其他版本则不能直接调用到指定品种的最新日期,就只能跨指标调用了
date_:=callstock(code,vtdate,6,0);
if valid(d1)=0 or valid(c0)=0 or date>date_ then continue;
zdf:=100*(c0-d1)/d1;
if zdf>=x then up_count:=up_count+1;
end
end
上涨总数:up_count;
但是我需要提醒你,如果你的品种很多,那么在每个品种上都进行这样的循环操作,是很可能会直接卡死掉的。并且这个问题可能是没有好的解决方案的.
|