24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 393  |  回复: 2
当前主题已经存档。

飞翔的海鸥

银虫 (小有名气)

[交流] 【求助 】matlab程序问题 急

function pdex4
clc
clear
m = 0;
x = linspace(-50,150,30);
t = linspace(0,250,30);
u = inline('u(x,t)');
sol = pdepe(m,@pdex4pde,@pdex4ic,@pdex4bc,x,t);
u1 = sol(:,:,1);
u2 = sol(:,:,2);
u3 = sol(:,:,3);
u4 = sol(:,:,4);
u5 = sol(:,:,5);
u6 = sol(:,:,6);
u7 = sol(:,:,7);


figure(1)
mesh(x,t,(abs(u7)).^2)
title('(abs(a)).^2')
xlabel('Distance x')
ylabel('Time t')
% A solution profile can also be illuminating.

figure(2)
surf(x,t,abs(u2),'FaceColor',[1 1 1])
title('u2(x,t)')
xlabel('Distance x')
ylabel('Time t')
% A solution profile can also be illuminating.
figure(3)
plot(t,abs(u7(end,))
title('Solution at x =0 ')
xlabel('time')
ylabel('u7(0,')

% --------------------------------------------------------------
function [c,f,s] = pdex4pde(x,t,u,DuDx,DuDt)
c = [1; 1; 1; 1; 1; 1; 1];                                 
f = [0; 0; 0; 0; 0; 0; u];
ganmp=1.0;
gam=0;
g=1.0;
gam1=2.0;
gam2=2.0;
cottht=10.*(1-0.5.*tanh(0.1.*(t-65))+0.5.*tanh(0.1.*(t-185)));
y1=-(ganmp+i.*gam1).*u(1)-(i./2).*g.*(u(7).*(u(5)-u(4))-cottht.*u(2));
y2=i.*(gam2-gam1).*u(2)-(i./2).*g.*(u(7).*u(3)-cottht.*u(1));
y3=-(ganmp-i.*gam2).*u(3)-(i./2).*g.*(u(2).*conj(u(7))+cottht.*(u(6)-u(5)));
y4=u(5)-(i./2).*g.*(u(7).*conj(u(1))-u(1).*conj(u(7)));
y5=-(2+gam).*u(5)-(i./2).*g.*(u(1).*conj(u(7))-u(7).*conj(u(1))+cottht.*(conj(u(3))-u(3)));
y6=u(5)-(i./2).*g.*cottht.*(u(3)-conj(u(3)));
y7=(i./2).*g.*u(1);
s = [y1; y2; y3; y4; y5; y6; y7];                                                         
% --------------------------------------------------------------
function u0 = pdex4ic(x);
u0 = [0;0;0;1;0;0;0.01.*exp(-((x./15).^2))];                                 
% --------------------------------------------------------------
function [pl,ql,pr,qr] = pdex4bc(xl,ul,xr,ur,t)
pl = [ul(1); ul(2); ul(3); ul(4); ul(5); ul(6); 0];                              
ql = [0; 0; 0; 0; 0; 0; 1];                                 
pr = [ur(1); ur(2); ur(3); ur(4); ur(5); ur(6); 0];                           
qr = [0; 0; 0; 0; 0; 0; 1];        

方程7 是 DuDt+DuDx=i=(i./2).*g.*u(1) ,是随空间变化的,但结果怎么不随空间变化了,谁能帮我改改这个程序。
感谢所有看到此程序的人,特别感谢帮我修改的人!!!

[ Last edited by lvzhu2007 on 2008-4-19 at 15:25 ]
回复此楼

» 猜你喜欢

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

飞翔的海鸥

银虫 (小有名气)

怎么没有人回答了 郁闷
2楼2008-04-19 15:14:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yuyongji

新虫 (初入文坛)

你能详细的介绍下你的程序吗?
3楼2008-04-20 15:45:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 飞翔的海鸥 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 081700,311,求调剂 +11 冬十三 2026-04-04 11/550 2026-04-04 22:24 by 啵啵啵0119
[考研] 0703化学调剂325分 +7 15771691647 2026-04-04 7/350 2026-04-04 20:45 by 蓝云思雨
[考研] 284求调剂 +4 徐同学_001 2026-04-04 4/200 2026-04-04 20:12 by babysonlkd
[考研] 工科求调剂 +12 11ggg 2026-04-03 12/600 2026-04-04 20:07 by 啊俊!
[考研] 298求调剂 +5 zzz,,r 2026-04-02 8/400 2026-04-04 19:55 by 蓝云思雨
[考研] 085602 找调剂 +4 逆时针快乐 2026-04-02 4/200 2026-04-04 19:32 by 蓝云思雨
[考研] 292求调剂 +11 2022080213 2026-04-04 13/650 2026-04-04 18:38 by macy2011
[考研] 一志愿0817化学工程与技术,求调剂 +24 我不是只因 2026-04-02 28/1400 2026-04-04 15:15 by dongzh2009
[考研] 0710生物学336分求调剂 +6 kiyy 2026-04-01 8/400 2026-04-04 10:10 by kiyy
[考研] 387求调剂 +4 爱吃片豆土 2026-04-03 5/250 2026-04-04 08:10 by 岸上的一条鱼
[考研] 材料与化工调剂一志愿大连海事085600,349 +11 吃的不少 2026-03-30 11/550 2026-04-03 18:05 by Jimmyandyou
[考研] 338求调剂 +4 zzz,,r 2026-04-03 4/200 2026-04-03 16:39 by lijunpoly
[考研] 复试调剂 +5 春日来信- 2026-04-03 5/250 2026-04-03 15:01 by buqi613
[考研] 一志愿武汉理工0856,初试334 +3 26考研材料 2026-04-02 3/150 2026-04-02 21:22 by dongzh2009
[考研] 08工科求调剂290分 +5 1314捧花 2026-04-02 8/400 2026-04-02 13:16 by 乔哒哒哒
[考研] 298求B区调剂 +4 zzz,,r 2026-04-02 5/250 2026-04-02 12:17 by 土木硕士招生
[考研] 353求调剂 +4 拉钩不许变 2026-04-01 4/200 2026-04-01 18:10 by 记事本2026
[考研] 求调剂,一志愿北林食品与营养095500,301分,已过六级,有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 材料工程专硕求调剂 +10 hyl3153942 2026-03-29 10/500 2026-03-31 16:31 by hypershenger
[考研] 一志愿华中师范化学332分求调剂 +3 Lyy930824@ 2026-03-29 3/150 2026-03-30 20:15 by DHUSHUAI
信息提示
请填处理意见