欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 交易策略发布专区 → [技术指标]品种选择

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有8157人关注过本帖树形打印复制链接

主题：[技术指标]品种选择
帅哥哟，离线，有人找我吗？
z7c9
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		[技术指标]品种选择  发帖心情 Post By：2011/12/4 21:38:34 [显示全部帖子]

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

可交易:mypos,linethick0;

 
 回到顶部
帅哥哟，离线，有人找我吗？
z7c9
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/12/5 21:33:00 [显示全部帖子]

runmode:0;

formula:='Dts1a.收益风险比(1,0)';
cycle:=2;

bkname:='连续合约';
stks:=stkcount(bkname);

variable:stknames[stks]='';
variable:stktrades[stks]=0;
variable:stkposes[stks]=0;

for i=1 to stks do begin
 stkcode:=stkfromblk(bkname,i);
 stknames[i]:=strremove(stkcode,0,2); 
 stktrades[i]:=stkindi(stknames[i],formula,0,cycle,0);
 stkposes[i]:=i;
end

if islastbar then begin
 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
  mystr:=stknames[stkposes[i]];
  mystkname:=strleft(mystr,strlen(mystr)-2);
  msgout(1,mystkname+' : '+numtostr(stktrades[i],2));
 end
end

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 6 次数据查询