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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 高人帮忙翻译个飞狐公式变成金字塔的

   

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


  共有5974人关注过本帖树形打印复制链接

主题:高人帮忙翻译个飞狐公式变成金字塔的

帅哥哟,离线,有人找我吗?
winewine99
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:47 积分:422 威望:0 精华:1 注册:2010/3/19 15:47:54
求助:公式调用VBA函数,修改VBA函数必须重启金字塔系统才生效  发帖心情 Post By:2010/7/31 18:56:51    Post IP:123.112.152.214[显示全部帖子]

 INPUT:N(10,1,100);
fc:=c;fo:=o;cc:0*c,LINETHICK;oo:0*c,LINETHICK;t1:=0*c;t2:=0*c; fc:=c;fo:=o;cc:0*c,LINETHICK;oo:0*c,LINETHICK;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin for i=1 to datacount do begin
if i=1 then begin if i=1 then begin
cc[i]:=fc[i]; cc[i]:=fc[i];
oo[i]:=fc[i]; oo[i]:=fc[i];
end else begin end else begin
cc[i]:=cc[i-1]; cc[i]:=cc[i-1];
oo[i]:=oo[i-1]; oo[i]:=oo[i-1];
if fc[i]>cc[i]*(1+n/100) then begin if fc[i]>cc[i]*(1+n/100) then begin
cc[i]:=cc[i-1]*(1+n/100); cc[i]:=cc[i-1]*(1+n/100);
oo[i]:=cc[i-1]; oo[i]:=cc[i-1];
end; end;
if fc[i]<oo[i]/(1+n/100) then begin if fc[i]<oo[i]/(1+n/100) then begin
oo[i]:=oo[i-1]/(1+n/100); oo[i]:=oo[i-1]/(1+n/100);
cc[i]:=oo[i-1]; cc[i]:=oo[i-1];
end; end;
if oo[i]=oo[i-1] then if oo[i]=oo[i-1] then
t1[i]:=t1[i-1]+1; t1[i]:=t1[i-1]+1;
if cc[i]=cc[i-1] then if cc[i]=cc[i-1] then
t2[i]:=t2[i-1]+1; t2[i]:=t2[i-1]+1;
end; end;
end; end;
o1:=ref(oo,t1+1); o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1); c1:=ref(cc,t2+1);
STICKLINE(c1=oo,cc,oo,8,1),COLORRED; STICKLINE(c1=oo,cc,oo,8,1),COLORRED;
STICKLINE(o1=cc,cc,oo,8,1),COLORCYAN; STICKLINE(o1=cc,cc,oo,8,1),COLORCYAN;

 回到顶部
帅哥哟,离线,有人找我吗?
winewine99
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:47 积分:422 威望:0 精华:1 注册:2010/3/19 15:47:54
  发帖心情 Post By:2010/8/1 9:51:47    Post IP:123.112.152.214[显示全部帖子]

谢谢版主回复

 回到顶部