24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

chugezhuang

铁虫 (初入文坛)

应助: 0 (幼儿园)
金币: 46
帖子: 14
在线: 9小时
虫号: 1407185
注册: 2011-09-19
性别: GG
专业: 岩土与基础工程

[求助] 哪位大仙帮我看下程序，我用的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')

回复此楼

» 猜你喜欢

Life isn't about waiting for the storm to pass, it's about learning to dance in the rain.

1楼 2012-12-03 10:11:23

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

Kuiyanlong

铁虫 (初入文坛)

应助: 4 (幼儿园)
金币: 1135.5
帖子: 25
在线: 27.1小时
虫号: 2166508
注册: 2012-12-04
性别: GG
专业: 机械动力学

【答案】应助回帖

★
xiegangmai: 金币+1, 谢谢参与 2012-12-06 19:45:00

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;
c=inline('1/m*sin(m/(2*L))*pi*z*eps(-Tv*m^2*pi*pi/4)','m','L','Tv','z');
u=c(n,L,Tv,z);
eu=1;
while abs(eu)>=eps
m=2*n+1;
eu=c(m,L,Tv,z);
u=u+eu;
n=n+1;
eu=c0*eu;
end
u=c0*u-p0;

赞一下

回复此楼

Bebornthisway

10楼2012-12-06 19:27:34

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 12 个回答

Kuiyanlong

铁虫 (初入文坛)

应助: 4 (幼儿园)
金币: 1135.5
帖子: 25
在线: 27.1小时
虫号: 2166508
注册: 2012-12-04
性别: GG
专业: 机械动力学

【答案】应助回帖

★ ★
感谢参与，应助指数 +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

赞一下

回复此楼

Bebornthisway

2楼2012-12-05 00:47:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖