升级后出错 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

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

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 升级后出错

共有4619人关注过本帖树形打印复制链接主题：升级后出错

soler

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

加好友

发短信

等级：论坛游侠帖子：292 积分：652 威望：0 精华：0 注册：2012/6/3 11:46:45

升级后出错

Post By：2012/12/2 20:02:09 Post IP：115.170.114.79[只看该作者]

for i=lbound(hsl)+1 to datacount do begin

升级后这句话出解释性错误，咋回事，如何解决

王锋

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

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：2012/12/2 20:35:38 Post IP：123.115.15.147[只看该作者]

可否给出一个较为完整点的例子，我们本地调试一下看看问题

金字塔—专业程序化软件提供商

金字塔-技术部

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

工作时间:周一至周五 08:30 - 17:30 周末及法定节假日休息

Email:service@weistock.com

soler

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

加好友

发短信

等级：论坛游侠帖子：292 积分：652 威望：0 精华：0 注册：2012/6/3 11:46:45

Post By：2012/12/3 19:07:19 Post IP：115.170.53.209[只看该作者]

input:N1(5,1,999),N2(20,1,999),N3(40,1,999),NN(100,100,1000);
mid:=(o+c)/2;
hsl:=if(capital=0,v/sum(v,NN),v/capital);
if capital=0 then begin
hsl:=v/sum(v,NN);
a:=setlbound(hsl,1);
for i=1 to min(NN-1,datacount) do hsl[i]:=0;
end;
ljhs[1]:=hsl[1];
cyc1[1]:=mid[1];
ljhs2[1]:=hsl[1];
cyc2[1]: mid[1];
ljhs3[1]:=hsl[1];
cyc3[1]: mid[1];
ljhsm[1]:=hsl[1];
cycmax[1]:mid[1];
dd:=mid[1]*(barpos<NN);
for i=lbound(hsl)+1 to datacount do begin
ljhs[i]:=ljhs[i-1]*(1-hsl[i])*(n1-1)/n1+hsl[i];
cyc1[i]:(mid[i]*hsl[i]+cyc1[i-1]*ljhs[i-1]*(1-hsl[i])*(n1-1)/n1)/ljhs[i]+dd[i];
ljhs2[i]:=ljhs2[i-1]*(1-hsl[i])*(n2-1)/n2+hsl[i];
cyc2[i]:=(mid[i]*hsl[i]+cyc2[i-1]*ljhs2[i-1]*(1-hsl[i])*(n2-1)/n2)/ljhs2[i]+dd[i];
ljhs3[i]:=ljhs3[i-1]*(1-hsl[i])*(n3-1)/n3+hsl[i];
cyc3[i]:=(mid[i]*hsl[i]+cyc3[i-1]*ljhs3[i-1]*(1-hsl[i])*(n3-1)/n3)/ljhs3[i]+dd[i];
ljhsm[i]:=ljhsm[i-1]*(1-hsl[i])+hsl[i];
cycmax[i]:=(mid[i]*hsl[i]+cycmax[i-1]*ljhsm[i-1]*(1-hsl[i]))/ljhsm[i]+dd[i];
end;