%
%   rectangular_plate_materials.m  ver 1.2  February 26, 2013
%
function[D,rho,mu,beta,thick]=rectangular_plate_materials(iu,L,W)
%
disp(' ');
disp(' Enter plate type: ');
disp(' 1=homogeneous 2=honeycomb-sandwich');
ib=input(' ');
%
if(ib==1)
%
    disp(' ');
    disp(' Enter thickness (inch) ');
    thick=input(' ');
    [E,rho,mu]=materials(iu);
    D=E*(thick^3)/(12*(1-mu^2));
%    
else
%
    [thick,D,rho,mu]=honeycomb_materials(iu,L,W);
%
end
%
beta=2*(1-mu);
%