You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
339 B
12 lines
339 B
% CH size: (6, eleNum);
|
|
% two-scale compliance
|
|
function [c,U] = compliance(CH, nodeNum, freedofs, fixeddofs,F,iK, jK, optKE)
|
|
sK = getK(CH,optKE);
|
|
K = sparse(iK, jK, sK);
|
|
K = (K + K') / 2;
|
|
K = boundaryK(K, fixeddofs);
|
|
|
|
U = zeros(2 * nodeNum, 1);
|
|
U(freedofs) = K(freedofs, freedofs) \ F(freedofs);
|
|
c = F' * U;
|
|
end
|