tdehaeze/nass-micro-station-measurements
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add every computation files and data

Browse Source
This commit is contained in:
Thomas Dehaeze
2019-03-14 16:40:28 +01:00
parent 3929373a9d
commit c2aa389536
423 changed files with 2233847 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
2018-01-12 - Marc/scripts/export_measure_data.m Normal file
View File

@@ -0,0 +1,105 @@
%%
clear;
close all;
clc
%% Coherence
load('../raw_data/coher_marble_x.mat') % coh1
coh_marble_x = zeros(size(coh1, 1), 10);
coh_marble_x(:, 2) = coh1(:, 2); % marble_x
coh_marble_x(:, 5) = coh1(:, 3); % tilt_x
coh_marble_x(:, 8) = coh1(:, 4); % hexa_x
load('../raw_data/coher_hexa_x.mat') % coh2
coh_hexa_x = zeros(size(coh2, 1), 10);
coh_hexa_x(:, 2) = coh2(:, 2); % marble_x
coh_hexa_x(:, 5) = coh2(:, 3); % tilt_x
coh_hexa_x(:, 8) = coh2(:, 4); % hexa_x
load('../raw_data/coher_marble_y.mat') % coh3
coh_marble_y = zeros(size(coh3, 1), 10);
coh_marble_y(:, 3) = coh3(:, 2); % marble_y
coh_marble_y(:, 6) = coh3(:, 3); % tilt_y
coh_marble_y(:, 9) = coh3(:, 4); % hexa_y
load('../raw_data/coher_hexa_y.mat') % coh4
coh_hexa_y = zeros(size(coh4, 1), 10);
coh_hexa_y(:, 3) = coh4(:, 2); % marble_y
coh_hexa_y(:, 6) = coh4(:, 3); % tilt_y
coh_hexa_y(:, 9) = coh4(:, 4); % hexa_y
load('../raw_data/coher_marble_z.mat') % coh5
coh_marble_z = zeros(size(coh5, 1), 10);
coh_marble_z(:, 4) = coh5(:, 2); % marble_z
coh_marble_z(:, 7) = coh5(:, 3); % tilt_z
coh_marble_z(:, 10) = coh5(:, 4); % hexa_z
load('../raw_data/coher_hexa_z.mat') % coh6
coh_hexa_z = zeros(size(coh6, 1), 10);
coh_hexa_z(:, 4) = coh6(:, 2); % marble_z
coh_hexa_z(:, 7) = coh6(:, 3); % tilt_z
coh_hexa_z(:, 10) = coh6(:, 4); % hexa_z
%% Save Coherence data
save('../data/id31_microstation_2018_01_12_coh.mat', ...
'coh_marble_x', ...
'coh_hexa_x', ...
'coh_marble_y', ...
'coh_hexa_y', ...
'coh_marble_z', ...
'coh_hexa_z');
%% Frequency Response
load('../raw_data/freq_frf.mat') % freq_fr
% force_factor = 1/100;
% speed_factor = 1/1.2;
% scale_factor = speed_factor/force_factor;
scale_factor = 1;
load('../raw_data/frf_marble_x.mat') % ReIm1
frf_marble_x = zeros(size(ReIm1, 1), 10);
frf_marble_x(:, 2) = -scale_factor*ReIm1(:, 2); % marble_x
frf_marble_x(:, 5) = -scale_factor*ReIm1(:, 3); % tilt_x
frf_marble_x(:, 8) = -scale_factor*ReIm1(:, 4); % hexa_x
load('../raw_data/frf_hexa_x.mat') % ReIm2
frf_hexa_x = zeros(size(ReIm2, 1), 10);
frf_hexa_x(:, 2) = -scale_factor*ReIm2(:, 2); % marble_x
frf_hexa_x(:, 5) = -scale_factor*ReIm2(:, 3); % tilt_x
frf_hexa_x(:, 8) = -scale_factor*ReIm2(:, 4); % hexa_x
load('../raw_data/frf_marble_y.mat') % ReIm3
frf_marble_y = zeros(size(ReIm3, 1), 10);
frf_marble_y(:, 3) = -scale_factor*ReIm3(:, 2); % marble_y
frf_marble_y(:, 6) = -scale_factor*ReIm3(:, 3); % tilt_y
frf_marble_y(:, 9) = -scale_factor*ReIm3(:, 4); % hexa_y
load('../raw_data/frf_hexa_y.mat') % ReIm4
frf_hexa_y = zeros(size(ReIm4, 1), 10);
frf_hexa_y(:, 3) = scale_factor*ReIm4(:, 2); % marble_y
frf_hexa_y(:, 6) = scale_factor*ReIm4(:, 3); % tilt_y
frf_hexa_y(:, 9) = scale_factor*ReIm4(:, 4); % hexa_y
load('../raw_data/frf_marble_z.mat') % ReIm5
frf_marble_z = zeros(size(ReIm5, 1), 10);
frf_marble_z(:, 4) = scale_factor*ReIm5(:, 2); % marble_z
frf_marble_z(:, 7) = scale_factor*ReIm5(:, 3); % tilt_z
frf_marble_z(:, 10) = scale_factor*ReIm5(:, 4); % hexa_z
load('../raw_data/frf_hexa_z.mat') % ReIm6
frf_hexa_z = zeros(size(ReIm6, 1), 10);
frf_hexa_z(:, 4) = scale_factor*ReIm6(:, 2); % marble_z
frf_hexa_z(:, 7) = scale_factor*ReIm6(:, 3); % tilt_z
frf_hexa_z(:, 10) = scale_factor*ReIm6(:, 4); % hexa_z
%% Save Frequency Response Data
save('../data/id31_microstation_2018_01_12_frf.mat', ...
'freq_frf', ...
'frf_marble_x', ...
'frf_hexa_x', ...
'frf_marble_y', ...
'frf_hexa_y', ...
'frf_marble_z', ...
'frf_hexa_z');

182
2018-01-12 - Marc/scripts/export_measure_object.m Normal file
View File

@@ -0,0 +1,182 @@
ground = struct(...
'full_name', 'Ground',...
'short_name', 'ground',...
'letter', 'g',...
'above_of', '',...
'bellow_of', 'marble',...
'tx', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'ty', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'tz', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
)...
);
marble = struct(...
'full_name', 'Marble',...
'short_name', 'marble',...
'letter', 'm',...
'above_of', 'ground',...
'bellow_of', 'trans_stage',...
'tx', struct(...
'isMeasured', true, ...
'isExcited', true, ...
'id', 2 ...
),...
'ty', struct(...
'isMeasured', true, ...
'isExcited', true, ...
'id', 3 ...
),...
'tz', struct(...
'isMeasured', true, ...
'isExcited', true, ...
'id', 4 ...
)...
);
trans_stage = struct(...
'full_name', 'Translation Stage',...
'short_name', 'trans_stage',...
'letter', 't',...
'above_of', 'marble',...
'bellow_of', 'tilt_stage',...
'tx', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'ty', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'tz', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
)...
);
tilt_stage = struct(...
'full_name', 'Tilt Stage',...
'short_name', 'tilt_stage',...
'letter', 'o',...
'above_of', 'trans_stage',...
'bellow_of', 'hexa',...
'tx', struct(...
'isMeasured', true, ...
'isExcited', false, ...
'id', 5 ...
),...
'ty', struct(...
'isMeasured', true, ...
'isExcited', false, ...
'id', 6 ...
),...
'tz', struct(...
'isMeasured', true, ...
'isExcited', false, ...
'id', 7 ...
)...
);
hexa = struct(...
'full_name', 'Hexapod',...
'short_name', 'hexa',...
'letter', 'h',...
'above_of', 'tilt_stage',...
'bellow_of', 'nano_stage',...
'tx', struct(...
'isMeasured', true, ...
'isExcited', true, ...
'id', 8 ...
),...
'ty', struct(...
'isMeasured', true, ...
'isExcited', true, ...
'id', 9 ...
),...
'tz', struct(...
'isMeasured', true, ...
'isExcited', true, ...
'id', 10 ...
)...
);
nano_stage = struct(...
'full_name', 'Nano Stage',...
'short_name', 'nano_stage',...
'letter', 'n',...
'above_of', 'hexa',...
'bellow_of', 'sample',...
'tx', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'ty', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'tz', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
)...
);
sample = struct(...
'full_name', 'Sample',...
'short_name', 'sample',...
'letter', 's',...
'above_of', 'nano_stage',...
'bellow_of', '',...
'tx', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'ty', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
),...
'tz', struct(...
'isMeasured', false, ...
'isExcited', false, ...
'id', 0 ...
)...
);
%%
elements = struct(...
'ground', ground,...
'marble', marble,...
'trans_stage', trans_stage,...
'tilt_stage', tilt_stage,...
'hexa', hexa,...
'nano_stage', nano_stage,...
'sample', sample ...
);
%% Where is located the data files generated by export_measure_data script
files = struct(...
'frf', 'id31_microstation_2018_01_12_frf.mat',...
'coh', 'id31_microstation_2018_01_12_coh.mat' ...
);
%%
m_object = struct(...
'files', files,...
'elements', elements,...
'quantity', 'velocity', ...
'notes', 'Mesures du 12/01/2018 par Marc Lessourd - Geophones' ...
);
%% Save m_object
save('../data/2018_01_12.mat', 'm_object')

381
2018-01-12 - Marc/scripts/id31_microstation_12january2018.m Normal file
View File

@@ -0,0 +1,381 @@
% Title: id31 microstation
% Date: 12 january 2018
% Description: measure on id31 microstation in room id31-13
% FS: =512Hz
%% measurements 12 janaury 2018
microstation=['Marble '; 'Tilt '; 'Hexapod '];
% ch1: hammer
% ch2: geophone L32 X on marble X,Y or Z
% ch3: geophone L32 on tilt stage X,Y or Z
% ch4: geophone L32 on hexapode X,Y or Z
leg1=['TY ON - RZ OFF - RY OFF - Slip ring OFF - Hexapod OFF'];
% Meas1 - excitation X direction on marble
% Meas2 - excitation X direction on hexa
% Meas3 - excitation Y direction on marble
% Meas4 - excitation Y direction on hexa
% Meas5 - excitation Z direction on marble
% Meas6 - excitation Z direction on hexa
% xxx_marble_x - excitation X direction on marble
% xxx_marble_y - excitation Y direction on marble
% xxx_marble_z - excitation Z direction on marble
% xxx_hexa_x - excitation X direction on hexa
% xxx_hexa_y - excitation Y direction on hexa
% xxx_hexa_z - excitation Z direction on hexa
% frf= transfert function acceleration/force en ms-2/N (complex)
% phs= phase
% coh= coherence
% freq_frf= frequencies
%% -------------------------------------------------------------------------
% LOAD SAVED FRF
% ------------------------------------------------------------------------
% ch_max=16;
% % --------------------------------
%
% mult=1e6; % --> m/s to micron/s
%
% nyqhp=2.56; % nyquist
% f_cut=0.5; % cut frequency for high pass filter
% t_win=4; % window length in sec
% t_ovlp=0; % overlap window in sec
warning off MATLAB:divideByZero
% specify capt # for which to run this
capt=[1:6];
for i=capt
eval(['load Measurement',num2str(i)])
for ch=2:4
eval(['freq_frf(:,',num2str(1),')=FFT1_H1_',num2str(2),'_1_RMS_X_Val;'])
%omeg=2*pi*freq;
eval(['av_spc(:,',num2str(ch),')=FFT1_AvSpc_',num2str(ch),'_RMS_Y_Val;'])
eval(['frf_mod(:,',num2str(ch),')=FFT1_H1_',num2str(ch),'_1_RMS_Y_Mod;'])
eval(['frf_phs(:,',num2str(ch),')=FFT1_H1_',num2str(ch),'_1_RMS_Y_Phas;'])
eval(['frf_reim(:,',num2str(ch),')=FFT1_H1_',num2str(ch),'_1_Y_ReIm;'])
eval(['frf_coh(:,',num2str(ch),')=FFT1_Coh_',num2str(ch),'_1_RMS_Y_Val;'])
end
eval(['mod',num2str(i),'=frf_mod;'])
eval(['phs',num2str(i),'=frf_phs;'])
eval(['ReIm',num2str(i),'=frf_reim;'])
eval(['coh',num2str(i),'=frf_coh;'])
end
%%
%%--------plot settings for colors and linewidth----
proname(1)={'LineWidth'};
proname(2)={'Color'};
proname(3)={'LineStyle'};
val(1,1) = {.5} ;val(1,2) = {[0.6 0.2 1]} ;val(1,3) = {'-'};
val(2,1) = {2} ;val(2,2) = {[0 0 1]} ;val(2,3) = {'-'};
val(3,1) = {0.5} ;val(3,2) = {[0.25 0.9 0.65]} ;val(3,3) = {'-'};
val(4,1) = {2} ;val(4,2) = {[0 1 0]} ;val(4,3) = {'-'};
val(5,1) = {0.5} ;val(5,2) = {[1 0.4 0.4]} ;val(5,3) = {'-'};
val(6,1) = {2} ;val(6,2) = {[1 0 0]} ;val(6,3) = {'-'};
val(7,1) = {1} ;val(7,2) = {[0.8 0.8 0.8]} ;val(7,3) = {'-'};
val(8,1) = {2} ;val(8,2) = {[0.1 0.1 0.2]} ;val(8,3) = {'-'};
val(9,1) = {1} ;val(9,2) = {[0.7 0.8 0.4]} ;val(9,3) = {'-'};
val(10,1) = {2} ;val(10,2) = {[0.7 0.8 0.2]} ;val(10,3) = {'-'};
val(11,1) = {1} ;val(11,2) = {[0.9 0.7 0.35]} ;val(11,3) = {'-'};
val(12,1) = {2} ;val(12,2) = {[1 0.8 0.3]} ;val(12,3) = {'-'};
val(13,1) = {1} ;val(13,2) = {[0.5 0.4 0.3]} ;val(13,3) = {'-'};
val(14,1) = {2} ;val(14,2) = {[0.5 0.3 0.2]} ;val(14,3) = {'-'};
%
% %--------------------------------Plots
xlab=['Frequency in Hz'];
xlab1=['Hours since start: 06/07/2012 at 19:40'];
ylab1=['Velocity / Force in m.s^{-1}.N^{-1}.'];
ylab2=['PSD in \mum^{2}/Hz'];
ylab3=['Amplification'];
ylab4=['PSD in (\mum/s)^{2}/Hz'];
ylab5=['PSD in a.u.'];
ylab6=['Phase in deg.'];
ylab7=['Coherence'];
font_s=14;
% ---------------------------------
tit_3=['ID31 microstation - Vertical (Z) FRF'];
tit_1=['ID31 microstation - Horizontal (X) FRF'];
tit_2=['ID31 microstation - Horizontal (Y) FRF'];
tit_4=['ID31 microstation - Horizontal (X) Phase'];
tit_5=['ID31 microstation - Horizontal (Y) Phase'];
tit_6=['ID31 microstation - Vertical (Z) Phase'];
tit_7=['ID31 microstation - Horizontal (X) Coh'];
tit_8=['ID31 microstation - Horizontal (Y) Coh'];
tit_9=['ID31 microstation - Vertical (Z) Coh'];
legend1=['microstation(1,:),microstation(2,:),microstation(3,:),''Location'',''SouthEast'''];
%legend7=['TY controlled - RZ ON - RY OFF - Slip ring ON - Hexapod OFF',
%% X direction
figure
h=semilogy(freq_frf,abs([ReIm1(:,2) ReIm1(:,3) ReIm1(:,4)]));
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_1,xlab,ylab1,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'frf_x_hammer_marble','fig')
print -dpng frf_x_hammer_marble
figure
h=semilogy(freq_frf,abs([ReIm2(:,2) ReIm2(:,3) ReIm2(:,4)]));
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_1,xlab,ylab1,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'frf_x_hammer_hexa','fig')
print -dpng frf_x_hammer_hexa
%%
figure
h=plot(freq_frf,[(phs1(:,2)) (phs1(:,3)) (phs1(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_4,xlab,ylab6,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'phase_x_hammer_marble','fig')
print -dpng phase_x_hammer_marble
figure
h=plot(freq_frf,[(phs2(:,2)) (phs2(:,3)) (phs2(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_4,xlab,ylab6,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'phase_x_hammer_hexa','fig')
print -dpng phase_x_hammer_hexa
figure
h=plot(freq_frf,[(coh1(:,2)) (coh1(:,3)) (coh1(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_7,xlab,ylab7,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'coh_x_hammer_marble','fig')
print -dpng coh_x_hammer_marble
figure
h=plot(freq_frf,[(coh2(:,2)) (coh4(:,3)) (coh4(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_7,xlab,ylab7,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'coh_x_hammer_hexa','fig')
print -dpng coh_x_hammer_hexa
%% Y direction
figure
h=semilogy(freq_frf,abs([ReIm3(:,2) ReIm3(:,3) ReIm3(:,4)]));
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_2,xlab,ylab1,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'frf_y_hammer_marble','fig')
print -dpng frf_y_hammer_marble
figure
h=semilogy(freq_frf,abs([ReIm4(:,2) ReIm4(:,3) ReIm4(:,4)]));
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_2,xlab,ylab1,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'frf_y_hammer_hexa','fig')
print -dpng frf_y_hammer_hexa
figure
h=plot(freq_frf,[(phs3(:,2)) (phs3(:,3)) (phs3(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_5,xlab,ylab6,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'phase_y_hammer_marble','fig')
print -dpng phase_y_hammer_marble
figure
h=plot(freq_frf,[(phs4(:,2)) (phs4(:,3)) (phs4(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_5,xlab,ylab6,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'phase_y_hammer_hexa','fig')
print -dpng phase_y_hammer_hexa
figure
h=plot(freq_frf,[(coh3(:,2)) (coh3(:,3)) (coh3(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_8,xlab,ylab7,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'coh_y_hammer_marble','fig')
print -dpng coh_y_hammer_marble
figure
h=plot(freq_frf,[(coh4(:,2)) (coh4(:,3)) (coh4(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_8,xlab,ylab7,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'coh_y_hammer_hexa','fig')
print -dpng coh_y_hammer_hexa
%% Z direction
figure
h=semilogy(freq_frf,abs([ReIm5(:,2) ReIm5(:,3) ReIm5(:,4) ]));
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_3,xlab,ylab1,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'frf_z_hammer_marble','fig')
print -dpng frf_z_hammer_marble
figure
h=semilogy(freq_frf,abs([ReIm6(:,2) ReIm6(:,3) ReIm6(:,4)]));
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_3,xlab,ylab1,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'frf_z_hammer_hexa','fig')
print -dpng frf_z_hammer_hexa
figure
h=plot(freq_frf,[(phs5(:,2)) (phs5(:,3)) (phs5(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_6,xlab,ylab6,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'phase_z_hammer_marble','fig')
print -dpng phase_z_hammer_marble
figure
h=plot(freq_frf,[(phs6(:,2)) (phs6(:,3)) (phs6(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_6,xlab,ylab6,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'phase_z_hammer_hexa','fig')
print -dpng phase_z_hammer_hexa
figure
h=plot(freq_frf,[(coh5(:,2)) (coh5(:,3)) (coh5(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_9,xlab,ylab7,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'coh_z_hammer_marble','fig')
print -dpng coh_z_hammer_marble
figure
h=plot(freq_frf,[(coh6(:,2)) (coh6(:,3)) (coh6(:,4))]);
set(h,proname,val([6 4 2],1:3))
eval(['legend(',legend1,')'])
titlabel_font(tit_9,xlab,ylab7,font_s);
%axis([1 100 1e-2 1e2])
grid
saveas(gcf,'coh_z_hammer_hexa','fig')
print -dpng coh_z_hammer_hexa
%% COMPARE FRF
figure
h=semilogy(freq_frf,abs([ReIm4(:,11) ReIm10(:,11) ReIm11(:,11) ReIm15(:,11)]));
set(h,proname,val([6 4 2 12],1:3))
legend(leg1,leg3,leg4,leg6,'Location','SouthEast');
titlabel_font(tit_1,xlab,ylab1,10);
grid
saveas(gcf,'comp_frf_x_hammer_hexa','fig')
print -dpng comp_frf_x_hammer_hexa
figure
h=semilogy(freq_frf,abs([ReIm5(:,12) ReIm9(:,12) ReIm13(:,12) ReIm14(:,12)]));
set(h,proname,val([6 4 2 12],1:3))
legend(leg1,leg2,leg5,leg6,'Location','SouthEast');
titlabel_font(tit_2,xlab,ylab1,10);
grid
saveas(gcf,'comp_frf_y_hammer_hexa','fig')
print -dpng comp_frf_y_hammer_hexa
figure
h=semilogy(freq_frf,abs([ReIm6(:,12) ReIm16(:,12)]));
set(h,proname,val([6 12],1:3))
legend(leg1,leg6,'Location','SouthEast');
titlabel_font(tit_3,xlab,ylab1,10);
grid
saveas(gcf,'comp_frf_z_hammer_hexa','fig')
print -dpng comp_frf_z_hammer_hexa
%%
figure
h=semilogy(freq_frf,abs([ReIm4(:,5) ReIm10(:,5) ReIm11(:,5) ReIm15(:,5)]));
set(h,proname,val([6 4 2 12],1:3))
legend(leg1,leg3,leg4,leg6,'Location','SouthEast');
grid
% saveas(gcf,'comp_frf_x_hammer_hexa','fig')
% print -dpng comp_frf_x_hammer_hexa
figure
h=semilogy(freq_frf,abs([ReIm5(:,6) ReIm9(:,6) ReIm13(:,6) ReIm14(:,6)]));
set(h,proname,val([6 4 2 12],1:3))
legend(leg1,leg2,leg5,leg6,'Location','SouthEast');
grid
% saveas(gcf,'comp_frf_y_hammer_hexa','fig')
% print -dpng comp_frf_y_hammer_hexa
figure
h=semilogy(freq_frf,abs([ReIm6(:,7) ReIm16(:,7)]));
set(h,proname,val([6 12],1:3))
legend(leg1,leg6,'Location','SouthEast');
grid
% saveas(gcf,'comp_frf_z_hammer_hexa','fig')
% print -dpng comp_frf_z_hammer_hexa