版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

皓小天

木虫之王 (职业作家)

应助: 19 (小学生)
贵宾: 0.1
金币: 76016.6
散金: 502
红花: 137
帖子: 3801
在线: 869小时
虫号: 1864745
注册: 2012-06-19
性别: GG
专业: 力学中的基本问题和方法

[求助] 编程模式下1stopt如何使用积分拟合已有1人参与

编程模式下1stopt如何拟合下面的代码，版本6.0
要求：在编程模式下，正确的可执行代码和正确的运行结果
@dingd @月只蓝
Parameter a,b,c,d;
Variable x,y;
StartProgram [Pascal];
Procedure MainModel;
var
i:integer;
t:double;
begin
for i:=0 to DataLength-1 do
begin
y:=a-b*exp(-c*x^d)*int((t+x),t:=0.1,c);
end;
End;
EndProgram;
Data;
0.05       0.13
0.15       0.13
0.25       0.19
0.35       0.34
0.45       0.53
0.55       0.71
0.65       1.06
0.75       1.6
0.85       1.64
0.95       1.83
1.05       2.09
1.15       2.05
1.25       2.13
1.35       2.12
1.45       2.09
运行结果：
\1stopt 6.0\lib\fitdll(1)
\1stopt 6.0\lib\fitdll(1)
\1stopt 6.0\lib\fitdll(1)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\integrateunit_(1)
\1stopt 6.0\lib\integrateunit_(5)
\1stopt 6.0\lib\integrateunit_(7)
\1stopt 6.0\lib\integrateunit_(16)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\integrateinfunit_(1)
\1stopt 6.0\lib\integrateinfunit_(5)
\1stopt 6.0\lib\integrateinfunit_(7)
\1stopt 6.0\lib\integrateinfunit_(10)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(6)
\1stopt 6.0\lib\fitdll(29) error: undeclared identifier: 'x'
\1stopt 6.0\lib\fitdll(248) error: expression expected but ';' found
\1stopt 6.0\lib\fitdll(249) error: expression expected but ';' found
\1stopt 6.0\lib\fitdll(320) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(323) error: undeclared identifier: '3'
\1stopt 6.0\lib\fitdll(328) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(331) error: undeclared identifier: '4'
\1stopt 6.0\lib\fitdll(336) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(339) error: undeclared identifier: '5'
\1stopt 6.0\lib\fitdll(344) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(348
error: undeclared identifier: '6'
\1stopt 6.0\lib\fitdll(352) error: statement expected, but expression of type 'double' found
\1stopt 6.0\lib\fitdll(25) error: label declared and referenced, but not set: '30'
\1stopt 6.0\lib\fitdll(361) error: declaration expected but identifier 'temdy__i__' found
\1stopt 6.0\lib\fitdll(365) error: declaration expected but identifier 'temdy__i__' found
\1stopt 6.0\lib\fitdll(368) error: '.' expected but ';' found
\1stopt 6.0\lib\fitdll(372) warning: text after final 'end.' - ignored by compiler
\1stopt 6.0\lib\fitdll(392)
Compile failed, check your program codes please!

回复此楼

» 猜你喜欢

石墨烯转移--二氧化硅衬底石墨烯已经有0人回复
笼目材料中量子自旋液体基态的证据已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有85人回复
数学教学论硕士可以读数学物理博士吗？已经有0人回复
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生已经有4人回复
澳门大学应用物理及材料工程研究院潘晖教授课题组诚招博士后已经有11人回复
求助NH4V4O10晶体的CIF文件已经有0人回复
英国全奖博士招聘-深度学习与量子物理已经有0人回复
间接带隙半导体有效质量求助已经有1人回复
投稿chemical physical letters不送审？已经有2人回复
南开大学物理学院张书辉副教授招收凝聚态物理理论方向博士生、硕士生已经有9人回复

» 本主题相关价值贴推荐，对您同样有帮助:

编程模式下1stopt如何使用积分拟合已经有2人回复

请不要站内找我要书，如果需要请到书籍板块求助

1楼 2015-10-06 20:56:43

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

dingd

铁杆木虫 (职业作家)

计算强帖: 4
应助: 1641 (讲师)
金币: 15037.3
散金: 101
红花: 234
帖子: 3410
在线: 1223.7小时
虫号: 291104
注册: 2006-10-28

这里运行没问题啊，单机企业版6.0的。

赞一下

回复此楼

4楼2015-10-09 10:07:41

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

查看全部 8 个回答

dingd

铁杆木虫 (职业作家)

计算强帖: 4
应助: 1641 (讲师)
金币: 15037.3
散金: 101
红花: 234
帖子: 3410
在线: 1223.7小时
虫号: 291104
注册: 2006-10-28

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
ben_ladeng: 金币+2, 辛苦了 2015-10-09 07:24:51

改成如下试试：

CODE:

Parameter a,b,c,d;

Variable x,y;

StartProgram [Pascal];

Procedure MainModel;

var

i:integer;

t:double;

begin

for i:=0 to DataLength-1 do

begin

y[i]:=a-b*exp(-c*x[i]^d)*int((t+x[i]),t=0.1,c);

end;

End;

EndProgram;

Data;

0.05        0.13

0.15        0.13

....

赞一下

回复此楼

2楼2015-10-06 21:54:16

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

皓小天

木虫之王 (职业作家)

应助: 19 (小学生)
贵宾: 0.1
金币: 76016.6
散金: 502
红花: 137
帖子: 3801
在线: 869小时
虫号: 1864745
注册: 2012-06-19
性别: GG
专业: 力学中的基本问题和方法

引用回帖:

2楼: Originally posted by dingd at 2015-10-06 21:54:16
改成如下试试：

Parameter a,b,c,d;
Variable x,y;
StartProgram ;
Procedure MainModel;
var
i:integer;
t:double;
begin
for i:=0 to DataLength-1 do
begin
y:=a-b*exp(-c*x^d)*int((t+x),t=0.1,c) ...

你好，
我按照你的代码进行了运行，仍然出错，代码如下：
Parameter a,b,c,d;
Variable x,y;
StartProgram [Pascal];
Procedure MainModel;
var
i:integer;
t:double;
begin
for i:=0 to DataLength-1 do
begin
y:=a-b*exp(-c*x^d)*int((t+x),t=0.1,c);
end;
End;
EndProgram;
Data;
0.05       0.13
0.15       0.13
0.25       0.19
0.35       0.34
0.45       0.53
0.55       0.71
0.65       1.06
0.75       1.6
0.85       1.64
0.95       1.83
1.05       2.09
1.15       2.05
1.25       2.13
1.35       2.12
1.45       2.09
结果如下：
\1stopt 6.0\lib\fitdll(1)
\1stopt 6.0\lib\fitdll(1)
\1stopt 6.0\lib\fitdll(1)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\integrateunit_(1)
\1stopt 6.0\lib\integrateunit_(5)
\1stopt 6.0\lib\integrateunit_(7)
\1stopt 6.0\lib\integrateunit_(16)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\integrateinfunit_(1)
\1stopt 6.0\lib\integrateinfunit_(5)
\1stopt 6.0\lib\integrateinfunit_(7)
\1stopt 6.0\lib\integrateinfunit_(10)
\1stopt 6.0\lib\fitdll(4)
\1stopt 6.0\lib\fitdll(6)
\1stopt 6.0\lib\fitdll(31) warning: return value of function 'func__i__' might be undefined
\1stopt 6.0\lib\fitdll(320) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(323) error: undeclared identifier: '3'
\1stopt 6.0\lib\fitdll(328) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(331) error: undeclared identifier: '4'
\1stopt 6.0\lib\fitdll(336) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(339) error: undeclared identifier: '5'
\1stopt 6.0\lib\fitdll(344) error: missing operator or semicolon
\1stopt 6.0\lib\fitdll(348) error: undeclared identifier: '6'
\1stopt 6.0\lib\fitdll(352) error: statement expected, but expression of type 'double' found
\1stopt 6.0\lib\fitdll(25) error: label declared and referenced, but not set: '30'
\1stopt 6.0\lib\fitdll(361) error: declaration expected but identifier 'temdy__i__' found
\1stopt 6.0\lib\fitdll(365) error: declaration expected but identifier 'temdy__i__' found
\1stopt 6.0\lib\fitdll(368) error: '.' expected but ';' found
\1stopt 6.0\lib\fitdll(372)
Warning: Text after final 'END.' - ignored by compiler
\1stopt 6.0\lib\fitdll(392)
Compile failed, check your program codes please!