cylindcat1b.m

来自「本代码为黄华江编著《实用化工计算机模拟—MATLAB在化学工程中的应用》的配套车」· M 代码 · 共 24 行

function [q,g,h,r]=CylindCat1b(p,e,u,time)
%CYLINDCAT1B	Boundary condition data.
%
%
%
bl=[
1 1 1 1
1 1 1 0
1 1 1 1
1 1 1 1
1 1 1 48
1 1 1 48
48 48 48 48
48 48 48 48
49 49 49 49
49 49 49 48
];

if any(size(u))
  [q,g,h,r]=pdeexpd(p,e,u,time,bl);
else
  [q,g,h,r]=pdeexpd(p,e,time,bl);
end