相关标签:选择大区仅限教育专区,欧元 技术指标 选择,金鱼专区品种大全,惠比特交易和配种专区,梦三国交易专区,梦三国交易专区速秒,灵缇格力交易专区,中京交易市场下载专区,古币银元交易专区,
模型策略源码:runmode:0; length:=20; bkname:=\'连续合约\'; stks:=stkcount(bkname); variable:stknames[stks]=0; variable:stktrades[stks]=0; variable:stkposes[stks]=0; variable:mypos=0; variable:cantrade=0; if date>ref(date,1) then begin length:=20; for i=1 to stks do begin stkcode:=stkfromblk(bkname,i); stknames[i]:=strremove(stkcode,0,2); stktrades[i]:=0; for j=1 to length do begin myamount:=callstock(stknames[i],vtamount,6,-j); if myamount then myamount:=myamount; else myamount:=0; stktrades[i]:=stktrades[i]+myamount; end stktrades[i]:=stktrades[i]/length; stkposes[i]:=i; end for i=1 to stks do begin for j=1 to stks-i do begin if stktrades[j]<stktrades[j+1] then begin t1:=stktrades[j]; stktrades[j]:=stktrades[j+1]; stktrades[j+1]:=t1; t2:=stkposes[j]; stkposes[j]:=stkposes[j+1]; stkposes[j+1]:=t2; end end end for i=1 to stks do begin if stricmp(stklabel,stknames[stkposes[i]])=0 then begin mypos:=i; end end end 点击复制上述代码粘贴到到公式管理器
{别忘了将本网告诉您身边的朋友,向朋友传达有用资料,也是一种人情,你朋友会感谢你的。}