diff --git a/matlab/tfgm/tf_tools/gabormultiplier/compute_ambiguity_function.m b/matlab/tfgm/tf_tools/gabormultiplier/compute_ambiguity_function.m deleted file mode 100644 index ea700e1731532cc5409b4af6648fdad9e8b66746..0000000000000000000000000000000000000000 --- a/matlab/tfgm/tf_tools/gabormultiplier/compute_ambiguity_function.m +++ /dev/null @@ -1,23 +0,0 @@ -function x = compute_ambiguity_function(x, dgt ,apply_fftshift) -%% x = compute_ambiguity_function(x, dgt ,fftshift_) -% is used to compute the ambiguity function. -% -% Inputs: -% - x : vector -% - dgt : Gabor transform operator -% -apply_fftshift: Boolean -% -%Author: Marina KREME -%% - -switch apply_fftshift - - case 'True' - x = dgt(fftshift(x)); - - case 'False' - x = dgt(x); - otherwise - fprintf('Incorrect value fftshift_\n') - -end \ No newline at end of file diff --git a/matlab/tfgm/tf_tools/gabormultiplier/gen_gabmul_operator.m b/matlab/tfgm/tf_tools/gabormultiplier/gen_gabmul_operator.m deleted file mode 100644 index e34720b8b8f704ec5eb16b4e389d92b1207db6f3..0000000000000000000000000000000000000000 --- a/matlab/tfgm/tf_tools/gabormultiplier/gen_gabmul_operator.m +++ /dev/null @@ -1,23 +0,0 @@ -function [gabmul_op, varargout] = gen_gabmul_operator(dgt, idgt, mask) -%% GEN_GABMUL_OPERATOR computes a Gabor multiplier -% [gabmul_op, varargout] = gen_gabmul_operator(dgt, idgt, mask) -% -% Inputs: -% - dgt: Gabor transform operator -% - idgt: inverse Gabor transform operator -% - mask: binary known mask -% Output: -% - gabmul_op: gabor multiplier- handle function -% -% Author : A. Marina KREME -% e-mail : ama-marina.kreme@lis-lab.fr/ama-marina.kreme@univ-amu.fr -% Created: 2020-28-01 -%% - - - -gabmul_op = @(x)idgt(mask.*dgt(x)); -varargout{1} = mask; - - -end \ No newline at end of file diff --git a/matlab/tfgm/tf_tools/gabormultiplier/generate_rectangular_mask.m b/matlab/tfgm/tf_tools/gabormultiplier/generate_rectangular_mask.m deleted file mode 100644 index a026f3af0cf8e913ebdd4d12ef335959e3e64451..0000000000000000000000000000000000000000 --- a/matlab/tfgm/tf_tools/gabormultiplier/generate_rectangular_mask.m +++ /dev/null @@ -1,31 +0,0 @@ -function mask = generate_rectangular_mask(nbins, hop, sig_len, t_lim, f_lim) -%% GENERATE_RECTANGULAR_MASK -% This function generates a rectangular mask -% mask = generate_rectangular_mask(nbins, hop, sig_len, t_lim, f_lim) -% Inputs: -% - nbins: numbers of channels (int) -% - hop : length of time shift (int) -% - sig_len: signal length (int) -% - t_lim : time value interval -% - f_lim : frequency value interval -% -% Outputs: -% - mask : mask -% Author : A. Marina KREME -%% - - -M = nbins/2 +1; -N = sig_len/hop; - -if size(f_lim,2)~=2 || size(t_lim,2)~=2 - error("Incorrect value. f_lim or t_lim must be an interval") -end - -mask = zeros(M,N); -f_lim = round(f_lim*size(mask,1)); -t_lim =round(t_lim*size(mask,2)); - -mask(f_lim(1):f_lim(2),t_lim(1):t_lim(2))=1; - -end diff --git a/matlab/tfgm/tf_tools/gabormultiplier/plot_ambiguity_function.m b/matlab/tfgm/tf_tools/gabormultiplier/plot_ambiguity_function.m deleted file mode 100644 index 460137560b7d91cf838c3e7ca665d5482ce61c90..0000000000000000000000000000000000000000 --- a/matlab/tfgm/tf_tools/gabormultiplier/plot_ambiguity_function.m +++ /dev/null @@ -1,29 +0,0 @@ -function plot_ambiguity_function(x, dgt , dgt_params, signal_params, dynrange) - -%% plot_ambiguity_function(x, dgt , dgt_params, signal_params, dynrange) - -% This function compute and plot ambiguity function for a given vector -% -% Inputs: -% - x: signal -% -dgt: Gabor transform operator -% - dgt_params: Signals parameters(sig_len, fs) -% - signal_params: Discrete Gabor Transform parameters(hop, nbins,win, ect..) -% - dynrange : dynamic range (optional) -% -% Author: Marina KREME -%% - - - -if nargin==4 - dynrange = 100; -end - -apply_fftshift ='True'; - -x = compute_ambiguity_function(x, dgt ,apply_fftshift); -plotdgtreal(x, dgt_params.hop, dgt_params.nbins, signal_params.fs,'dynrange', dynrange) - - -end diff --git a/matlab/tfgm/tf_tools/gabormultiplier/product_of2_multipliers.m b/matlab/tfgm/tf_tools/gabormultiplier/product_of2_multipliers.m deleted file mode 100644 index 49c49eb72ddfb8fd3a1fc3f31a53f0a1165f16a9..0000000000000000000000000000000000000000 --- a/matlab/tfgm/tf_tools/gabormultiplier/product_of2_multipliers.m +++ /dev/null @@ -1,19 +0,0 @@ -function mul1mul2= product_of2_multipliers(dgt, idgt, mask1, mask2) -% mul1mul2= product_of2_multipliers(direct_stft, adjoint_stft, mask1, mask2) -% -% This function generates the product of two multipliers -% associated with two masks. -% -% Inputs: -% - dgt: short-time Fourier transfrom operator -% - idgt: inverse short-time Fourier transfrom operator -% - mask1, mask2: binary known mask -% Output: -% - mul1mul2, mul2mul1: product of two gabor multipliers- handle function -% - - -mul1mul2 = @(x)idgt(mask1.*dgt(idgt(mask2.*dgt(x)))); - - -end \ No newline at end of file