等级: 标准版
- 注册:
- 2023-2-16
- 曾用名:
|
你试试
{禁止提醒}WARNING_DISABLE:11;
{逐K模式运行}RUNMODE:0;
//以下代码对非双年份合约有效（SC,AY,SRY,BUY等是双年份合约）
INPUT:N(4,1,12,1);//需要获取的排序位数，如N=4，默认最终获取前四名的数值结果。
VARIABLE:codeArr[12]:='',volArr[12]:=0,sortArr[N]:=0;//codeArr 品种代码数组;volArr 成交量数组；sortArr 排序结果数组,默认长度是4
STR:=STRTRIMRIGHT( STKLABEL, '0123456789');
//生成每个月的合约代码 并存入到数组中。这个只在第一个K上运行下。字符串相关操作比较消耗资源，没必要每个分笔来都进行一次。
if BARPOS=1 then
begin
for i=1 to 12 do //默认按照该品种有12个月份的合约。
begin
codeArr:= STRCAT(str,STRRIGHT(NUMTOSTR(i/100,2),2));
end
end
if ISLASTBAR then //将成交量填充到数组里面去. 这里可以自行调整，可以是成交量也可以是其他的什么值，自行选择处理即可。
begin
for j=1 to 12 do
begin
code:=codeArr[j];//code就是合约代码
vox:=CALLSTOCK(code,vtOPENINT,6,0);
volArr[j]:=if(vox>=0,vox,0);//不活跃品种，获取到的成交量可能是负值，这里处理下确保没有负值。
end
end
if ISLASTBAR then //利用线性函数取最大成交量的索引（就是月份数值），每次取值完成后 可以把这个最大值重置为0，这样可以依次获取成交量最大的前几名了。
begin
for j=1 to N do
begin
index:=MFAMAX(volArr,12);
sortArr[j]:=index;
volArr[index]:=0;
end
end
if ISLASTBAR then
begin
持仓主力月:sortArr[1];//第一的月份
持仓次主力月:sortArr[2];//第二的月份
END
END
|
|
发表于 2023-8-10 14:20
发表于 2023-8-10 14:31
楼主