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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » 1stopt程序，求修改
51/1返回列表
查看: 465  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

18704487833

铜虫 (初入文坛)

[求助] 1stopt程序，求修改

Title "Type your title here";
LoopConstant r=[0:0.02:1];
Constant kr=1.6,lamda0=3,u=0.3,theta0=0.1,theta1c=0.12,theta1s=0.15;//Parameters ;
Variable t=[0.0:3.14],b=0,b'=1;
ODEOptions=[SS=0.01,A=0,P=5];
Plot b[t], b';
ChartType =3;
ODEFunction b''=((r*cos(b)+u*sin(t))^2+(b'*r+(lamda0*(1+kr*r*cos(t)))*cos(b)+u*sin(beta)*cos(t))^2)*sin(2*(theta0+theta1c*cos(t)+theta1s*sin(t))-2*(atan((b'*r+(lamda0*(1+kr*r*cos(t)))*cos(b)+u*sin(beta)*cos(t))/((r*cos(b)+u*sin(t))))))/(13.04651163*0.04*(3*r^2+0.02^2/4)/3.3/0.5273)-sin(b)*cos(b);   //Function ;
这个程序哪里有错误？求大神指点一二

1stopt程序，求修改
捕获.PNG
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-12-14 08:09:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

雕刻你的拾光

新虫 (初入文坛)
Parameters X0, Xm, um,a,b,P0,Yx,Yp,m,S0;
Variables t, X, P, S;
Function   X=X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t))
           P=P0+a*(X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t))-X0)+(b*Xm/um)*ln((Xm-X0+X0*exp(um*t))/Xm)
           S=S0-(1/Yx+a/Yp)*(X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t)-X0)-Xm/um*(b/Yp+m)*ln((Xm-X0+X0*exp(um*t))/Xm);
Data;
t    X          P        S
0   0.05        0        79
4   0.16        0        78
8   0.6515      0        76
12  1.5426      1.5      74
16  2.4047      4.9      69
20  3.1066      8.7      60
24  3.6693      12.4     50
28  3.8165      16.1     43
32  3.8874      17.2     40
36  3.9618      17.9     38
就是这个，方程应该没啥问题，求专家帮我看看
赞一下 回复此楼
3楼2014-12-16 21:37:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

雕刻你的拾光

新虫 (初入文坛)
//Parameters a, b, u,;
//Variables t, x,;
//QuickReg ;
//Function  x=a*b*exp(u*t)/(b-a+a*exp(u*t));
//RowData ;
          t=0,4,8,12,16,20,24,28,32,36;
          x=0.05,0.16,0.6515,1.5426,2.4047,3.1066,3.6693,3.8165,3.8874,3.9618;
我想求出a b u 的最佳估算值，求帮忙指点一下
赞一下 回复此楼
2楼2014-12-16 18:19:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

雕刻你的拾光

新虫 (初入文坛)
Parameters X0, Xm, um,a,b,P0,Yx,Yp,m,S0;
Variables t, X, P, S;
Function   X=X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t))
           P=P0+a*(X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t))-X0)+(b*Xm/um)*ln((Xm-X0+X0*exp(um*t))/Xm)
           S=S0-(1/Yx+a/Yp)*(X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t)-X0)-Xm/um*(b/Yp+m)*ln((Xm-X0+X0*exp(um*t))/Xm);
Data;
t    X          P        S
0   0.05        0        79
4   0.16        0        78
8   0.6515      0        76
12  1.5426      1.5      74
16  2.4047      4.9      69
20  3.1066      8.7      60
24  3.6693      12.4     50
28  3.8165      16.1     43
32  3.8874      17.2     40
36  3.9618      17.9     38
三个函数表达式分开算没问题，在一起算就说有误，什么情况啊
赞一下 回复此楼
4楼2014-12-16 21:40:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lipenggg

专家顾问 (正式写手)
Parameters X0, Xm, um,a,b,P0,Yx,Yp,m,S0;
Variables t, X, P, S;
Function   X=X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t));
           P=P0+a*(X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t))-X0)+(b*Xm/um)*ln((Xm-X0+X0*exp(um*t))/Xm);
           S=S0-(1/Yx+a/Yp)*(X0*Xm*exp(um*t)/(Xm-X0+X0*exp(um*t)-X0)-Xm/um*(b/Yp+m)*ln((Xm-X0+X0*exp(um*t))/Xm));
Data;
t    X          P        S
0   0.05        0        79
4   0.16        0        78
8   0.6515      0        76
12  1.5426      1.5      74
16  2.4047      4.9      69
20  3.1066      8.7      60
24  3.6693      12.4     50
28  3.8165      16.1     43
32  3.8874      17.2     40
36  3.9618      17.9     38
赞一下 回复此楼
一团和气
5楼2015-06-19 16:45:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭