ask.m

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

function [kk]=ask(kk,k,index)
%----------------------------------------------------------
%  目的:
%     合成系统刚度矩阵
%
% 　变量:
%     kk - 系统刚度矩阵
%     k  - 单元刚度矩阵
%     index - d.o.f. vector associated with an element
%-----------------------------------------------------------

 
 edof = length(index);
 for i=1:edof
   ii=index(i);
     for j=1:edof
       jj=index(j);
         kk(ii,jj)=kk(ii,jj)+k(i,j);
     end
 end