以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请版主或高手帮忙改写为金字塔指标，谢谢！！  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=3112)
--  作者：tjcker
--  发布时间：2010/10/5 12:52:44
--  请版主或高手帮忙改写为金字塔指标，谢谢！！

 


请把该指标的涨、跌比较基准日（计算起点日）改写为 -- 可指定与今日开盘价（或当周开盘价、当月开盘价）为基准即可。谢谢！原码如下：

 

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

INPUT:N(10,1,100);
fc:=c;
fo:=o;
cc:0*c,linethick0;
oo:0*c,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/100) then begin
    cc[i]:=cc[i-1]*(1+n/100);
    oo[i]:=cc[i-1];
end;
  if i>1 and fc[i]<oo[i]/(1+n/100) then begin
    oo[i]:=oo[i-1]/(1+n/100);
    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);
STICKLINE(c1=oo,cc,oo,8,1)COLORRED;
STICKLINE(o1=cc,cc,oo,8,1)COLORCYAN;


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

 
--  作者：tjcker
--  发布时间：2010/10/7 1:16:00
--  

没有高人帮助改写？

 

就是把该指标的涨、跌计算基准日（计算起点日）改写为 -- 指定以今日开盘价（或当周开盘价、当月开盘价）为基准即可。

[此贴子已经被作者于2010-10-7 1:20:29编辑过]
--  作者：fly
--  发布时间：2010/10/8 13:52:50
--  

把今日开盘价（或当周开盘价、当月开盘价）,做为中间值,引入你的指标公式,计算涨跌就可以了.

 

Y1源码

kai:open;

 

引用跨周期指标数据示例

D:"Y1.kai#DAY",linethick0;  //当前K线所在日线开盘价
W:"Y1.kai#WEEK",linethick0;//当前K线所在本周开盘价

M:"Y1.kai#MONTH",linethick0;;//当前K线所在本月开盘价
--  作者：tjcker
--  发布时间：2010/10/8 22:44:17
--  
非常感谢，我试试....
--  作者：tjcker
--  发布时间：2010/10/8 23:15:30
--  

我试了试指标没有变化。还请fly老师实测后，把修改成功后的公式完整原代码贴出来。我对该指标代码不熟悉。