| 查看: 1375 | 回复: 11 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
哪位大仙帮我看下程序，我用的matlab7.1，运行提示du未定义
|
|||
|
function [c,f,s]=pdefun(x,t,u,du) c=[1;1]; f=[0.024*du(1);0.17*du(2)]; temp=u(1)-u(2); s=[-1;1].*(exp(5.73*temp)-exp(-11.46*temp)); function [pa,qa,pb,qb]=pdebc(xa,ua,xb,ub,t) pa=[0;ua(2)]; qa=[1;0]; pb=[ub(1)-1;0]; qb=[0;1]; function u0=pdeic(x) u0=[1;0]; clc x=0:0.05:1; t=0:0.05:2; m=0; sol=pdepe(m,@pdefun,@pdeic,@pdebc,x,t); figure('numbertitle','off','name','PDE Demo——by Matlabsky') subplot(211) surf(x,t,sol(:,:,1)) title('The Solution of u_1') xlabel('X') ylabel('T') zlabel('U') subplot(212) surf(x,t,sol(:,:,2)) title('The Solution of u_2') xlabel('X') ylabel('T') zlabel('U') |
回复此楼» 猜你喜欢
我面上完蛋了
已经有11人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有8人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
明天应该可查了！？
已经有5人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有7人回复
-
没有任何消息-是不是就凉了
已经有8人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
人气不行了
已经有10人回复
-
能否退出参与的面上项目解除限项
已经有24人回复
-
filecode，4个jtjc了
已经有17人回复
Kuiyanlong
铁虫 (初入文坛)
- 应助: 4 (幼儿园)
- 金币: 1135.5
- 帖子: 25
- 在线: 27.1小时
- 虫号: 2166508
- 注册: 2012-12-04
- 性别: GG
- 专业: 机械动力学
【答案】应助回帖
★
xiegangmai: 金币+1, 谢谢参与 2012-12-06 19:45:07
xiegangmai: 金币+1, 谢谢参与 2012-12-06 19:45:07
|
eps=1e-6; p0=0.25; t=0.02; Cv=0.04; Tv=Cv*t; L=0.5; z=3; n=1; c0=2.*L.*p0./pi; u=0; u=inline('1/m*sin(m/(2*L))*pi*z*eps(-Tv*m^2*pi*pi/4)','m','L','Tv','z'); u=u(n,L,Tv,z); eu=0; while eu>=eps m=2*n+1 eu=u(m,L,Tv,z) u=u+eu; eu=co*eu; end u=c0*u-p0 还是上面说的问题，那个求和的部分太小 |
9楼2012-12-06 19:12:05
Kuiyanlong
铁虫 (初入文坛)
- 应助: 4 (幼儿园)
- 金币: 1135.5
- 帖子: 25
- 在线: 27.1小时
- 虫号: 2166508
- 注册: 2012-12-04
- 性别: GG
- 专业: 机械动力学
【答案】应助回帖
★ ★
感谢参与，应助指数 +1
xiegangmai: 金币+2, 谢谢参与 2012-12-05 19:55:09
感谢参与，应助指数 +1
xiegangmai: 金币+2, 谢谢参与 2012-12-05 19:55:09
|
换一下表达就可以了，将 sol函数提前 function ABC x=0:0.05:1; t=0:0.05:2; m=0; sol=pdepe(m,@pdefun,@pdeic,@pdebc,x,t); figure('numbertitle','off','name','PDE Demo——by Matlabsky') subplot(211) surf(x,t,sol(:,:,1)) title('The Solution of u_1') xlabel('X') ylabel('T') zlabel('U') subplot(212) surf(x,t,sol(:,:,2)) title('The Solution of u_2') xlabel('X') ylabel('T') zlabel('U') function [c,f,s]=pdefun(x,t,u,du) c=[1;1]; f=[0.024*du(1);0.17*du(2)]; temp=u(1)-u(2); s=[-1;1].*(exp(5.73*temp)-exp(-11.46*temp)); function [pa,qa,pb,qb]=pdebc(xa,ua,xb,ub,t) pa=[0;ua(2)]; qa=[1;0]; pb=[ub(1)-1;0]; qb=[0;1]; function u0=pdeic(x) u0=[1;0]; clc |
2楼2012-12-05 00:47:40
Kuiyanlong
铁虫 (初入文坛)
- 应助: 4 (幼儿园)
- 金币: 1135.5
- 帖子: 25
- 在线: 27.1小时
- 虫号: 2166508
- 注册: 2012-12-04
- 性别: GG
- 专业: 机械动力学
3楼2012-12-05 00:52:47
4楼2012-12-05 16:47:55
