Continuous Sound and Vibration Analysis: choosebox(varargin) - File Exchange

Code covered by the BSD License

Highlights from
Continuous Sound and Vibration Analysis

choosebox(varargin) CHOOSEBOX Two-listed item selection dialog box.
selectdlg2( cellItems, guiTit... selectdlg2 Generate a scrolled matrix of choices for user selection.
tableGUI(varargin) TABLEGUI - Spreadsheet like display and edition of a generic 2D array. By generic it is
ACdsgn(Fs)
ArgStruct=parseArgs(args,ArgS... Helper function for parsing varargin.
[ ha_chan2, ha_axes2, ha_acce... % config_ha_accels: Configures the axis directions and channels for accelerometers measuring hand arm vibrations
[ wb_chan2, wb_axes2, wb_acce... % config_wb_accels: Configures the axis directions and channels for accelerometers measuring whole body vibrations
[A2, A_str, real_digitsL, rea... % m_round: Rounds an array to a specified number of significant digits or a specified digits place: significant figures, sigfigs
[A2, A_str, real_digitsL, rea... % pow10_round: Round a numeric array to a Specified Digits Place
[A2, A_str, real_digitsL, rea... % sd_round: Rounds an array to a specified number of Significant Digits, significant figures, digits of precision
[Ad]=filter_attenuation(f, fc... % filter_attenuation: Nth octave band filter attenuation
[B, A]=Nth_octdsgn(Fs, Fc, N,...
[B, A]=hand_arm_fil(Fs) % hand_arm_fil: Calculates the hand arm vibrations filter coefficients
[Fsn, p, q, errors]=get_p_q2(...
[LeqA, LeqA8, LeqC, LeqC8, Le... % Leq_all_calc: Calculates levels and peaks for A, C, and linear weighting
[SP, vibs, Fs_SP, Fs_vibs, de... % data_loader2: Loads data specified as sound or vibrations and further specified as data, time increment or sampling rate
[SP2, mean_array2, mean1, arr... % sub_mean: Removes the running average from a time record given a sampling rate and high pass cutoff frequency.
[SP2, mean_array2]=sub_mean(S... % sub_mean: Removes the running average from a time record given a sampling rate and high pass cutoff frequency.
[alpha]=t_alpha(t, nu) % t_alpha: cumulative probability function of the t-distribution,
[arms_w, arms8h_w, Dy_w, Dy_5... % Vibs_calc_hand_arm: Calculates the metrics for the hand arm vibrations
[arms_wb, arms8h_wb, VDV_wb, ... % Vibs_calc_whole_body: Calculates the metrics for the whole body vibrations
[buf2, num_files_not_empty]=s... % splat_cell: Returns a row vector of numbers containng all of the numbers in a cell array
[bz, az]=bessel_digital(Fs, F... % bessel_digital: creates a digital low pass bessel filter of order n
[comb_data_buf2]=combine_acce... % combine_accel_directions_ha: Calculates overall hand arm vibrations acceleration metrics from multiple axis accelerometers.
[comb_data_buf2]=combine_acce... % combine_accel_directions_wb: Calculates overall whole body vibrations acceleration metrics from multiple axis accelerometers.
[fc_out, SP_levels, SP_peak_l... % Nth_oct_time_filter2: Calculates the Nth octave center frequencies, sound levels, peak levels, and time records
[fc_out, SP_levels, SP_peak_l... % fourier_nth_oct_time_filter: Computes fraction octave filters using ffts or hilbert transforms.
[fid, mean_vals, max_num_chan... % print_channel_stats: Print the ststistics for each channel for the impulsive sound table
[fid]=print_overall_stats(fid... % print_overall_stats: Print the overall statistics for the impulsive sound table
[filename_base, ext]=file_ext... % file_extension: separates a filename and path from the file extension
[filtercoeffs, filter_types, ... % whole_Body_Filter: Calculates the filter coefficients for whole body vibrations.
[h, h2, wb_th_array]=plot_snd... % plot_snd_vibs(: plots sound and vibrations data in the time domain
[interval, error]=t_confidenc... % t_confidence_interval: One or two sided confidence interval of standard error with t distribution
[m2]=geospace(a, b, n, flag) % geospace: caculates a geometric sequence or psuedogeometric sequence from a to b with n elements
[ndraw, count, count2, error]... % rand_int: Quckly generates n random integers from a to b integer
[num_accels, accel_num_chan, ... % accel_config: Configures the accelerometer channels given the cell array axes_config
[num_accels, accel_num_chan, ... % config_accels: Configures the accelerometer channels using an input dialog box.
[num_channels_a, num_diff_cha... % table_append_channels: caculates the number of channels of data for making a table
[num_samples_ca, s]=num_impul... % num_impulsive_samples: Counts the number of impulsive noise samples
[nums, matches]=find_nums(str... % find_nums: Finds floating point complex, real, integer, and currency (dollars) numbers in a string
[out]=print_data_loader_confi... % print_data_loader_configuration_table: Prints the variable configuration to a table
[pfq]=genHyper(a,b,z,lnpfq,ix... function [pfq]=genHyper(a,b,z,lnpfq,ix,nsigfig)
[prms]=rms_val(p, dim) % rms_val: Calculates the rms value along a specific dimension
[ptsa, nptsa, rt_stats, other... % data_outliers: Determine the outliers and return descriptive statistics
[res,raw]=fastmcd(data,option... version 22/12/2000, revised 19/01/2001,
[s]=calc_diff_metrics_cont(s,... % calc_diff_metrics_cont: Calculates the differences in metrics between pairs of channels: Impulsive Noise Meter
[snd, vibras_ha, vibras_wb, v... % Continuous_Sound_and_Vibrations_Analysis: Loads time records and timeseries, Calculates metrics for sound and vibrations (hand arm and whole body).
[t_SP_rs, SP_rs]=resample_plo... % resample_plot: Resamples a plot to 10000 data points using the max and%min from each bin
[t_out, T_out, error1_out, er... % inverse cumulative probability function, t-distribution
[varargout]=convert_double(va... % This program converts the inputs into double precision arrays. Then
[y, x, a]=match_height_and_sl... % match_height_and_slopes2: creates a quartic with specifed height and slope at the end points.
[y2, num_settle_pts, settling... % filter_settling_data: Creates data to append to a time record for settling a filter
[y2]=remove_filter_settling_d... % remove_filter_settling_data: removes data added to time records to settle the filter
[yAC, errors]=ACweight_time_f... % ACweight_time_filter: Applies an A or C weighting time filter to a sound recording
[y]=moving(x,m,fun) MOVING will compute moving averages of order n (best taken as odd)
[y_out, b, a]=bessel_antialia... % bessel_antialias: applies an antialiasing digital Bessel filter
[y_out, t_out, b, a]=bessel_d... % bessel_down_sample: applies an antialiasing digital Bessel filter
[y_out, x_out, y_in]=resample... % resample_interp3: resamples using interp1 with additional options
[yh, B, A, errors]=hand_arm_t... % hand_arm_time_fil: Calculates the hand arm vibrations filter coefficients and returns the filtered time record
[yhw, filtercoeffs, filter_ty... % whole_body_time_filter: Calculates the whole body vibrations filter coefficients and returns the filtered time record
[ytick_m, YTickLabel1, ytick_... % fix_YTick: Sets appropriate Y-Tick values for small plots
channel_data_type_selection(n... % channel_data_type_selection
fastlts(x,y,options) version 22/12/2000, revised 19/01/2001, 30/01/2003
h=subaxis(varargin) SUBAXIS Create axes in tiled positions. (just like subplot)
kurtosis2(x, dimension) % This program calculates the kurtosis.
main_sound_and_vibs % Main_snd_and_vibs: Main Program for continuous sound and vibrations analysis
make_summary_cont_stats_table... % make_summary_cont_stats_table: Makes a table of the output of the
nth_freq_band(N, min_f, max_f... % nth_freq_band: Calculates the 1/nth octave frequency bands center, lower, and upper bandedge limits
psuedo_box(h_array)
rmean(y, db_or_lin) % get_stats: Calculates descriptive statistics for the input variable y.
save_a_plot2_audiological(a, ... % save_a_plot2_audiological: Saves current figure to specified image type.
variable_data_type_selection(... % channel_data_type_selection
View all files

from Continuous Sound and Vibration Analysis by Edward Zechmann
This program analyzes sound and vibrations data using metrics for continuous noise and vibrations.

choosebox(varargin)

function [selection,value] = choosebox(varargin)
%CHOOSEBOX  Two-listed item selection dialog box.
%   [SELECTION,OK] = CHOOSEBOX('ListString',S) creates a modal dialog box 
%   which allows you to select a string or multiple strings from a list.
%   Single or multiple strings can be transferred from a base list to a
%   selection list using an arrow-button. Single strings also can be
%   transferred by double-clicking; single or multiple strings are
%   transferred by pressing <CR>.
%   SELECTION is a vector of indices of the selected strings (length 1
%   in the single selection mode). The indices will be in the order of
%   selection from the base list. If a group of multiple strings is
%   selected, its order inside the group will not change, but different
%   groups are ordered by their selection. 
%   OK is 1 if you push the OK button, or 0 if you push the Cancel 
%   button or close the figure. In that case SELECTION will be [],
%   regardless to the actual selection list.
%   Important parameter is 'ChooseMode', see list below.
%
%   Inputs are in parameter,value pairs:
%
%   Parameter       Description
%   'ChooseMode'    string; can be 'pick' or 'copy'.
%                   When set to 'pick', transferred string items from the
%                   base list box are removed. When retransferred, they
%                   again are listed in their initial positions.
%                   When set to 'copy', transferred string items remain in
%                   the base list and can be transferred several times.
%                   default is 'pick'.
%   'ListString'    cell array of strings for the base list box.
%   'SelectionMode' string; can be 'single' or 'multiple'; defaults to
%                   'multiple'.
%   'ListSize'      [width height] of listbox in pixels; defaults
%                   to [160 300].
%   'InitialValue'  vector of indices of which items of the list box
%                   are initially selected; defaults to none [].
%   'Name'          String for the figure's title. Defaults to ''.
%   'PromptString'  string matrix or cell array of strings which appears 
%                   as text above the base list box.  Defaults to {}.
%   'SelectString'  string matrix or cell array of strings which appears
%                   as text above the selection list box. Defaults to {}.
%   'OKString'      string for the OK button; defaults to 'OK'.
%   'CancelString'  string for the Cancel button; defaults to 'Cancel'.
%   'uh'            uicontrol button height, in pixels; default = 18.
%   'fus'           frame/uicontrol spacing, in pixels; default = 8.
%   'ffs'           frame/figure spacing, in pixels; default = 8.
%
%   Example:
%     d = dir;
%     str = {d.name};
%     [s,v] = choosebox('Name','File deletion',...
%                     'PromptString','Files remaining in this directory:',...
%                     'SelectString','Files to delete:',...
%                     'ListString',str)
%
%   inspired by listdlg.m from Mathworks.
%
%   programmed by Peter Wasmeier, Technical University of Munich
%   p.wasmeier@bv.tum.de
%   11-12-03

%   Original listdlg file by
%   T. Krauss, 12/7/95, P.N. Secakusuma, 6/10/97
%   Copyright 1984-2002 The MathWorks, Inc.
%   $Revision: 1.20 $  $Date: 2002/04/09 01:36:06 $

%   Test:  d = dir;[s,v] = choosebox('Name','File deletion','PromptString','Files remaining in this directory:','SelectString','Files to delete:','ListString',{d.name});


error(nargchk(1,inf,nargin))

arrow=[...
     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0
     0     1     1     1     1     1     1     1     1     1     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     1     1     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     0     1     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     0     0     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     0     0     0     1     1     1     1     1     0
     0     1     1     0     0     0     0     0     0     0     0     0     1     1     1     1     0
     0     1     1     0     0     0     0     0     0     0     0     0     0     1     1     1     0
     0     1     1     0     0     0     0     0     0     0     0     0     0     0     1     1     0
     0     1     1     0     0     0     0     0     0     0     0     0     0     1     1     1     0
     0     1     1     0     0     0     0     0     0     0     0     0     1     1     1     1     0
     0     1     1     1     1     1     1     0     0     0     0     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     0     0     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     0     1     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     0     1     1     1     1     1     1     1     1     0
     0     1     1     1     1     1     1     1     1     1     1     1     1     1     1     1     0
     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0];
for i=1:3
   rarrow(:,:,i)=arrow;
   larrow(:,:,i)=fliplr(arrow);
end
clear arrow;

figname = '';
smode = 2;   % (multiple)
cmode = 1;   % remove from left hand side
promptstring = {};
selectstring={};
liststring = [];
listsize = [160 300];
initialvalue = [];
okstring = 'Ok';
cancelstring = 'Cancel';
fus = 8;
ffs = 8;
uh = 18;

if mod(length(varargin),2) ~= 0
    % input args have not com in pairs, woe is me
    error('Arguments to LISTDLG must come param/value in pairs.')
end
for i=1:2:length(varargin)
    switch lower(varargin{i})
     case 'name'
      figname = varargin{i+1};
     case 'promptstring'
      promptstring = varargin{i+1};
     case 'selectstring'
      selectstring = varargin{i+1};
     case 'selectionmode'
      switch lower(varargin{i+1})
       case 'single'
        smode = 1;
       case 'multiple'
        smode = 2;
      end
     case 'choosemode'
      switch lower(varargin{i+1})
       case 'pick'
        cmode = 1;
       case 'copy'
        cmode = 2;
      end
     case 'listsize'
      listsize = varargin{i+1};
     case 'liststring'
      liststring = varargin{i+1};
     case 'initialvalue'
      initialvalue = varargin{i+1};
     case 'uh'
      uh = varargin{i+1};
     case 'fus'
      fus = varargin{i+1};
     case 'ffs'
      ffs = varargin{i+1};
     case 'okstring'
      okstring = varargin{i+1};
     case 'cancelstring'
      cancelstring = varargin{i+1};
     otherwise
      error(['Unknown parameter name passed to LISTDLG.  Name was ' varargin{i}])
    end
end

if isstr(promptstring)
    promptstring = cellstr(promptstring); 
end

if isstr(selectstring)
    selectstring = cellstr(selectstring); 
end

if isempty(initialvalue)
    initialvalue = 1;
end

if isempty(liststring)
    error('ListString parameter is required.')
end

ex = get(0,'defaultuicontrolfontsize')*1.7;  % height extent per line of uicontrol text (approx)

fp = get(0,'defaultfigureposition');
w = 4*fus +2*ffs+2*listsize(1)+50;
h = 2*ffs+7*fus+ex*length(promptstring)+listsize(2)+2*uh;
fp = [fp(1) fp(2)+fp(4)-h w h];  % keep upper left corner fixed

fig_props = { ...
    'name'                   figname ...
    'resize'                 'off' ...
    'numbertitle'            'off' ...
    'menubar'                'none' ...
    'windowstyle'            'modal' ...
    'visible'                'off' ...
    'createfcn'              ''    ...
    'position'               fp   ...
    'closerequestfcn'        'delete(gcbf)' ...
            };

ad.fromstring=cellstr(liststring);
ad.tostring='';
ad.pos_left=[1:size(ad.fromstring,2)]';
ad.pos_right=[];
ad.value=0;
ad.cmode=cmode;
setappdata(0,'ListDialogAppData',ad)

fig = figure(fig_props{:});

uicontrol('style','frame',...
          'position',[1 1 fp([3 4])])
uicontrol('style','frame',...
          'position',[ffs ffs 2*fus+listsize(1) 2*fus+uh])
uicontrol('style','frame',...
          'position',[ffs+2*fus+50+listsize(1) ffs 2*fus+listsize(1) 2*fus+uh])
uicontrol('style','frame',...
          'position',[ffs ffs+3*fus+uh 2*fus+listsize(1) ...
                    listsize(2)+3*fus+ex*length(promptstring)+(uh+fus)*(smode==2)])
uicontrol('style','frame',...
          'position',[ffs+2*fus+50+listsize(1) ffs+3*fus+uh 2*fus+listsize(1) ...
                    listsize(2)+3*fus+ex*length(promptstring)+(uh+fus)*(smode==2)])

if length(promptstring)>0
    prompt_text = uicontrol('style','text','string',promptstring,...
                            'horizontalalignment','left','units','pixels',...
                            'position',[ffs+fus fp(4)-(ffs+fus+ex*length(promptstring)) ...
                    listsize(1) ex*length(promptstring)]);
end
if length(selectstring)>0
    select_text = uicontrol('style','text','string',selectstring,...
                            'horizontalalignment','left','units','pixels',...
                            'position',[ffs+3*fus+listsize(1)+50 fp(4)-(ffs+fus+ex*length(promptstring)) ...
                    listsize(1) ex*length(selectstring)]);
end

btn_wid = listsize(1);

leftbox = uicontrol('style','listbox',...
                    'position',[ffs+fus ffs+uh+4*fus listsize(1) listsize(2)+25],...
                    'string',ad.fromstring,...
                    'backgroundcolor','w',...
                    'max',2,...
                    'tag','leftbox',...
                    'value',initialvalue, ...
                    'callback',{@doFromboxClick});
         
rightbox = uicontrol('style','listbox',...
                    'position',[ffs+3*fus+listsize(1)+50 ffs+uh+4*fus listsize(1) listsize(2)+25],...
                    'string',ad.tostring,...
                    'backgroundcolor','w',...
                    'max',2,...
                    'tag','rightbox',...
                    'value',[], ...
                    'callback',{@doToboxClick});

ok_btn = uicontrol('style','pushbutton',...
                   'string',okstring,...
                   'position',[ffs+fus ffs+fus btn_wid uh],...
                   'callback',{@doOK});

cancel_btn = uicontrol('style','pushbutton',...
                       'string',cancelstring,...
                       'position',[ffs+3*fus+btn_wid+50 ffs+fus btn_wid uh],...
                       'callback',{@doCancel});

toright_btn = uicontrol('style','pushbutton',...
                       'position',[ffs+2*fus+10+listsize(1) ffs+uh+4*fus+(smode==2)*(fus+uh)+listsize(2)/2-25 30 30],...
                       'cdata',rarrow,...
                       'callback',{@doRight});

toleft_btn = uicontrol('style','pushbutton',...
                       'position',[ffs+2*fus+10+listsize(1) ffs+uh+4*fus+(smode==2)*(fus+uh)+listsize(2)/2+25 30 30],...
                       'cdata',larrow,...
                       'callback',{@doLeft});


try
    set(fig, 'visible','on');
    uiwait(fig);
catch
    if ishandle(fig)
        delete(fig)
    end
end

if isappdata(0,'ListDialogAppData')
    ad = getappdata(0,'ListDialogAppData');
    selection = ad.pos_right;
    value = ad.value;
    rmappdata(0,'ListDialogAppData')
else
    % figure was deleted
    selection = [];
    value = 0;
end

function doOK(varargin)
ad=getappdata(0,'ListDialogAppData');
ad.value = 1;
setappdata(0,'ListDialogAppData',ad)
delete(gcbf);

function doCancel(varargin)
ad.value = 0;
ad.pos_right = [];
setappdata(0,'ListDialogAppData',ad)
delete(gcbf);

function doFromboxClick(varargin)
% if this is a doubleclick, doOK
if strcmp(get(gcbf,'SelectionType'),'open')
    doRight;
end

function doToboxClick(varargin)
% if this is a doubleclick, doOK
if strcmp(get(gcbf,'SelectionType'),'open')
    doLeft;
end

function doRight(varargin)
ad=getappdata(0,'ListDialogAppData');
leftbox=findobj('Tag','leftbox');
rightbox=findobj('Tag','rightbox');
selection=get(leftbox,'Value');
ad.pos_right=[ad.pos_right;ad.pos_left(selection)];
ad.tostring=[ad.tostring ad.fromstring(selection)];
if ad.cmode==1 % remove selected items
    ad.pos_left(selection)=[];
    ad.fromstring(selection)=[];
end
setappdata(0,'ListDialogAppData',ad)
set(leftbox,'String',ad.fromstring,'Value',[]);
set(rightbox,'String',ad.tostring,'Value',[]);

function doLeft(varargin)
ad=getappdata(0,'ListDialogAppData');
leftbox=findobj('Tag','leftbox');
rightbox=findobj('Tag','rightbox');
selection=get(rightbox,'Value');
if ad.cmode==1 % if selected items had been removed
    % Sort in the items from right hand side again
    for i=1:length(selection)
        next_item=min(find(ad.pos_left>ad.pos_right(selection(i))));
        if isempty(next_item)   % Inserting item is last one
            ad.pos_left(end+1)=ad.pos_right(selection(i));
            ad.fromstring(end+1)=ad.tostring(selection(i));
        elseif next_item==ad.pos_left(1)    % Inserting item is first one
            ad.pos_left=[ad.pos_right(selection(i));ad.pos_left];
            ad.fromstring=[ad.tostring(selection(i)) ad.fromstring];
        else                    % Inserting item is anywhere in the middle
            ad.pos_left=[ad.pos_left(1:next_item-1);ad.pos_right(selection(i));ad.pos_left(next_item:end)];
            ad.fromstring=[ad.fromstring(1:next_item-1) ad.tostring(selection(i)) ad.fromstring(next_item:end)];
        end
    end
end
ad.pos_left=ad.pos_left(:);     % Make sure it is a nx1-vector
ad.pos_right(selection)=[];
ad.tostring(selection)=[];
setappdata(0,'ListDialogAppData',ad)
set(leftbox,'String',ad.fromstring,'Value',[]);
set(rightbox,'String',ad.tostring,'Value',[]);

Highlights from Continuous Sound and Vibration Analysis

Highlights from
Continuous Sound and Vibration Analysis