| 查看: 1079 | 回复: 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') |
» 猜你喜欢
Bioresource Technology期刊,第一次返修的时候被退回好几次了
已经有6人回复
2025冷门绝学什么时候出结果
已经有4人回复
真诚求助:手里的省社科项目结项要求主持人一篇中文核心,有什么渠道能发核心吗
已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
论文投稿,期刊推荐
已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
孩子确诊有中度注意力缺陷
已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
请问有评职称,把科研教学业绩算分排序的高校吗
已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复

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

5楼2012-12-05 16:58:32
Kuiyanlong
铁虫 (初入文坛)
- 应助: 4 (幼儿园)
- 金币: 1135.5
- 帖子: 25
- 在线: 27.1小时
- 虫号: 2166508
- 注册: 2012-12-04
- 性别: GG
- 专业: 机械动力学

6楼2012-12-05 21:06:53

7楼2012-12-06 10:38:46
Kuiyanlong
铁虫 (初入文坛)
- 应助: 4 (幼儿园)
- 金币: 1135.5
- 帖子: 25
- 在线: 27.1小时
- 虫号: 2166508
- 注册: 2012-12-04
- 性别: GG
- 专业: 机械动力学
【答案】应助回帖
★
xiegangmai: 金币+1, 谢谢参与 2012-12-06 19:45:17
xiegangmai: 金币+1, 谢谢参与 2012-12-06 19:45:17
|
我试了一下,while循环结果不是很理想,用for循环验算,发现u的结果太小 ep=1e-6; p0=0.25; t=0.02; Cv=0.04; Tv=Cv*t; L=0.5; z=3; n=0; c0=2.*L.*p0./pi; u=0; for n=0:100 m=2.*n+1 u=u+1/m*sin(m/(2*L))*pi*z*eps(-Tv*m^2*pi*pi/4) end |
» 本帖已获得的红花(最新10朵)

8楼2012-12-06 18:50:32
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
- 专业: 机械动力学
【答案】应助回帖
★
xiegangmai: 金币+1, 谢谢参与 2012-12-06 19:45:00
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; |

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













回复此楼
chugezhuang