以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  DMA日线上显示周线的代码错在哪里呢[求助]  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=7377)
--  作者：oceanjztwind
--  发布时间：2011/7/30 16:56:10
--  DMA日线上显示周线的代码错在哪里呢[求助]

DMA源码如下:

DMA(C,VOL/CAPITAL);

以下为自已写的想在日线上无引用显示周线的代码

不知错在哪里 请朋友指教 谢谢先

wtj1:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1;
wtj:=refx(wtj1,1) or weekday=5;  //周末标记

Y:=O*CLOSE;

FC:=CLOSE;

start:=barpos-barssince(wtj);

 WY:=0;

Y1:=fc[start[datacount]];

 for i=start[datacount]+1 to datacount do begin

     zts:=barslast(wtj1)+1;

 if wtj[i] then begin

     Y1:=(1-sum(vol,zts)/capital)*Y1+sum(vol,zts)/capital*FC[i];

     WY:=Y1;

     Y[i]=WY;

end else begin

     Y1:=(1-sum(vol,zts)/capital)*WY+sum(vol,zts)/capital*FC[i];

     Y[i]=Y1;

 end

end

ZX:Y;

[此贴子已经被作者于2011-7-30 16:59:17编辑过]
--  作者：fly
--  发布时间：2011/8/1 10:20:10
--  

前面两句,一周第一天和周末的判断,没什么问题.

 

楼主直接说说想要达到什么效果,看看能否实现
--  作者：oceanjztwind
--  发布时间：2011/8/1 10:53:23
--  
以下是引用fly在2011-8-1 10:20:10的发言：

前面两句,一周第一天和周末的判断,没什么问题.

 

楼主直接说说想要达到什么效果,看看能否实现

无引用日线上显示周线....谢谢先
--  作者：阿火
--  发布时间：2011/8/1 12:50:45
--  

不是回答过一次类似的问题了？方法类似呀
--  作者：oceanjztwind
--  发布时间：2011/8/1 13:33:20
--  
以下是引用leevolvo在2011-8-1 12:50:45的发言：

不是回答过一次类似的问题了？方法类似呀

没有见过叠代咋个处理
--  作者：oceanjztwind
--  发布时间：2011/8/1 16:29:50
--  
又看了下南客老师的周线无引用KDJ 更改了下 OK了 谢谢朋友们 wtj1:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1; wtj:=refx(wtj1,1) or weekday=5; //周末标记 zts:=barslast(wtj1)+1; Y:=O*CLOSE; FC:=CLOSE; start:=barpos-barssince(wtj); Y1:=fc[start[datacount]]; WY:=Y1; VS:=SUM(VOL,ZTS)/CAPITAL; for i=start[datacount]+1 to datacount do begin if wtj[i] then begin Y1:=(1-VS[i])*Y1+VS[i]*FC[i]; WY:=Y1; Y[i]:=WY; end else begin Y[i]:=(1-VS[i])*WY+VS[i]*FC[i]; end end ZX:Y;
[此贴子已经被作者于2011-8-1 16:30:20编辑过]
--  作者：oceanjztwind
--  发布时间：2011/8/1 16:31:09
--  
论坛不能发贴 有点不好......