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

登录注册

应《网络安全法》要求，自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!

回复此楼

» 猜你喜欢

投稿chemical physical letters不送审？已经有2人回复
南开大学物理学院张书辉副教授招收凝聚态物理理论方向博士生、硕士生已经有22人回复
物理学I论文润色/翻译怎么收费? 已经有161人回复
杂志要求提供official language-editing certificate 已经有4人回复
深圳大学2026年秋博士招生-物理学-活性胶体方向-高永祥课题组已经有16人回复
论物质与能量的统一模型及物理现象解释已经有0人回复
基于基元I统一理论的数学相关应用推导已经有0人回复
基元I统一理论：宇宙本质、层级演化与修炼文明的本源规律已经有0人回复
基元I理论下三大核心空间现象精准推导与细节解析已经有0人回复
基于基元 I 统一理论的反重力理论推导已经有0人回复
基于基元I统一理论的量子力学本源推导已经有0人回复

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

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

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

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

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

皓小天

木虫之王 (职业作家)

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

引用回帖:

4楼: Originally posted by dingd at 2015-10-09 10:07:41
这里运行没问题啊，单机企业版6.0的。

可以麻烦大神把结果和代码附上来吗，为什么我的有问题啊

赞一下

回复此楼

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

5楼2015-10-09 10:09:46

已阅回复此楼关注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!