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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
clear;
% **********************************************
% Lecture des données
% **********************************************
node=dlmread('Node_ABAQUS_10_100_.inp');
S.node = node(:,2:3);
clear node;
element = dlmread('Element_ABAQUS_10_100_maillageC.inp');
S.element = element (:,2:4);
clear element;
'Propriétés matériaux'
mat.ep = 0.1;
mat.E = 50*10^9;
mat.nu = 0.2
U_imp = dlmread('U_imp.csv');
F_imp = dlmread('F_imp.csv');
% **********************************************
% Affichage de la struture
% **********************************************
patch('Faces', S.element,'Vertices', S.node, 'Facecolor','b'); % définit le triangle
% **********************************************
% Calcul de KL
% **********************************************
'Calcul de KL'
S.nb_node = size(S.node,1)
KL = zeros(2*S.nb_node, 2*S.nb_node);
for e=1 : size (S.element,1);
num_e = S.element(e,:);
node_e = S.node (num_e,:);
Ns = [-1,-1;1,0;0,1];
J = node_e' * Ns; % node_e transposé !
Jinv = inv(J);
Nx = Ns * Jinv;
Be = [Nx(1,1),0,Nx(2,1),0,Nx(3,1),0;
0,Nx(1,2),0,Nx(2,2),0,Nx(3,2);
Nx(1,2),Nx(1,1),Nx(2,2),Nx(2,1),Nx(3,2),Nx(3,1)];
Ccp = (mat.E/(1-mat.nu^2))*[1,mat.nu,0;mat.nu,1,0;0,0,(1-mat.nu/2)]; % C en CP
w = 1/2;
Ke1 = Be' * Ccp * Be * det(J) * w;
KL = ........... ?????????? % c'est ici que se trouve mon problème ...
end;
'end' |
Partager