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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 请老师帮助把序列模式下可显示的循环语句改成逐K模式

   

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

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

主题：请老师帮助把序列模式下可显示的循环语句改成逐K模式
美女呀，离线，留言给我吧！
自渔自乐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：338 积分：0 威望：0 精华：0 注册：2013/8/31 16:51:14 		请老师帮助把序列模式下可显示的循环语句改成逐K模式  发帖心情 Post By：2014/9/24 23:01:58    Post IP：221.219.147.58[只看该作者]



input:n(30,2,300),n1(90,2,300);
fh:=forcast(h,n);
fl:=forcast(l,n);
kh:=slope(h,n);
kl:=slope(l,n);
th:=0;
tl:=0;
for i=0 to n-1 do begin
  th:=th+abs(ref(h,i)-(fh-kh*i));
  tl:=tl+abs(ref(l,i)-(fl-kl*i));
end;
stdph:=th/n;
stdpl:=tl/n;
up:fh+2*stdph+kh,shift1,colorff9900,linedot;
dn:fl-2*stdpl+kl,shift1,colorff9900,linedot;
mid:0.5*(up+dn),shift1,,colorff9900,linethick1;

fh1:=forcast(h,n1);
fl1:=forcast(l,n1);
kh1:=slope(h,n1);
kl1:=slope(l,n1);
th1:=0;
tl1:=0;
for i=0 to n1-1 do begin
  th1:=th1+abs(ref(h,i)-(fh1-kh1*i));
  tl1:=tl1+abs(ref(l,i)-(fl1-kl1*i));
end;
stdph1:=th1/n1;
stdpl1:=tl1/n1;
up1:fh1+2*stdph1+kh1,shift1,coloryellow,linedot;
dn1:fl1-2*stdpl1+kl1,shift1,coloryellow,linedot;
mid1:0.5*(up1+dn1),shift1,,coloryellow;
weight:if(stktype=0 or v=0,(h+l+c)/3,0.01*amount/v),circledot,colorffffff;
tdx:ma(c,2),shift1,linethick2,colormagenta;
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 6 次数据查询