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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 1stopt微分方程组参数拟合
172/2返回列表上一页12
查看: 2938  |  回复: 16
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

quuq432

新虫 (初入文坛)
引用回帖:
10楼: Originally posted by dingd at 2016-03-04 17:26:28
正版可以运行只是效果不好。

Parameters M,tsd,L;
Constant c=3*10^10,k=0.5;
InitialODEValue E=0.1,v=0.1,LL=0.1;
Variable t,LL；
ODEFunction v'=E/(M*v*t);
            E'=(L/((1+t/tsd)^2))-4*pi*c*E*t*v/(3*k*M)-E/t;
            LL'=E*(4*pi*c*v)/(3*k*M)+E'*t*(4*pi*c*v)/(3*k*M)+E*t*(4*pi*c*v')/(3*k*M);
Data;
0.1            0.1
502272         5.65432*10^42
762325         1.30331*10^43
1114354        9.00958*10^42
1364122        5.3601*10^42
1706100        3.56514*10^42
1964980        2.5611*10^42
2140916        2.27497*10^42
2313059        1.94825*10^42
2489034        1.50971*10^42
2742752        1.22059*10^42
3001044        1.04568*10^42
您能帮我把这个的帮我算一下吗？如果效果不是太好，我就准备用蒙特卡洛方法了。。。
赞一下 回复此楼
11楼2016-03-04 17:52:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

quuq432

新虫 (初入文坛)
引用回帖:
10楼: Originally posted by dingd at 2016-03-04 17:26:28
正版可以运行只是效果不好。

Parameters M,tsd,L;
Constant c=3*10^10,k=0.5;
InitialODEValue E=0.1,v=0.1,LL=0.1;
Variable t,LL；
ODEFunction v'=E/(M*v*t);
            E'=(L/((1+t/tsd)^2))-4*pi*c*E*t*v/(3*k*M)-E/t;
            LL'=E*(4*pi*c*v)/(3*k*M)+E'*t*(4*pi*c*v)/(3*k*M)+E*t*(4*pi*c*v')/(3*k*M);
Data;
0.1            0.1
502272         5.65432*10^42
762325         1.30331*10^43
1114354        9.00958*10^42
1364122        5.3601*10^42
1706100        3.56514*10^42
1964980        2.5611*10^42
2140916        2.27497*10^42
2313059        1.94825*10^42
2489034        1.50971*10^42
2742752        1.22059*10^42
3001044        1.04568*10^42

您能帮我把这个算一下吗，如果效果不好，我就想用蒙特卡洛方法写了
赞一下 回复此楼
12楼2016-03-04 17:54:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

光看效果的话应该还可以吧：

均方差(RMSE):1.10232446404849E42
残差平方和(SSE):1.45814306884775E85
相关系数(R): 0.957906895473774
相关系数之平方(R^2): 0.917585620396204
修正R平方(Adj. R^2): 0.899271313817583
确定系数(DC): 0.90847901664985
F统计(F-Statistic): 49.1690521154418

参数                  最佳估算
--------------------        -------------
m        5.25877495294905E31
tsd        446735.429332486
l        7.36360467675114E43
1stopt微分方程组参数拟合
c222.jpg
赞一下 回复此楼
13楼2016-03-06 15:37:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Fly_LP

新虫 (初入文坛)
引用回帖:
13楼: Originally posted by dingd at 2016-03-06 15:37:16
光看效果的话应该还可以吧：

均方差(RMSE):1.10232446404849E42
残差平方和(SSE):1.45814306884775E85
相关系数(R): 0.957906895473774
相关系数之平方(R^2): 0.917585620396204
修正R平方(Adj. R^2): 0.899 ...

您好  您能帮我运行一下这个程序么  我用的1stopt没有注册  以前可以运行出来  现在类似的程序就运行不出来了。谢谢您呀 ，  或者您看我的程序错误的地方我自己改也可以 谢谢您呀
Title "ir";
Parameters a,b,c,d,e,f,g,h,m;
Variable x1,x2,x3,x4;
Function y=a+b*x1+c*x1^2+d*x1^3+e^x2+f*x3+g*x3^2+h*x3^3+m^x4;
date;
x1     x2    x3     x4      y
0.25  1     18.1   138    29.4
0.25  2     9.47   330    10.3
0.25  4     3.39   138    32.1
0.25  8     2.01   330    7.3
1     1     9.47   138    34.9
1     2     18.1   330    30.1
1     4     2.01   138    24.4
1     8     3.39   330    10.4
4     1     3.39   330    30.1
4     2     2.01   138    32.4
4     4     18.1   330    32.1
4     8     9.47   138    27.2
8.75  1     2.01   330    42.8
8.75  2     3.39   138    64.7
8.75  4     9.47   330    40.9
8.75  8     18.1   138    84.7
赞一下 回复此楼
14楼2016-03-17 16:37:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)
引用回帖:
14楼: Originally posted by Fly_LP at 2016-03-17 16:37:13
您好  您能帮我运行一下这个程序么  我用的1stopt没有注册  以前可以运行出来  现在类似的程序就运行不出来了。谢谢您呀 ，  或者您看我的程序错误的地方我自己改也可以 谢谢您呀
Title "ir";
Param ...

Variable x1,x2,x3,x4;
后面少些y了吧，应该是：
Variable x1,x2,x3,x4,y;
赞一下 回复此楼
15楼2016-03-17 17:58:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wp9361825545

新虫 (初入文坛)

【答案】应助回帖

我也有类似的问题就是没有1stOpt 软件，也不知道哪可以下载高版本的破解版
赞一下 回复此楼
16楼2017-10-08 13:53:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wp9361825545

新虫 (初入文坛)
你这个直接Matlab就可以。你去找一本生物数学原理（肖燕妮）那里面202页有Matlab程序代码。你这个简单

发自小木虫IOS客户端
赞一下 回复此楼
17楼2017-10-11 21:25:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 quuq432 的主题更新
172/2返回列表上一页12
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭