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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 编程模式下1stopt如何使用积分拟合
31/1返回列表
查看: 640  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

皓小天

木虫之王 (职业作家)

[求助] 编程模式下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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
请不要站内找我要书，如果需要请到书籍板块求助
1楼 2015-04-23 10:55:04
已阅   关注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的回帖
相关版块跳转 我要订阅楼主 皓小天 的主题更新
31/1返回列表
信息提示
关闭
请填处理意见
关闭