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

左栏

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

   

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

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

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


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		[技术指标]排序模板  发帖心情 Post By：2012/2/5 10:31:16 [只看该作者]

 

序列排序：

runmode:1;

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

variable:stklabels[stks]=0;
variable:stktrades[stks]=0;

for i=1 to stks do begin
code:=stkfromblk(bkname,i);
stklabels[i]:=strremove(code,0,2);
stktrades[i]:=(callstock(stklabels[i],vthigh,-1,0)-callstock(stklabels[i],vtlow,-1,0))/callstock(stklabels[i],vtopen,-1,0)*100;
end

p:=sortpos(stktrades,1,1,stks);

for i=1 to stks do begin
if stricmp(stklabel,stklabels[stktrades[i]])=0 then
mypos:=i;
end

序列位置:mypos,linethick0;

 

逐K排序

 

runmode:0;

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

variable:stklabels[stks]=0;
variable:stktrades[stks]=0;
variable:stkposes[stks]=0;

for i=1 to stks do begin
code:=stkfromblk(bkname,i);
stklabels[i]:=strremove(code,0,2);
stktrades[i]:=(callstock(stklabels[i],vthigh,-1,0)-callstock(stklabels[i],vtlow,-1,0))/callstock(stklabels[i],vtopen,-1,0)*100;

if stktrades[i]>0 then
stktrades[i]:=stktrades[i];
else
stktrades[i]:=0;

stkposes[i]:=i;
end

for i=1 to stks do begin
for j=1 to stks-i do begin
if stktrades[j] 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,stklabels[stkposes[i]])=0 then
mypos:=i;
end

逐K位置:mypos,linethick0;
 回到顶部
帅哥哟，离线，有人找我吗？
rushtaotao
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		  发帖心情 Post By：2012/3/12 15:44:26 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
日落沧江静
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：4 积分：17 威望：0 精华：0 注册：2012/9/19 11:32:58 		  发帖心情 Post By：2012/10/18 13:26:32 [只看该作者]

版主在吗    逐K模式中     if stktrades[j]       --------此处缺少 then  语句    具体条件是什么 ？？

 

t1:=stktrades[j];
stktrades[j]:=stktrades[j+1];
stktrades[j+1]:=t1;


 回到顶部
帅哥哟，离线，有人找我吗？
日落沧江静
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：4 积分：17 威望：0 精华：0 注册：2012/9/19 11:32:58 		  发帖心情 Post By：2012/10/18 13:29:52 [只看该作者]

for i=1 to stks do begin
for j=1 to stks-i do begin
if stktrades[j] 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



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


加好友 发短信
等级：新手上路 帖子：66 积分：-17 威望：0 精华：0 注册：2012/9/4 15:03:15 		  发帖心情 Post By：2012/10/31 17:45:50 [只看该作者]

强呀

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


加好友 发短信
等级：新手上路 帖子：40 积分：53 威望：0 精华：0 注册：2012/6/7 22:45:44 		  发帖心情 Post By：2012/11/10 17:02:28 [只看该作者]

强

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


加好友 发短信
等级：论坛游民 帖子：182 积分：910 威望：0 精华：0 注册：2011/4/12 15:24:59 		  发帖心情 Post By：2012/11/19 9:28:23 [只看该作者]

请版主或楼主尽快把逐kM模板错误修正下！

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


加好友 发短信 大哥
等级：超级版主 帖子：2837 积分：13237 威望：0 精华：2 注册：2010/7/14 17:31:54 		  发帖心情 Post By：2012/11/19 10:13:16 [只看该作者]

已经修正了！多谢楼上各位提醒～


金字塔—专业程序化交易量化投资平台

客户服务部

-----------------------------------------------------------

欢迎您参加我公司的技术培训，具体培训需求请发邮件到

service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
manbutianya
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：182 积分：910 威望：0 精华：0 注册：2011/4/12 15:24:59 		  发帖心情 Post By：2012/11/19 10:38:18 [只看该作者]

还是错，没有按照大小排序啊
 回到顶部
帅哥哟，离线，有人找我吗？
manbutianya
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：182 积分：910 威望：0 精华：0 注册：2011/4/12 15:24:59 		  发帖心情 Post By：2012/11/19 13:30:24 [只看该作者]

代码如下，怎么没按大小排序啊

RUNMODE:0;
bkname:='自动交易';
stks:=stkcount(bkname)+1;

variable:stklabels[stks]=0;
variable:stktrades[stks]=0;
variable:stkposes[stks]=0;

for i=1 to stks do begin
code:=stkfromblk(bkname,i);
stklabels[i]:=strremove(code,0,2);
stktrades[i]:=stkindi(stklabel,'maxlb.liangbi',2,1,0);

if stktrades[i]>0 then
stktrades[i]:=stktrades[i];
else
stktrades[i]:=0;
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];
 t2:=stkposes[j];
stktrades[j]:=stktrades[j+1];
stkposes[j]:=stkposes[j+1];
stktrades[j+1]:=t1;
stkposes[j+1]:=t2;
end
 
end
end

for i=1 to stks do begin
if stricmp(stklabel,stklabels[stkposes[i]])=0 then
mypos:=i;
end
liangx:mypos;
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.08203 秒, 5 次数据查询