24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2895  |  回复: 16

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 的主题更新
信息提示
请填处理意见