load_v.m

结构力学中的有限元例子,包含了7个分类文件夹

function [LV] = LOAD_V (dofN, dof_, in_data, L)

% form the load vector

LV_ = zeros(1,dof_);

for i=1:size(in_data.LOAD_,1)
   t4 = in_data.LOAD_(i,1)*dofN-(dofN-1);
   for k=1:size(in_data.LOAD_,2)-1
       LV_(t4+k-1)     = in_data.LOAD_(i,k+1); % load vector
   end;
end;

LV = LV_(1,L);   % eliminate zero columns and rows from load vector