% FEAcomp. Solution of Example 6.5.
% J.A. Mayugo & E.J. Barbero (c) 2006, 2007, 2012
clc; clear all; close all;format short g;

C11 =    0.1012764;
C21 =    0.5000165E-02;

C12 =    0.5000436E-02;
C22 =    0.1148767E-01;

C66 =    0.2599793E-02;

C_= [C11 C12 0; C21 C22 0 ; 0 0 C66  ] ;
    
S=inv(C_) ;

E1 = 1/S(1,1);
E2 = 1/S(2,2);
nu12=-S(2,1)*E1;
nu21=-S(1,2)*E2;
G12=C66;

disp('Composite: Elastic properties Ex_65');
disp('E1, E2, nu12, nu21, G12');
disp([E1, E2, nu12, nu21, G12]); 

