请版主或高手帮忙改写为金字塔指标，谢谢！！ - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

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

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 请版主或高手帮忙改写为金字塔指标，谢谢！！

共有5438人关注过本帖树形打印复制链接主题：请版主或高手帮忙改写为金字塔指标，谢谢！！

tjcker

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：182 积分：363 威望：0 精华：0 注册：2010/4/18 10:45:35

请版主或高手帮忙改写为金字塔指标，谢谢！！ 发帖心情

Post By：2010/10/5 12:52:44 Post IP：112.115.166.125[只看该作者]

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

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

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;