%% Function name
%       QandS

%% Revised:
%       16 January 2014

%% Author
%       Sotirios Chatzisavvas, Trey Moore, & Autar Kaw
%       Section: All
%       Semester: Fall 2012

%% Purpose
%       Given the elastic modulii, Poisson's ratio, and shear modulus
%       of a unidirectional lamina, output the Reduced Stiffness Matrix,and
%       the Compliance Matrix.

%% Usage:
%       function [Q,S]= QandS(moduli)
%   Input Variables
%       moduli=vector with four elastic modulii of unidirectional lamina
%       [moduli]=[E1 E2 nu12 G12]
%       E1=longitudinal elastic modulus
%       E2=transverse elastic modulus
%       nu12=major Poisson's ratio
%       G12=in-plane shear modulus
%   Output Variables
%       [Q]=vector of reduced stiffness matrix
%       [S]=compliance matrix
%   Keyword
%       reduced stiffnes matrix
%       compliance matrix

%% License Agreement
%       http://www.eng.usf.edu/~kaw/OCW/composites/license/limiteduse.pdf

%% Code
function [Q,S] = QandS(moduli)
% compliance matrix
S=[1/moduli(1) -moduli(3)/moduli(1) 0; -moduli(3)/moduli(1) 1/moduli(2) 0; 0 0 1/moduli(4)];
% reduced stiffness matrix
Q=inv(S);
end