1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
% Introduction des constantes du diamant
c_11=10.8;
c_22=10.8;
c_13=1.25;
c_23=1.25;
c_12=1.25;
c_33=10.8;
c_44=5.76;
c_55=5.76;
c_66=5.76;
epsilon_11=5.70;
epsilon_33=5.70;
epsilon_13=0; %je le suppose !
rho=3510;
e=zeros(4,4);
% Définition des paramètres de la matrice en milieu isotrope, q quelconque
%q=sym(q);
%V=sym(V);
Gamma_11=c_22 + c_44*q;
Gamma_22=c_33;
Gamma_33=c_44 + c_66*q^2;
Gamma_13=c_44*q;
Gamma_23=0;
Gamma_12=c_23;
gamma_1=e(1,2) + 2*e(1,4)*q + e(1,6)*q^2;
gamma_2=e(2,2) + 2*e(2,4)*q + e(2,6)*q^2;
gamma_3=e(3,2) + 2*e(3,4)*q + e(3,6)*q^2;
gamma_1=0;
gamma_2=0;
gamma_3=0;
epsilon=epsilon_11 + 2*epsilon_13*q + epsilon_33*q^2;
Gamma=[Gamma_11-rho*V^2, Gamma_12, Gamma_13, gamma_1;Gamma_12, Gamma_22-rho*V^2, Gamma_23, gamma_2; Gamma_13, Gamma_23, Gamma_33-rho*V^2, gamma_3;gamma_1, gamma_2, gamma_3, -epsilon],
Determinant=det(Gamma),
end |
Partager