assemble_loads

(./assemble_loads.m)

Function Synopsis

p = assemble_loads(p,load,active_nodes,dof) 

Help text

 function p = assemble_loads(p,load,active_nodes) 
 load = [node,pi,pj,pk]

Cross-Reference Information

resolve_truss  ./resolve_truss.m
solve_truss    ./solve_truss.m
solve_truss2   ./solve_truss2.m
solve_truss_lu ./solve_truss_lu.m

Listing of function ./assemble_loads.m

function p = assemble_loads(p,load,active_nodes,dof) 
% function p = assemble_loads(p,load,active_nodes) 
% load = [node,pi,pj,pk]


i = find(active_nodes==load(1));

if max(size(i)) > 0
    irange = i*dof-(dof-1):i*dof;
    p(irange) = load(2:dof+1);
end