24小时热门版块排行榜

>论坛更新日志 (3617)
>虫友互识 (625)
>导师招生 (233)
>文献求助 (214)
>硕博家园 (119)
>考博 (101)
>公派出国 (98)
>论文投稿 (79)
>博后之家 (76)
>找工作 (73)
>基金申请 (72)
>休闲灌水 (71)
>考研 (64)
>论文道贺祈福 (62)
>教师之家 (54)
>招聘信息布告栏 (44)

返回列表

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;

回复此楼

» 猜你喜欢

求标准粉末衍射卡号 ICDD 01-076-1802 已经有0人回复
新西兰Robinson研究所招收全奖PhD 已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有198人回复
石墨烯转移--二氧化硅衬底石墨烯已经有0人回复
笼目材料中量子自旋液体基态的证据已经有0人回复
数学教学论硕士可以读数学物理博士吗？已经有0人回复
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生已经有4人回复
澳门大学应用物理及材料工程研究院潘晖教授课题组诚招博士后已经有11人回复
求助NH4V4O10晶体的CIF文件已经有0人回复
英国全奖博士招聘-深度学习与量子物理已经有0人回复
间接带隙半导体有效质量求助已经有0人回复

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

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

月只蓝

主管区长 (职业作家)

专家经验: +1059
计算强帖: 8
应助: 1712 (讲师)
贵宾: 8.888
金币: 68123.7
散金: 1938
红花: 443
沙发: 4
帖子: 4373
在线: 3291.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关键词没用对，要限制参数范围，参数后直接加中括号，等号是多余的。