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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 如何不用VBA实现等价k线

   

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

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

主题：如何不用VBA实现等价k线
帅哥哟，离线，有人找我吗？
leelatan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：406 积分：196 威望：0 精华：0 注册：2013/1/22 18:44:07 		如何不用VBA实现等价k线  发帖心情 Post By：2016/7/10 22:24:35    Post IP：116.22.163.0[只看该作者]

等价k线的实现，之前看到的帖子似乎都要用到vba。

如何在普通的图表上显示等价k线？终于找到一段代码，可以在金字塔副图正常显示。

请版主看下，这样实现出来的等价K线是否准确。有没有未来数据？


INPUT:N(5,1,100);
fc:=c;fo:=o;cc:0*c,PRECISION4,LINETHICK0;oo:0*c,PRECISION4,LINETHICK0;t1:=0*c;t2:=0*c;

for i=1 to datacount do begin
  if i=1 and fc[i]>fo[i] then
  cc[i]:=fc[i];
  oo[i]:=fc[i];
  if i=1 and fc[i]<fo[i] then
  cc[i]:=fc[i];
  oo[i]:=fc[i];
  if i>1 then
  cc[i]:=cc[i-1];
  oo[i]:=oo[i-1];
  if i>1 and fc[i]>cc[i]*(1+n/1000) then begin
  cc[i]:=cc[i-1]*(1+n/1000);
  oo[i]:=cc[i-1];
end;
  if i>1 and fc[i]<oo[i]/(1+n/1000) then begin
  oo[i]:=oo[i-1]/(1+n/1000);
  cc[i]:=oo[i-1];
end;
  if oo[i]=oo[i-1] then
    t1[i]:=t1[i-1]+1;
  if cc[i]=cc[i-1] then
    t2[i]:=t2[i-1]+1;
end;
o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1);
格子点数:abs(cc-oo),PRECISION4,linethick0;
STICKLINE(c1=oo,ref(cc,1),ref(oo,1),1,1)COLORRED;
STICKLINE(c1=oo,cc,oo,8,1)COLORRED;
STICKLINE(o1=cc,ref(cc,1),ref(oo,1),1,1)COLORCYAN;
STICKLINE(o1=cc,cc,oo,8,1)COLORCYAN;
[此贴子已经被作者于2016-7-10 22:26:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2016/7/11 9:48:59    Post IP：180.169.30.6[只看该作者]

这里设置的价差是多少？


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

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

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


加好友 发短信
等级：论坛游侠 帖子：406 积分：196 威望：0 精华：0 注册：2013/1/22 18:44:07 		  发帖心情 Post By：2016/7/11 10:28:06    Post IP：14.124.107.38[只看该作者]

就是那个参数n，5代表千分之5。

不过感觉这个写法好像有未来数据，尤其在有巨大跳空缺口的时候。

麻烦帮测试一下？
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2016/7/11 10:34:31    Post IP：180.173.43.114[只看该作者]

同样是5价差的等价k线，效果差很多，用户还是取用vba实现吧
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

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

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

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


加好友 发短信
等级：论坛游侠 帖子：406 积分：196 威望：0 精华：0 注册：2013/1/22 18:44:07 		  发帖心情 Post By：2016/7/11 10:49:27    Post IP：14.124.107.38[只看该作者]

用ｖｂａ实现的等价ｋ线主图上，可以做程序化交易吗

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


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2016/7/11 11:02:53    Post IP：180.173.198.10[只看该作者]

不行，等价图不能用来做交易


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

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 02.35938 秒, 6 次数据查询