以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [原创]移位指标引用出错?  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=48099)

--  作者:振通2004
--  发布时间:2013/1/26 19:51:11
--  [原创]移位指标引用出错?
1、新建一个可以移位的指标 {移位引用} INPUT:移(0,0,40); 开:=O; 高:=H,LINETHICK0;; 低:=L; 收:=C,LINETHICK0; IF 移>0 THEN BEGIN // FOR I=PP1 TO PP do BEGIN 开[I-移]:=开[I]; 高[I-移]:=高[I]; 低[I-移]:=低[I]; 收[I-移]:=收[I]; END; 2.再建一个指标,引用上面的指标: 引:"移位引用.高(1)"; 理论应该是引用向前移移位的k线数据,但实际结果不是
--  作者:振通2004
--  发布时间:2013/1/26 19:57:20
--  
1、新建一个可以移位的指标 {移位引用} INPUT:移(0,0,40); 开:=O; 高:=H,LINETHICK0;; 低:=L; 收:=C,LINETHICK0; A2:=(高-低)*0.38; IF 移>0 THEN BEGIN // FOR I=PP1 TO PP do BEGIN 开[I-移]:=开[I]; 高[I-移]:=高[I]; 低[I-移]:=低[I]; 收[I-移]:=收[I]; END; 开[PP]:=收[PP-移]; IF 低[PP]+A2[PP]>=收[PP] THEN 高[PP]:=收[PP]; IF 高[PP]-A2[PP]<=收[PP] THEN 低[PP]:=收[PP]; END; 2.再建一个指标,引用上面的指标: 引:"移位引用.高(1)"; 理论应该是引用”k线向前移1位“后,已适当修改的数据,但实际结果不是
--  作者:振通2004
--  发布时间:2013/1/26 19:57:45
--  
以2楼的为准
--  作者:jinzhe
--  发布时间:2013/1/28 9:07:44
--  
把公式重新贴一下,帖成树形的,你这样拥挤在一起看不懂
--  作者:RogarZ
--  发布时间:2013/1/28 10:18:53
--  
移动 直接REFX   REF不就好了 怎么搞的这么复杂
--  作者:振通2004
--  发布时间:2013/1/28 11:20:35
--  
我这是对k线数据有所修改后的移动
--  作者:振通2004
--  发布时间:2013/1/28 11:22:26
--  
我贴图是树形的 发表后就是这样一行的了 我编辑多次都是这样 没办法
--  作者:admin
--  发布时间:2013/1/28 15:19:34
--  
使用IE浏览器发帖,不要用哪些乱七八糟的浏览器的
--  作者:readonly
--  发布时间:2013/2/7 9:34:00
--  
我帮你贴下,刚好我也在写移位。

{移位引用} 
INPUT:移(0,0,40);
 开:=O;
 高:=H,LINETHICK0;
 低:=L; 
 收:=C,LINETHICK0; 
 
 A2:=(高-低)*0.38; 
 IF 移>0 THEN BEGIN // FOR I=PP1 TO PP do BEGIN 
  开[I-移]:=开[I]; 
  高[I-移]:=高[I]; 
  低[I-移]:=低[I]; 
  收[I-移]:=收[I]; 
  END; 开
 
 [PP]:=收[PP-移]; 
 IF 低[PP]+A2[PP]>=收[PP] THEN 高[PP]:=收[PP]; 
 IF 高[PP]-A2[PP]<=收[PP] THEN 低[PP]:=收[PP]; 
 END; 
[此贴子已经被作者于2013-2-7 9:34:38编辑过]

--  作者:readonly
--  发布时间:2013/2/7 9:36:15
--  
不知道金字塔有没有专门数组移位的函数?

用循环语句做移位效率太低了。