24小时热门版块排行榜

返回列表

fish2012

铁虫 (小有名气)

应助: 3 (幼儿园)
金币: 43.9
帖子: 124
在线: 117.3小时
虫号: 908189
注册: 2009-11-20
性别: MM
专业: 数学物理

[求助] 1stopt函数表达式有误已有1人参与

请高手看看以下1stopt代码，运行后总提示函数表达式有误

Parameter p0=[80,300],p1=[100,150],p2=[-10,10],p3=[-10,10],p4=[0,1],p5=[-1,1],p6=[-1,1],p7=[-100,100],p8=[80,200];
Minimum;
StartProgram [Pascal];
var
i,j,N:integer;
x:array of double;
begin
for i :=0 to 100 do begin
      x :=p2+i;
end;
N :=length(x);
SetLength(x,N);
j :=509;
if (j mod 2=1) then
begin
      FunctionResult :=p0+p1+p2+p3+p4+p5+p6+p7+p8-x[N-5];
end
else
      FunctionResult :=100000;

End;
EndProgram;

回复此楼

» 猜你喜欢

散金币祈福已经有186人回复
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布已经有1人回复
物理学I论文润色/翻译怎么收费? 已经有88人回复
澳门大学IAPME李海峰教授常年招收博士研究生已经有0人回复
澳门大学IAPME李海峰教授常年招收博士研究生已经有0人回复
澳门大学IAPME李海峰教授常年招收博士研究生已经有0人回复
深圳大学应用技术学院招聘凝聚态物理博士后已经有114人回复
深圳大学2027级光电信息工程/物理学研究生推免已经有70人回复
求助中医院临床中医中标的青年标书学习，谢谢已经有4人回复
浙大物院表面物理课题组长期招收普博及直博学生已经有257人回复
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry 已经有39人回复

1楼 2016-06-03 22:29:17

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

月只蓝

主管区长 (职业作家)

专家经验: +1059
计算强帖: 8
应助: 1712 (讲师)
贵宾: 8.888
金币: 68175.7
散金: 1938
红花: 443
沙发: 4
帖子: 4373
在线: 3292.4小时
虫号: 1122189
注册: 2010-10-14
专业: 宇宙学
管辖: 计算模拟区

【答案】应助回帖

感谢参与，应助指数 +1

Parameter p0=[80,300],p1=[100,150],p2=[-10,10],p3=[-10,10],p4=[0,1],p5=[-1,1],p6=[-1,1],p7=[-100,100],p8=[80,200];

Parameter关键词没用对，要限制参数范围，参数后直接加中括号，等号是多余的。