re.m

来自「力学计算 力学计算 力学计算 力学计算 力学计算」· M 代码 · 共 20 行

function [u]=re(a,b,disp)

%------------------------------------------------------------------------
%  目的：
%     从5x5的四分之一板扩充输出结果到10x10的全板
%
%  变量：
%     disp - 扩充前的节点位移矩阵
%     u - 扩充后的节点位移矩阵
%------------------------------------------------------------------------

for i=a:1:a+8;
    u(1,i+b)=disp(i);
end
for i=a+9:1:a+11;
    u(1,i+b)=disp(i-6);
end
for i=a+12:1:a+14;
    u(1,i+b)=disp(i-12);
end