13 lines
272 B
Mathematica
13 lines
272 B
Mathematica
|
function[w]=StaticSolver(K_c,F_c,mesh,nctot)
|
|||
|
|
%nctot <EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
s=K_c\F_c; %ɾ<EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶȶ<EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><EFBFBD>ʣ<EFBFBD>µ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶȵĽ<EFBFBD>
|
|||
|
|
index=1:mesh.nn*3;
|
|||
|
|
q=zeros(mesh.nn*3,1);
|
|||
|
|
index(nctot)=[];%ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD>
|
|||
|
|
|
|||
|
|
for i=1:numel(index)
|
|||
|
|
q(index(i))=s(i);
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
w=q(1:3:end);
|
|||
|
|
return
|