constraint=[1,1;1,2;6,2];
for loopi=1:length(constraint);
ed(constraint(loopi,1),constraint(loopi,2))=0;
end dof=0;
for loopi=1:node_number
for loopj=1:2 if ed(loopi,loopj)~=0 dof=dof+1;
ed(loopi,loopj)=dof; end end
end
.......
for jx=1:4
for jy=1:4 if(e2s(jx)*e2s(jy)~=0) k(e2s(jx),e2s(jy))=k(e2s(jx),e2s(jy))+dk(jx,jy);
m(e2s(jx),e2s(jy))=m(e2s(jx),e2s(jy))+dm(jx,jy); end end
end
end