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


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

   

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

  共有8483人关注过本帖平板打印复制链接

主题：[技术指标]成交额排序
帅哥哟，离线，有人找我吗？
z7c9
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/11/21 20:13:12 [只看该作者]

runmode:0;

input:length(20,1,60,1);

vector:=27;

variable:stknames[vector]=0;
variable:stktrades[vector]=0;
variable:stkposes[vector]=0;

stknames[1]:='cu00';
stknames[2]:='ru00';
stknames[3]:='zn00';
stknames[4]:='pb00';
stknames[5]:='wr00';
stknames[6]:='l00';
stknames[7]:='ta00';
stknames[8]:='al00';
stknames[9]:='p00';
stknames[10]:='v00';
stknames[11]:='cf00';
stknames[12]:='y00';
stknames[13]:='ro00';
stknames[14]:='srx00';
stknames[15]:='rb00';
stknames[16]:='ax00';
stknames[17]:='if00';
stknames[18]:='b00';
stknames[19]:='j00';
stknames[20]:='m00';
stknames[21]:='fu00';
stknames[22]:='er00';
stknames[23]:='c00';
stknames[24]:='wsx00';
stknames[25]:='wt00';
stknames[26]:='au00';
stknames[27]:='me00';

for i=1 to vector do begin 
 for j=1 to length do begin 
  stktrades[i]:=stktrades[i]+callstock(stknames[i],vtvol,6,-j)*(callstock(stknames[i],vthigh,6,-j)-callstock(stknames[i],vtlow,6,-j))*multiplier;
 end
 
 stktrades[i]:=stktrades[i]/length;
end

for i=1 to vector do begin
 stkposes[i]:=i;
end

for j=2 to vector do begin
 for i=vector downto j do begin
  if stktrades[i]<stktrades[i-1] then begin
   t:=stktrades[i];
   stktrades[i]:=stktrades[i-1];
   stktrades[i-1]:=t;
   t1:=stkposes[i];
   stkposes[i]:=stkposes[i-1];
   stkposes[i-1]:=t1;  
  end
 end
end

for i=1 to vector do begin
 if stricmp(stklabel,stknames[stkposes[vector-i+1]])=0 then begin
  if i<=10 then
   mypos:i,noaxis,coloryellow,linethick2;
 end
end

 

runmode:0;

input:length(20,1,60,1);

vector:=27;

variable:stknames[vector]=0;
variable:stktrades[vector]=0;
variable:stkposes[vector]=0;

stknames[1]:='cu00';
stknames[2]:='ru00';
stknames[3]:='zn00';
stknames[4]:='pb00';
stknames[5]:='wr00';
stknames[6]:='l00';
stknames[7]:='ta00';
stknames[8]:='al00';
stknames[9]:='p00';
stknames[10]:='v00';
stknames[11]:='cf00';
stknames[12]:='y00';
stknames[13]:='ro00';
stknames[14]:='srx00';
stknames[15]:='rb00';
stknames[16]:='ax00';
stknames[17]:='if00';
stknames[18]:='b00';
stknames[19]:='j00';
stknames[20]:='m00';
stknames[21]:='fu00';
stknames[22]:='er00';
stknames[23]:='c00';
stknames[24]:='wsx00';
stknames[25]:='wt00';
stknames[26]:='au00';
stknames[27]:='me00';

for i=1 to vector do begin 
 for j=1 to length do begin 
  stktrades[i]:=stktrades[i]+callstock(stknames[i],vtvol,6,-j)*(callstock(stknames[i],vthigh,6,-j)-callstock(stknames[i],vtlow,6,-j))*multiplier;
 end
 
 stktrades[i]:=stktrades[i]/length;
end

for i=1 to vector do begin
 stkposes[i]:=i;
end

for j=2 to vector do begin
 for i=vector downto j do begin
  if stktrades[i]<stktrades[i-1] then begin
   t:=stktrades[i];
   stktrades[i]:=stktrades[i-1];
   stktrades[i-1]:=t;
   t1:=stkposes[i];
   stkposes[i]:=stkposes[i-1];
   stkposes[i-1]:=t1;  
  end
 end
end

for i=1 to vector do begin
 if stricmp(stklabel,stknames[stkposes[vector-i+1]])=0 then begin
  if i<=10 then
   mypos:i,noaxis,coloryellow,linethick2;
 end
end

 

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