QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 1804|回复: 0
打印 上一主题 下一主题

[问题求助] matlab使用pde解三维偏微分方程的程序

[复制链接]
字体大小: 正常 放大
Olivier1        

1

主题

11

听众

14

积分

升级  9.47%

  • TA的每日心情
    郁闷
    2015-2-6 11:40
  • 签到天数: 3 天

    [LV.2]偶尔看看I

    自我介绍
    MATLAB工人
    跳转到指定楼层
    1#
    发表于 2015-1-27 22:58 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    t(x,y,0)=300
    t(x,y,100)=300
    t(0,y,z)=t(120,y,z)
    t(x,0,z)=t(x,100,z)
      0≤  x≤120
      0≤  y≤100
      0≤  z≤10[/math]

    写的程序如下,不知道怎么改:

    %pdefun1

    function [c,f,s]=pdefun1(x,y,z,dt)

      c=[1];

      f=[-dt,-dt];

      s=0


    %pdebc1

    function [pa,qa,ka,pb,qb,kb]=pdebc1(xa,ya,ta,xb,yb,tb,z)

      pa=[0];

      qa=[0];

      ka=[300];

      pb=[100];

      qb=[120];

      kb=[300];


    %pdeic1

    function t0=pdeic1(x,y)

      u0=[300 300];


    主调动程序:

    clear all;clc;

    x=0:1:100;

    y=0:1:120;

    z=0:1:100;

    m=0;

    sol=pdepe(m,@pdefun1,@pdeic1,@pdebc1,x,y,z);

    figure('pderunwindows')

    suft(x,y,z,sol(:,:,:,1)

    title('the solution of t')

    xlabel('x')

    ylabel('y')

    zlabel('z')

    请求高手解答.[math](∂^2 t)/(∂x^2 )+(∂^2 t)/(∂y^2 )+(∂^2 t)/(∂z^2 )=0


    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2025-5-14 05:14 , Processed in 0.486212 second(s), 54 queries .

    回顶部