24小时热门版块排行榜

>论坛更新日志 (4367)
>导师招生 (367)
>休闲灌水 (220)
>虫友互识 (163)
>文献求助 (157)
>招聘信息布告栏 (148)
>论文道贺祈福 (120)
>硕博家园 (113)
>考博 (68)
>考研 (68)
>找工作 (54)
>博后之家 (53)
>基金申请 (48)
>教师之家 (30)
>生物科学 (29)
>论文投稿 (27)

返回列表

皓小天

木虫之王 (职业作家)

应助: 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!

回复此楼

» 猜你喜欢

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

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

编程模式下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

【答案】应助回帖

★ ★
感谢参与，应助指数 +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!