%
%   plate_materials_mass.m  ver 1.0  September 6, 2012
%
function[amass,tmass,ins,imeth,thick,D,rho,v,h]=plate_materials_mass(iu)
%
amass=0;
tmass=0;
ins=0;
imeth=0;
%
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,v]=materials(iu);
    D=E*(thick^3)/(12*(1-v^2));
%    
else
%
    [thick,D,rho,v]=honeycomb_materials(iu,L,W);
%
end
%
D=D*[1 v 0; v 1 0; 0 0 (1-v)/2];
%
%
h=thick;
%
disp(' ');
disp(' Enter uniform nonstructural mass? '); 
disp(' 1=yes 2=no ');
%
amass=0;
tmass=0;
ins=input(' ');
if(ins==1)
    disp(' ');
    disp(' Select method '); 
    disp(' 1= Add mass   ');
    disp(' 2= Specify total mass'); 
    imeth=input(' ');
    disp(' ');
    if(imeth==1)
       amass=input(' Enter added mass(lbm) ');
       amass=amass/386;
    else
       tmass=input(' Enter total mass(lbm) ');
       tmass=tmass/386;
    end
end
%