%---------------------------------------------------------
% A_PARAMETERS.M
% definition of the model parameters
% Fiala Peter
% 2008 BME, Laboratory of Acoustics
%---------------------------------------------------------
clear all;
close all;
clc;
%% Computer dimensions
Lx = 0.2;
Ly = 0.6;
Lz = 0.4;
%% material properties
Este = 2e11;               % Young modulus of steel
nuste = 0.28;              % Poisson ratio of steel
rhoste = 7.8e3;            % mass density of steel
Gste = Este/(2*(1+nuste)); % Shear modulus of steel
%% element geometrical parameters
dbea = 5e-3;      % thickness of beam element
Ibea = dbea^4/12; % inertia of beam element
Jbea = 2*Ibea;    % torsional inertia of beam element
Abea = dbea^2;    % cross section of beam element
wpla = 2e-3;      % thickness of plate element
%% Mesh dimensions
Le = 0.025;         % element size
Nex = ceil(Lx/Le);  % number of elements in the x direction
Ney = ceil(Ly/Le);  % -"- y
Nez = ceil(Lz/Le);  % -"- z
%% 
save data/parameters