7 lines
283 B
Mathematica
7 lines
283 B
Mathematica
|
%%%%%%%%%%% һ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>嵥Ԫ<EFBFBD>ߵ<EFBFBD><EFBFBD>Բ<EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>-Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> %%%%%%%%%%%
|
|||
|
|
% D<EFBFBD>ߵ<EFBFBD><EFBFBD>Բ<EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>-Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
% E<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><EFBFBD>
|
|||
|
|
% u<EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD>
|
|||
|
|
function [D]=LinearIsotropicD(E,u)
|
|||
|
|
D=E/((1+u)*(1-2*u))*[1-u u u 0 0 0;u 1-u u 0 0 0;u u 1-u 0 0 0;0 0 0 (1-2*u)/2 0 0;0 0 0 0 (1-2*u)/2 0;0 0 0 0 0 (1-2*u)/2];
|
|||
|
|
end
|