dtxy.m

来自「有限元法计算平板受集中载荷的程序」· M 代码 · 共 28 行

function result=dtxy(displace)

%------------------------------------------------------------------------
%  目的：
%     将节点位移以节点顺序输出，i->节点号，j->对应位移
%
%  变量：
%     result - 按节点顺序输出后的矩阵
%     displace - 按自由度顺序输出的矩阵
%------------------------------------------------------------------------

for i=1:25;
    if i==1;
        result(1,1)=displace(i);
    else
        result(i,1)=displace(i*3-2);
    end
    if i==1;
        result(1,2)=displace(2);
    else
        result(i,2)=displace(i*3-1);
    end
    if i==1;
        result(1,3)=displace(3);
    else
        result(i,3)=displace(3*i);
    end
end