assembly.m

来自「The Finite Element Method Usign MATLAB.p」· M 代码 · 共 15 行

% assemble element matrices and vectors
function [K,f] = assembly(K,f,e,ke,fe)
include_flags;


for loop1 = 1:nen*ndof
    i = LM(loop1,e);
    f(i) =  f(i) + fe(loop1);   % assemble element vectors
    for loop2 = 1:nen*ndof
        j = LM(loop2,e);
        K(i,j) = K(i,j) + ke(loop1,loop2);  % assemble element matrices
    end
end