24小时热门版块排行榜    

查看: 1325  |  回复: 7

皓小天

木虫之王 (职业作家)

[求助] 编程模式下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!
回复此楼
请不要站内找我要书,如果需要请到书籍板块求助
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★
感谢参与,应助指数 +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的回帖

皓小天

木虫之王 (职业作家)

引用回帖:
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!
请不要站内找我要书,如果需要请到书籍板块求助
3楼2015-10-06 22:11:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

这里运行没问题啊,单机企业版6.0的。
4楼2015-10-09 10:07:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

皓小天

木虫之王 (职业作家)

引用回帖:
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的回帖

皓小天

木虫之王 (职业作家)

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

可以麻烦大神把结果和代码附上来吗,为什么我的有问题啊
请不要站内找我要书,如果需要请到书籍板块求助
6楼2015-10-09 10:10:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

就是2#给的代码。你用的什么版本?正版购买的?
7楼2015-10-09 10:12:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

皓小天

木虫之王 (职业作家)

引用回帖:
7楼: Originally posted by dingd at 2015-10-09 10:12:41
就是2#给的代码。你用的什么版本?正版购买的?

和你一样的版本,正版购买
请不要站内找我要书,如果需要请到书籍板块求助
8楼2015-10-09 10:24:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 皓小天 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 环境学硕288求调剂 +8 皮皮皮123456 2026-03-22 8/400 2026-03-23 23:47 by 热情沙漠
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 一志愿中南大学化学学硕0703总分337求调剂 +5 niko- 2026-03-22 5/250 2026-03-23 22:01 by fuyu_
[考研] 384求调剂 +3 子系博 2026-03-22 6/300 2026-03-23 21:45 by 子系博
[考研] 263求调剂 +6 yqdszhdap- 2026-03-22 9/450 2026-03-23 12:57 by yqdszhdap-
[考研] 276求调剂 +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by 醉在风里
[考研] 323求调剂 +6 洼小桶 2026-03-18 6/300 2026-03-23 00:29 by king123!
[考研] 一志愿东华大学化学070300,求调剂 +7 2117205181 2026-03-21 8/400 2026-03-22 22:55 by chixmc
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[考研] 寻找调剂 +4 倔强芒? 2026-03-21 4/200 2026-03-22 16:14 by 木托莫露露
[考研] 298求调剂一志愿211 +3 上岸6666@ 2026-03-20 3/150 2026-03-22 15:50 by ColorlessPI
[考研] 初试 317 +7 半拉月丙 2026-03-20 7/350 2026-03-21 22:26 by peike
[考研] 考研调剂 +3 呼呼?~+123456 2026-03-21 3/150 2026-03-21 20:04 by 无际的草原
[考研] 0703化学调剂 +4 妮妮ninicgb 2026-03-21 4/200 2026-03-21 18:39 by 学员8dgXkO
[考研] 一志愿重庆大学085700资源与环境总分308求调剂 +7 墨墨漠 2026-03-20 7/350 2026-03-21 16:36 by barlinike
[考研] 304求调剂 +6 曼殊2266 2026-03-18 6/300 2026-03-21 00:32 by JourneyLucky
[考研] 一志愿西南交大,求调剂 +5 材化逐梦人 2026-03-18 5/250 2026-03-21 00:26 by JourneyLucky
[考研] 321求调剂 +9 何润采123 2026-03-18 11/550 2026-03-20 23:19 by JourneyLucky
[考研] 材料学硕297已过四六级求调剂推荐 +11 adaie 2026-03-19 11/550 2026-03-20 21:30 by laoshidan
[考研] 广西大学家禽遗传育种课题组2026年硕士招生(接收计算机专业调剂) +3 123阿标 2026-03-17 3/150 2026-03-20 15:58 by 飞行琦
信息提示
请填处理意见