24小时热门版块排行榜    

查看: 565  |  回复: 2

皓小天

木虫之王 (职业作家)

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

这仅仅是个简单的例子,实际问题复杂得多,编程模式下如何积分拟合
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
回复此楼

» 猜你喜欢

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

请不要站内找我要书,如果需要请到书籍板块求助
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与,应助指数 +1
你用的哪个版本?我这边直接运行就OK
2楼2015-04-23 10:58:24
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

皓小天

木虫之王 (职业作家)

引用回帖:
2楼: Originally posted by dingd at 2015-04-23 10:58:24
你用的哪个版本?我这边直接运行就OK

你是哪个版本的啊,复制后直接运行就行?没有语法错误吗?
请不要站内找我要书,如果需要请到书籍板块求助
3楼2015-04-26 21:56:50
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 皓小天 的主题更新
信息提示
请填处理意见