Mercurial > hg > aimmat
changeset 3:20ada0af3d7d
various bugfixes and changed copywrite message
line wrap: on
line diff
--- a/aim-mat/gui/adaptedspecgramdemo.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/adaptedspecgramdemo.m Tue Aug 16 14:36:30 2011 +0100 @@ -23,7 +23,7 @@ % % % adapted by Stefan Bleeck 5.3.2003 to give back the selected time. -% Stefan@Bleeck.de +% bleeck@gmail.com %%%%%%%%%%%%%%%%%%%%%%%%%% % inserted by S.Bleeck
--- a/aim-mat/gui/aim.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,9 +8,14 @@ % load the signal file and all files, that are in this directory % set the project variables accordingly. % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleeck@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function result=aim(varargin)
--- a/aim-mat/gui/aim_define_plot_areas.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_define_plot_areas.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,14 @@ % load the signal file and all files, that are in this directory % set the project variables accordingly. % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function [myaxes1,myaxes2,myaxes3,myaxes4]=aim_define_plot_areas(handles,relative_axis,options)
--- a/aim-mat/gui/aim_deletefile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_deletefile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,14 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=aim_deletefile(handles,type)
--- a/aim-mat/gui/aim_display_versions.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_display_versions.m Tue Aug 16 14:36:30 2011 +0100 @@ -3,9 +3,14 @@ % INPUT VALUES: % RETURN VALUE: % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function aim_display_versions(handles)
--- a/aim-mat/gui/aim_displayaboutbox.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_displayaboutbox.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,14 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function retfig=aim_displayaboutbox(handles)
--- a/aim-mat/gui/aim_exchange_sound_file.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_exchange_sound_file.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,9 +7,14 @@ % % changes the soundfile and updates % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=aim_exchange_sound_file(handles,signame)
--- a/aim-mat/gui/aim_getcurrent_module.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_getcurrent_module.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,9 +8,14 @@ % helping function, that gives back the current selected module for a given % column number % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + +
--- a/aim-mat/gui/aim_getwindowtitle.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_getwindowtitle.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,9 +7,13 @@ % % plots the current graphic in the GUI or in the current windowhandle % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function namestr=aim_getwindowtitle(handles)
--- a/aim-mat/gui/aim_gui.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_gui.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,9 +6,14 @@ % RETURN VALUE: % with a parameter file, the result of the processing, otherwise none % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function varargout = aim(varargin)
--- a/aim-mat/gui/aim_loadcurrentstate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_loadcurrentstate.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,14 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=aim_loadcurrentstate(handles)
--- a/aim-mat/gui/aim_loadfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_loadfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,14 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function [loadobject,type,options]=aim_loadfile(name)
--- a/aim-mat/gui/aim_loadpersonal_defaults.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_loadpersonal_defaults.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,14 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=aim_loadpersonal_defaults(handles)
--- a/aim-mat/gui/aim_loadproject.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_loadproject.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,13 +7,18 @@ % load the signal file and all files, that are in this directory % set the project variables accordingly. % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org -function handles=aim_loadproject(handles,signame); + + +function handles=aim_loadproject(handles) signalname=handles.info.signalname; @@ -33,7 +38,7 @@ if exist(handles.info.parameterfilename,'file') workdir=pwd; cd(handles.info.directoryname); - [a,parfile,c,d]=fileparts(handles.info.parameterfilename); + [~,parfile,~]=fileparts(handles.info.parameterfilename); clear all_options; new_options=handles.all_options; @@ -61,7 +66,8 @@ was_conflict=1; end -if exist(signalname,'var') +try +% if exist(signalname,'var') [sig,type,sigoptions]=aim_loadfile(signalname); handles.data.signal=sig; if ~isempty(sigoptions) @@ -83,9 +89,10 @@ end % put the original signal in its place: -else +% else +catch % cant continue without signal! - str=sprintf('No signal-object found in the project %s',signalname); + str=sprintf('Problem while executing parameter file %s',signalname); er=errordlg(str,'File Error'); set(er,'WindowStyle','modal'); handles.error=1;
--- a/aim-mat/gui/aim_loadsignalfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_loadsignalfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,9 +7,14 @@ % load the signal file and all files, that are in this directory % set the project variables accordingly. % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=aim_loadsignalfile(handles,signalwavename)
--- a/aim-mat/gui/aim_mixstruct.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_mixstruct.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,9 +9,14 @@ % from add_struct % works recursive up to the second layer % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + +
--- a/aim-mat/gui/aim_ng.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_ng.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,8 +11,12 @@ % by the parameters in the file % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function result=aim_ng(paramfile) @@ -26,7 +30,7 @@ end try eval(name); % evaluate the parameter file. Afterwards we have a set of parameters (hopefully in all_options) - cd olddir; + cd(olddir); catch str=sprintf('The parameter file %s.m produced errors!',name); er=errordlg(str,'File Error');
--- a/aim-mat/gui/aim_replotgraphic.asv Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,600 +0,0 @@ -% procedure for 'aim-mat' -%function handles=replotgraphic(handles,options) -% -% INPUT VALUES: -% handles -% options: fields indicate, which graphic is to plot: -% withtime=options.withtime; -% withfre=options.withfre; -% withsignal=options.withsignal; -% figure_handle=options.figure_handle; -% RETURN VALUE: -% updated handles -% -% plots the current graphic in the GUI or in the current windowhandle -% -% (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim - - -function handles=aim_replotgraphic(handles,options) - -withtime=options.withtime; -withfre=options.withfre; -withsignal=options.withsignal; -figure_handle=options.figure_handle; - -%TCW AIM2006 - added hand scaling so that when on the slider scale value is absolutely -%absolute. This is set in init_aim_gui (can we find anywhere better to do -%this?) -hand_scaling=handles.hand_scaling; - -if isfield(options,'display_single_channel') - do_single_channel=1; -else - do_single_channel=0; - options.display_single_channel=1; % in case, the frame has only one channel -end - -% where -current_plot=handles.info.current_plot; -if ~ishandle(figure_handle) - new_fig=figure; - handles.info.current_figure=new_fig; -end - -figure(figure_handle); -set(gca,'Position',[0.005 0.1 0.93 0.9]); -cur_axis=gca; - -win=get(cur_axis,'Parent'); -set(win,'NumberTitle','off'); -namestr=aim_getwindowtitle(handles); % get the title of the current window -set(win,'Name',namestr); - -relative_axis=get(gca,'Position'); % the relative axis for the plot. Everything is plotted inside -% define up to four graphic areas for the different plots inside the axis -% given in 'relative_axis' -[myaxes1,myaxes2,myaxes3,myaxes4]=aim_define_plot_areas(handles,relative_axis,options); -% 1: sig - -% find out about the signal, length and duration -sig=handles.data.signal; -% len=getlength(sig); - - -if current_plot>=6 - sai=handles.data.sai; - if handles.with_graphic==0 - current_frame_number=handles.current_frame_nr; - else - current_frame_number=round(slidereditcontrol_get_value(handles.currentslidereditcombi)); - end - if current_frame_number<=length(sai) && current_frame_number>0 - start_time=getcurrentframestarttime(sai{current_frame_number}); - else - start_time=getminimumtime(sig); - current_frame_number=1; % error! - handles.currentslidereditcombi=slidereditcontrol_set_value(handles.currentslidereditcombi,length(sai)); - end - duration=getlength(sai{current_frame_number}); -else - start_time=slidereditcontrol_get_value(handles.currentslidereditcombi); - duration=slidereditcontrol_get_value(handles.slideredit_duration); -end -stop_time=start_time+duration; - -% in case of auditory image, we simply want the last part of the signal: -if stop_time>getmaximumtime(sig); - start_time=getmaximumtime(sig)-duration; - stop_time=getmaximumtime(sig); -end -if start_time < getminimumtime(sig) - start_time =getminimumtime(sig); -end -% sig=getpart(sig,start_time,stop_time); - - -% The signal window -if withsignal - set(myaxes1,'Visible','on'); - axes(myaxes1); - % sig=getpart(sig,start_time,stop_time); - if strcmp(handles.screen_modus,'paper') - h=plot(sig,[start_time stop_time],myaxes1); - set(h,'Color','k'); - set(h,'LineWidth',1.5); - else - plot(sig,[start_time stop_time],myaxes1); - end - if min(sig)==0 % for niceness: Clicktrains are cut away otherwise - ax=axis; - ax(3)=-0.1; - axis(ax); - end - title('');set(gca,'XTick',[]);set(gca,'YTick',[]);xlabel('');ylabel(''); -end - - - -% from here: plot in axes2: -% axes(myaxes2); -set(myaxes2,'XDir','normal') -set(myaxes2,'XScale','lin'); -if handles.with_graphic==1 - current_scale=slidereditcontrol_get_value(handles.slideredit_scale); -else - current_scale=options.data_scale; -end - -switch current_plot - case {-1,0,1} % signal - set(myaxes2,'Visible','off'); - case 2% pcp - sig=handles.data.pcp; -% current_frame=getpart(sig,start_time,stop_time); - ca=plot(sig,[start_time stop_time]); - set(gca,'YTick',[]); - ax=axis; - ax(3)=ax(3)/current_scale; - ax(4)=ax(4)/current_scale; - axis(ax); - title('');xlabel('');ylabel(''); - case 3% bmm - current_frame=handles.data.bmm; - str=get_graphics_options(handles,handles.info.current_bmm_module); - str.minimum_time_interval=start_time; - str.maximum_time_interval=stop_time; - nrchan=getnrchannels(handles.data.bmm); - if do_single_channel || nrchan==1 - sig=getsinglechannel(current_frame,options.display_single_channel); -% sig=getpart(sig,start_time,stop_time); - ymin=min(current_frame)*1.1;ymax=max(current_frame)*1.1; - plot(sig,[start_time stop_time ymin ymax]); - set(gca,'Ylim',[ymin,ymax]);set(gca,'YAxisLocation','right'); - xlabel('time (ms)');ylabel('amplitude');title(''); - else - hand=plot(current_frame,str); - zmin=min(current_frame)/current_scale;zmax=max(current_frame)/current_scale; - - %set(gca,'Zlim',[zmin,zmax]); - - %TCW AIM 2006 - if hand_scaling == 1 - set(gca,'Zlim',[0,1/current_scale]); - else - %TCW AIM 2006 to get this frequency axis correct, this lower - %limit of the z axis really needs to be zero - set(gca,'Zlim',[0,zmax]); - end - - xlabel('time (ms)');ylabel('Frequency (kHz)');title(''); - if strcmp(handles.screen_modus,'paper') - par=get(hand,'parent'); - set(par,'FontSize',12);xlab=get(par,'xlabel');set(xlab,'FontSize',12);ylab=get(par,'ylabel');set(ylab,'FontSize',12); - end - end - case 4% nap - current_frame=handles.data.nap; - str=get_graphics_options(handles,handles.info.current_nap_module); - str.minimum_time_interval=start_time; - str.maximum_time_interval=stop_time; - nrchan=getnrchannels(current_frame); - if do_single_channel || nrchan==1 - sig=getsinglechannel(current_frame,options.display_single_channel); -% sig=getpart(sig,start_time,stop_time); - ymin=0; - ymax=max(current_frame)*1.1; - plot(sig,[start_time stop_time]); - set(gca,'Ylim',[ymin,ymax]);set(gca,'YAxisLocation','right'); - xlabel('time (ms)');ylabel('amplitude');title(''); - else - hand=plot(current_frame,str); - zmin=0;zmax=max(current_frame)/current_scale; - - %TCW AIM 2006 - if hand_scaling == 1 - set(gca,'Zlim',[zmin,1/current_scale]); - else - set(gca,'Zlim',[zmin,zmax]); - end - - %set(gca,'Zlim',[zmin,zmax]); - - - xlabel('time (ms)');ylabel('Frequency (kHz)');title(''); - - if strcmp(handles.screen_modus,'paper') - par=get(hand,'parent'); - set(par,'FontSize',12);xlab=get(par,'xlabel');set(xlab,'FontSize',12);ylab=get(par,'ylabel');set(ylab,'FontSize',12); - end - end - case 5% strobes - current_frame=handles.data.nap; - strobes=handles.data.strobes; - str=get_graphics_options(handles,handles.info.current_strobes_module); - str.minimum_time_interval=start_time; - str.maximum_time_interval=stop_time; - nrchan=getnrchannels(current_frame); - temp_scale=1; % for debugging - % make the dots of a size of constant ratio to the window size - axpos=get(gcf,'Position'); - marker_dot_size=axpos(3)/168; - if do_single_channel || nrchan==1 % only one channel - - chan_nr=options.display_single_channel; -% chan_nr = [chan_nr-2 chan_nr-1 chan_nr chan_nr+1]; -% chan_nr = [chan_nr-1 chan_nr]; - chan_nr = chan_nr; - chan_nr=chan_nr(find(chan_nr>0 & chan_nr < getnrchannels(current_frame))); - options.display_single_channel=chan_nr; - - plot_single_channel_strobes(current_frame,options,handles,str,strobes,current_scale,duration); - else %several channels - hand=plot(current_frame/temp_scale,str);hold on - xlabel('time (ms)');ylabel('Frequency (kHz)');title(''); - colscale=length(hsv)/nrchan; - for i=1:nrchan - if isfield(strobes,'grouped') - nr_sources=size(strobes.cross_strobes{1}.source_cross_channel_value,2); - cols=hsv; - % first plot the originals -% herestrobes=strobes.original{i}; -% nr_here=length(herestrobes.strobes); -% col=cols(round(i*colscale),:); -% xoffs=-0.001; -% for j=1:nr_here -% time=herestrobes.strobes(j); -% if time>start_time & time<start_time+duration -% val=herestrobes.strobe_vals(j);%/current_scale*max(current_frame); -% plot3(time2bin(sig,time+xoffs),i,val,'Marker','o','MarkerFaceColor',col,'MarkerEdgeColor',col,'MarkerSize',3); -% end -% end - - % then plot all the different connections - herestrobesproces=strobes.cross_strobes{i}; - herestrobes=herestrobesproces.strobe_times; - col=cols(round(i*colscale),:); - cursize=1; - nr_here=length(herestrobes); - for j=1:nr_here - count=0; - for k=1:nr_sources - target_chan_act=herestrobesproces.source_cross_channel_value(j,k); - if target_chan_act>1 - colnr=round(k*length(hsv)/nr_sources); - colnr=min(colnr,length(hsv)); - colnr=max(colnr,1); - col=cols(colnr,:); - cursize=target_chan_act/100; - else - continue - end - time=herestrobes(j); - if time>start_time & time<start_time+duration - offx=(stop_time-start_time)/80*count; - count=count+1; - val=herestrobesproces.strobe_vals(j)/temp_scale;%/current_scale*max(current_frame); - if strcmp(handles.screen_modus,'paper') - p=plot3(time2bin(sig,time+offx),i,val,'Marker','o','MarkerSize',4,'MarkerFaceColor','k','MarkerEdgeColor','k','LineWidth',1); - else - plot3(time2bin(sig,time+offx),i,val,'Marker','o','MarkerFaceColor','r','MarkerEdgeColor','w','MarkerSize',cursize); - end - end - end - end - else % only one set of strobes - herestrobes=strobes{i}; - nr_here=length(herestrobes.strobes); -% marker_dot_size=4; - for j=1:nr_here - time=herestrobes.strobes(j); - if time>start_time & time<start_time+duration - % if j<=length(herestrobes.strobe_vals) - val=herestrobes.strobe_vals(j);%/current_scale*max(current_frame); - if strcmp(handles.screen_modus,'paper') - p=plot3(time2bin(sig,time-start_time),i,val/temp_scale,'Marker','o','MarkerSize',4,'MarkerFaceColor','k','MarkerEdgeColor','k','LineWidth',1); - else - plot3(time2bin(sig,time-start_time),i,val,'Marker','o','MarkerSize',marker_dot_size,'MarkerFaceColor','r','MarkerEdgeColor','r','LineWidth',1); - end - % end - end - end - end % one or two strobe sources - end - zmin=0;zmax=max(current_frame)/current_scale; - - % TCW AIM 2006 - if hand_scaling == 1 - set(gca,'Zlim',[zmin,1/current_scale]); - else - set(gca,'Zlim',[zmin,zmax]); - end - - %set(gca,'Zlim',[zmin,zmax]); - if strcmp(handles.screen_modus,'paper') - par=get(hand,'parent'); - set(par,'FontSize',12);xlab=get(par,'xlabel');set(xlab,'FontSize',12);ylab=get(par,'ylabel');set(ylab,'FontSize',12); - end - end - hold off - case 6% sai - sai=handles.data.sai; - current_frame=sai{current_frame_number}; - allmax=getallmaxvalue(current_frame); - str=get_graphics_options(handles,handles.info.current_sai_module); - str.extra_options=getfield(handles.all_options.sai,handles.info.current_sai_module); - nrchan=getnrchannels(current_frame); - if do_single_channel || nrchan==1 - current_frame=current_frame; - sig=getsinglechannel(current_frame,options.display_single_channel); - h=plot(sig,str);set(gca,'YAxisLocation','right'); - set(gca,'YLim',[0 allmax*1.1]); - else - hand=plot(current_frame,str); - %%% TCW - AIM2006 - %zmin=0;zmax=50/current_scale; - zmin=0;zmax=(max(current_frame)+eps*1000)/current_scale; - %%% - - %TCW AIM 2006 - if hand_scaling == 1 - set(gca,'Zlim',[zmin,1/current_scale]); - else - set(gca,'Zlim',[zmin,zmax]); - end - - %set(gca,'Zlim',[zmin,zmax]); - if strcmp(handles.screen_modus,'paper') - par=get(hand,'parent'); - set(par,'FontSize',12);xlab=get(par,'xlabel');set(xlab,'FontSize',12);ylab=get(par,'ylabel');set(ylab,'FontSize',12); - end - end - xlabel('time interval (ms)');ylabel('Frequency (kHz)');title(''); - case 7% user module - usermodule=handles.data.usermodule; - nr_frames=length(usermodule); - current_frame_number=round(slidereditcontrol_get_value(handles.currentslidereditcombi)); - - current_data=handles.data.usermodule; - first_data=current_data{1}; - if isobject(first_data) && isoftype(first_data,'frame') - current_frame=current_data{current_frame_number}; - else - current_frame=sai{current_frame_number}; - end - plotting_frame=current_frame*current_scale; - - generating_module_string=get(handles.listbox6,'String'); - generating_module=generating_module_string(get(handles.listbox6,'Value')); - generating_module=generating_module{1}; - generating_functionline=['handles.all_options.usermodule.' generating_module '.displayfunction']; - eval(sprintf('display_function=%s;',generating_functionline')); - if strcmp(display_function,'') - str=get_graphics_options(handles,handles.info.calculated_usermodule_module); - plot(plotting_frame,str); - xlabel('time interval (ms)');ylabel('Frequency (kHz)');title(''); - else - generating_options_line=['options=handles.all_options.usermodule.' generating_module ';']; - eval(generating_options_line); - options.handles=handles; - plotstr=sprintf('%s(usermodule,options,%d)',display_function,current_frame_number); - eval(plotstr); - end -end - -% now do the axes 3 and 4 (the two profiles) -if current_plot>1 && withtime -% axes(myaxes2); - set(myaxes2,'XTick',[]); - set(get(myaxes2,'xlabel'),'string',''); - -% axes(myaxes3); -% cla - if current_plot<6 - str.minimum_time_interval=start_time; - str.maximum_time_interval=start_time+duration; - str.is_log=0; - str.time_reversed=0; - str.time_profile_scale=-1; % decide on your own! - else - if current_plot==6 - str=get_graphics_options(handles,handles.info.calculated_sai_module); - str.time_profile_scale=-1; %variable scaling - % TCW AIM2006 WAS: - %str.time_profile_scale=1; %fixed scaling - else - str=get_graphics_options(handles,handles.info.calculated_usermodule_module); - end - end - hand=plottemporalprofile(current_frame,str,myaxes3); - if current_plot<6 - set(get(myaxes3,'xlabel'),'string','time (ms)'); -% xlabel('time (ms)') - elseif getxaxis(current_frame)=='0' - set(get(myaxes3,'xlabel'),'string','Time-Interval, Peak-Frequency product, \ith'); -% xlabel('Time-Interval, Peak-Frequency product, \ith') %brute force method change by Rich - elseif strcmp(getxaxis(current_frame),'harmonic ratio') - set(get(myaxes3,'xlabel'),'string','harmonic ratio'); -% xlabel('harmonic ratio') %brute force method change by Stefan we must do something about this!! - else - set(get(myaxes3,'xlabel'),'string','time interval (ms)'); -% xlabel('time interval (ms)') - end - title(''); - set(gca,'XMinorTick','off'); - if strcmp(handles.screen_modus,'paper') - set(hand,'Color','k'); - set(hand,'LineWidth',1.5); - par=get(hand,'parent'); - set(par,'FontSize',12); - xlab=get(par,'xlabel'); - set(xlab,'FontSize',12); - end - -else - set(myaxes2,'TickLength',[0.01,0.01]); -end - -if current_plot>1 && withfre - set(myaxes2,'YTick',[]); - set(get(myaxes2,'ylabel'),'string',''); -% ylabel(''); -% axes(myaxes4); -% cla - - - if current_plot<6 - str.minimum_time_interval=start_time; - str.maximum_time_interval=start_time+duration; - str.frequency_profile_scale=-1; % decide on your own according to momentan state - else - str.frequency_profile_scale=1; % fixed scaling - - end - - if getxaxis(current_frame)=='0' - hand=plotfrequencyprofile(current_frame,str,myaxes4); - set(get(myaxes4,'xlabel'),'string','Mellin variable, \it{c/2\pi'); -% xlabel('Mellin variable, \it{c/2\pi}'); %brute force change by Rich - str.shrink_range=-1; - elseif strcmp(getxaxis(current_frame),'harmonic ratio') - str.frequency_profile_scale=-1; - hand=plotfrequencyprofile(current_frame,str,myaxes4); - set(get(myaxes4,'xlabel'),'string','scale variable'); -% xlabel('scale variable'); % - else - str.shrink_range=1/0.85; - hand=plotfrequencyprofile(current_frame,str,myaxes4); - set(get(myaxes4,'xlabel'),'string','Frequency (kHz)'); -% xlabel('Frequency (kHz)'); - end - if strcmp(handles.screen_modus,'paper') - set(hand,'Color','k'); - set(hand,'LineWidth',1.5); - par=get(hand,'parent'); - set(par,'FontSize',12); - xlab=get(par,'xlabel'); - set(xlab,'FontSize',12); - % set(get(hand, - end - -else - set(myaxes2,'TickLength',[0.01,0.01]); -end - -if isfield(handles.info,'domovie') % no more actions! - return -end - - -% handles potential other windows -if isfield(handles.info,'children') && ~isfield(handles.info,'iscallfromchild') && current_plot <7 - % first check, whether the child is still there: - if ~ishandle(handles.info.children.single_channel.windowhandle) - rmfield(handles.info,'children'); - return - end - channr=single_channel_gui('getchannelnumber'); - handles.info.children.single_channel.channelnumber=channr; - single_channel_gui(handles); - -end - - - - -function str=get_graphics_options(handles,module_name) -% returns the graphic options, if they exist - -str=[]; -if isfield(handles.all_options.graphics,module_name) - str=getfield(handles.all_options.graphics,module_name); -else - % disp(sprintf('graphics part for module %s not found. Check version',module_name)); - switch handles.info.current_plot - case {1,2,3,4,5} - opstr.is_log=0; - opstr.time_reversed=0; - opstr.plotstyle='waterfall'; - opstr.plotcolor='k'; - opstr.display_time=0; - case {6} - opstr.is_log=1; - opstr.time_reversed=1; - opstr.plotstyle='waterfall'; - opstr.plotcolor='k'; - opstr.minimum_time=0.001; - opstr.maximum_time=0.032; - opstr.display_time=0; - end -end - - -function plot_single_channel_strobes(current_frame,options,handles,str,strobes,current_scale,duration) -start_time=str.minimum_time_interval; -stop_time=str.maximum_time_interval; - -nr_channels=length(options.display_single_channel); - -count=0; -for channr=options.display_single_channel - count=count+1; - sig=getsinglechannel(current_frame,channr); - sigpart=getpart(sig,start_time,stop_time); - ymin=0;ymax=max(current_frame)*1.2; - if strcmp(handles.screen_modus,'paper') -% hand=plot(sigpart,[getminimumtime(sigpart),getminimumtime(sigpart)+getlength(sigpart)]); - hand=plot(sig,[start_time stop_time]); - set(hand,'Color','k'); - set(hand,'LineWidth',1.5); - ylabel('NAP amplitude'); - par=get(hand,'parent'); - set(par,'FontSize',12); - xlab=get(par,'xlabel'); - set(xlab,'FontSize',12); - set(gca,'Ytick',[]); - set(gca,'YAxisLocation','right'); - else - switch count - case 1 - color='b'; - case 2 - color='m'; - end - plot(sigpart,[getminimumtime(sigpart),getminimumtime(sigpart)+getlength(sigpart)],color); - end - hold on - - athres=handles.data.thresholds;%*current_scale/getallmaxvalue(current_frame); - thres=getsinglechannel(athres,channr); - thres=getpart(thres,start_time,stop_time); - hand=plot(thres,[start_time stop_time 0 max(current_frame)/current_scale],'g'); - if strcmp(handles.screen_modus,'paper') - set(hand,'Color','k'); - set(hand,'LineWidth',1.5); - par=get(hand,'parent'); - set(par,'FontSize',12); - xlab=get(par,'xlabel'); - ylabel('NAP amplitude'); - set(xlab,'FontSize',12); - else - xlabel('time (ms)');ylabel('amplitude');title('');set(gca,'YAxisLocation','right'); - end - herestrobes=strobes{channr}; - nr_here=length(herestrobes.strobes); - for j=1:nr_here - time=herestrobes.strobes(j); - if time>start_time & time<start_time+duration - val=herestrobes.strobe_vals(j);%*current_scale/max(current_frame); - if strcmp(handles.screen_modus,'paper') - p=plot(time2bin(thres,time),val,'Marker','o','MarkerSize',8,'MarkerFaceColor','k','MarkerEdgeColor','k','LineWidth',1); - else - %plot(time2bin(thres,time),val,'.r'); - plot(time.*1000, val, 'r.'); - end - end - end - set(gca,'Ylim',[ymin,ymax]); -end \ No newline at end of file
--- a/aim-mat/gui/aim_replotgraphic.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_replotgraphic.m Tue Aug 16 14:36:30 2011 +0100 @@ -12,9 +12,14 @@ % updated handles % % plots the current graphic in the GUI or in the current windowhandle +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=aim_replotgraphic(handles,options)
--- a/aim-mat/gui/aim_resize_function.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_resize_function.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,12 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function aim_resize_function(obj,eventdata,handles)
--- a/aim-mat/gui/aim_savecurrentstate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_savecurrentstate.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,14 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function aim_savecurrentstate(handles) % save some crucial information to a file
--- a/aim-mat/gui/aim_savefile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_savefile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,13 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function aim_savefile(handles,fr,name,type,modul,options,all_options)
--- a/aim-mat/gui/aim_saveparameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_saveparameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,9 +9,12 @@ % RETURN VALUE: % handles: the updated handles % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function handles=aim_saveparameters(handles,filename,all_parameters)
--- a/aim-mat/gui/aim_set_current_slider.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_set_current_slider.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,9 +11,12 @@ % it works in most circumstances, however not very elegant... % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org
--- a/aim-mat/gui/aim_updatecheckboxes.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_updatecheckboxes.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,13 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=aim_updatecheckboxes(hObject, eventdata, handles,nr);
--- a/aim-mat/gui/aim_updategui.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/aim_updategui.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=aim_updategui(handles)
--- a/aim-mat/gui/createparameterfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/createparameterfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=createparameterfile(handles,paramname)
--- a/aim-mat/gui/do_aim_autoscale.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/do_aim_autoscale.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,13 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=do_aim_autoscale(handles)
--- a/aim-mat/gui/do_aim_calculate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/do_aim_calculate.m Tue Aug 16 14:36:30 2011 +0100 @@ -10,9 +10,12 @@ % this function does all relevant calculation (can be called with or % without graphic. % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org
--- a/aim-mat/gui/do_aim_updateparameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/do_aim_updateparameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=do_aim_updateparameters(handles)
--- a/aim-mat/gui/edit_duration.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/edit_duration.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=edit_duration(hObject, eventdata, handles)
--- a/aim-mat/gui/edit_scale.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/edit_scale.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,9 +4,12 @@ % % RETURN VALUE: % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function handles=edit_scale(hObject, eventdata, handles)
--- a/aim-mat/gui/edit_start.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/edit_start.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=edit_start(hObject, eventdata, handles)
--- a/aim-mat/gui/generate_new_movie_name.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/generate_new_movie_name.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,11 +6,13 @@ % RETURN VALUE: % a new unique movie name % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function new_name=generate_new_movie_name(handles)
--- a/aim-mat/gui/init_aim_gui.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/init_aim_gui.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,9 +8,13 @@ % reset the graphic and everything in the GUI % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org +
--- a/aim-mat/gui/init_aim_parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/init_aim_parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,10 +5,13 @@ % % RETURN VALUE: % -% +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + @@ -57,7 +60,7 @@ if handles.error==1 return end - handles=aim_loadproject(handles,handles.info.signalwavename); + handles=aim_loadproject(handles); handles=aim_loadcurrentstate(handles); else % otherwise create a new project
--- a/aim-mat/gui/loadallparameterfiles.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/loadallparameterfiles.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function handles=loadallparameterfiles(handles)
--- a/aim-mat/gui/loadsignalfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/loadsignalfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,9 +7,12 @@ % load the signal file and all files, that are in this directory % set the project variables accordingly. % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org
--- a/aim-mat/gui/newsai_loadfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/newsai_loadfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [frm,options]=newsai_loadfile(name)
--- a/aim-mat/gui/quitprogram.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/quitprogram.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,9 +6,12 @@ % % my close function % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function quitprogram(obj,eventdata,handles)
--- a/aim-mat/gui/release.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/release.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,6 +1,11 @@ +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function ret=release(type)
--- a/aim-mat/gui/setupnames.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/setupnames.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,9 +4,14 @@ % % RETURN VALUE: % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=setupnames(handles,signame_org)
--- a/aim-mat/gui/single_channel_gui.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/single_channel_gui.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,12 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function varargout = W(varargin)
--- a/aim-mat/gui/slider_duration.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/slider_duration.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,14 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function handles=slider_duration(hObject, eventdata, handles)
--- a/aim-mat/gui/slider_scale.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/slider_scale.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,9 +5,12 @@ % RETURN VALUE: % % +% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function handles=slider_scale(hObject, eventdata, handles)
--- a/aim-mat/gui/slider_start.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/gui/slider_start.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function handles=slider_start(hObject, eventdata, handles)
--- a/aim-mat/modules/bmm/dcgc/ACFilterBank.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/dcgc/ACFilterBank.m Tue Aug 16 14:36:30 2011 +0100 @@ -49,7 +49,7 @@ ACFstatus.SigInPrev = zeros(NumCh,Lbz); ACFstatus.SigOutPrev = zeros(NumCh,Lap,NumFilt); ACFstatus.Count = 0; - disp('ACFilterBank: Initialization of ACFcoef'); +% disp('ACFilterBank: Initialization of ACFcoef'); SigOut = []; return; end; @@ -65,11 +65,11 @@ Tdisp = 50; % ms Tcnt = ACFstatus.Count/(fix(ACFcoef.fs/1000)); % ms if ACFstatus.Count == 0 - disp('ACFilterBank: Start processing'); +% disp('ACFilterBank: Start processing'); tic; elseif rem(Tcnt, Tdisp) == 0, - disp(['ACFilterBank: Processed ' int2str(Tcnt) ... - ' (ms). elapsed Time = ' num2str(toc,3) ' (sec)']); +% disp(['ACFilterBank: Processed ' int2str(Tcnt) ... +% ' (ms). elapsed Time = ' num2str(toc,3) ' (sec)']); end; end;
--- a/aim-mat/modules/bmm/dcgc/gen_dcgc.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/dcgc/gen_dcgc.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,8 +4,11 @@ % Toshio Irino and Roy Patterson (2005). "A dynamic, compressive gammachirp auditory filterbank" Revision submitted to IEEE SAP.. % Implementation in aim-mat by Ralph van Dinther % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function fr=gen_dcgc(sig,options)
--- a/aim-mat/modules/bmm/dcgc/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/dcgc/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%
--- a/aim-mat/modules/bmm/gtfb/FcNch2EqERB.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/gtfb/FcNch2EqERB.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,10 @@ % support file for 'aim-mat' -% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %
--- a/aim-mat/modules/bmm/gtfb/Fr2Fpeak.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/gtfb/Fr2Fpeak.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % support file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %
--- a/aim-mat/modules/bmm/gtfb/Freq2ERB.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/gtfb/Freq2ERB.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,10 @@ % support file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %
--- a/aim-mat/modules/bmm/gtfb/GammaChirp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/gtfb/GammaChirp.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % support file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %
--- a/aim-mat/modules/bmm/gtfb/gen_gtfb.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/gtfb/gen_gtfb.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,10 @@ % generating function for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function fr=gen_gtfb(sig,options)
--- a/aim-mat/modules/bmm/gtfb/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/gtfb/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % bmm
--- a/aim-mat/modules/bmm/none/gennobmm.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/none/gennobmm.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function fr=genobmm(sig,options)
--- a/aim-mat/modules/bmm/none/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/none/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %%%%%%%%%%%%% % basilar membrane
--- a/aim-mat/modules/bmm/pzfc/gen_pzfc.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/pzfc/gen_pzfc.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,5 +1,10 @@ % Generating function for AIM-MAT % Based on Dick Lyon's code for the Pole-Zero filter cascade +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function fr=gen_pzfc(sig,options) % Unpack the options and get the raw signal from the signal class
--- a/aim-mat/modules/bmm/pzfc/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/bmm/pzfc/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %%%%%%%%%%%%% % bmm
--- a/aim-mat/modules/graphics/dcgc/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/dcgc/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/graphics/gtfb/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/gtfb/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + % the parameters for the graphics. % They are independent from the module parameters
--- a/aim-mat/modules/graphics/hcl/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/hcl/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/graphics/hl/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/hl/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/graphics/mellin/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/mellin/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/graphics/sst/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/sst/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/graphics/ti1992/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/ti1992/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/graphics/ti2003/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/graphics/ti2003/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %%%%%%%%%%%%% % the parameters for the graphics.
--- a/aim-mat/modules/movie/bmm_movie/gen_bmm_movie.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/movie/bmm_movie/gen_bmm_movie.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,12 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function gen_screen_movie(data,options)
--- a/aim-mat/modules/movie/bmm_movie/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/movie/bmm_movie/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %%%%%%%%%%%%% % user defined module
--- a/aim-mat/modules/movie/screen/gen_screen_movie.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/movie/screen/gen_screen_movie.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function gen_screen_movie(data,options)
--- a/aim-mat/modules/movie/screen/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/movie/screen/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % parameter file for 'aim-mat' % -% % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % user defined module
--- a/aim-mat/modules/nap/hcl/gen_hcl.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/hcl/gen_hcl.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function nap=gen_hcl(bmm,options)
--- a/aim-mat/modules/nap/hcl/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/hcl/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % parameter file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % hcl
--- a/aim-mat/modules/nap/hl/gen_hl.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/hl/gen_hl.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function nap=gen_hl(bmm,options)
--- a/aim-mat/modules/nap/hl/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/hl/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % hl
--- a/aim-mat/modules/nap/none/gennonap.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/none/gennonap.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function fr=genobmm(sig,options)
--- a/aim-mat/modules/nap/none/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/none/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % parameter file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % no nap
--- a/aim-mat/modules/nap/twodat2003/calcfreqslope.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/twodat2003/calcfreqslope.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,8 +8,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function adjacent_band_level=calcfreqslope(cf,af,b);
--- a/aim-mat/modules/nap/twodat2003/gen_twoDat2003.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/twodat2003/gen_twoDat2003.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org +
--- a/aim-mat/modules/nap/twodat2003/gen_twoDat2003b.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/twodat2003/gen_twoDat2003b.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org
--- a/aim-mat/modules/nap/twodat2003/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/nap/twodat2003/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % % hidden parameters
--- a/aim-mat/modules/pcp/elc/genelc.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/elc/genelc.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,10 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=genome(sig,options)
--- a/aim-mat/modules/pcp/elc/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/elc/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % parameter file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % outer/middle ear filter function
--- a/aim-mat/modules/pcp/gm2002/gen_gm2002.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/gm2002/gen_gm2002.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=gensgm(sig,options)
--- a/aim-mat/modules/pcp/gm2002/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/gm2002/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % outer/middle ear filter function
--- a/aim-mat/modules/pcp/maf/genmaf.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/maf/genmaf.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=genome(sig,options) % generating function for the outer/middle ear transfere function
--- a/aim-mat/modules/pcp/maf/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/maf/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,11 +1,12 @@ % parameter file for 'aim-mat' % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % outer/middle ear filter function % hidden parameters
--- a/aim-mat/modules/pcp/map/genmap.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/map/genmap.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=genome(sig,options)
--- a/aim-mat/modules/pcp/map/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/map/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % outer/middle ear filter function
--- a/aim-mat/modules/pcp/none/gennopcp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/none/gennopcp.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=genopcp(sig,options)
--- a/aim-mat/modules/pcp/none/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/pcp/none/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % outer/middle ear filter function
--- a/aim-mat/modules/sai/ti1992/gen_ti1992.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti1992/gen_ti1992.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,12 @@ % the old temporal integration module. Puts add every strobe point a copy % of the past signal in the buffer % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function returnframes=gen_ti1992(nap,strobes,options) % calculates the stablized image from the data given in options
--- a/aim-mat/modules/sai/ti1992/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti1992/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,11 +1,12 @@ % parameter file for 'aim-mat' % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % sai % hidden parameters
--- a/aim-mat/modules/sai/ti2003/gen_grouped.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti2003/gen_grouped.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,9 +8,10 @@ % time integration % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim - +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function returnframes=gen_grouped(nap,strobes,options) % calculates the stablized image from the data given in options
--- a/aim-mat/modules/sai/ti2003/gen_ti2003.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti2003/gen_ti2003.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,9 +7,10 @@ % % time integration % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim - +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function returnframes=gen_ti2003(nap,strobes,options) % calculates the stablized image from the data given in options
--- a/aim-mat/modules/sai/ti2003/gen_ti2003_mit autocor.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti2003/gen_ti2003_mit autocor.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,9 +8,10 @@ % time integration % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim - +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function returnframes=gen_ti2003(nap,strobes,options) % calculates the stablized image from the data given in options
--- a/aim-mat/modules/sai/ti2003/myautocorr.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti2003/myautocorr.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,6 +1,9 @@ % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function cor=myautocorr(data,sr,window) % calculate the autocorrelation (all interval histogram)
--- a/aim-mat/modules/sai/ti2003/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/sai/ti2003/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % sai
--- a/aim-mat/modules/signal/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/signal/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ % parameter file for 'aim-mat' % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % signal options
--- a/aim-mat/modules/strobes/none/gennostrobes.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/strobes/none/gennostrobes.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [strobes,thres]=gennostrobes(nap,options) strobes=[];
--- a/aim-mat/modules/strobes/none/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/strobes/none/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,11 +1,12 @@ % parameter file for 'aim-mat' % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % no nap % hidden parameters
--- a/aim-mat/modules/strobes/sf1992/gen_sf1992.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/strobes/sf1992/gen_sf1992.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [allstrobeprocesses,allthresholds]=gen_sf1992(nap,strobeoptions)
--- a/aim-mat/modules/strobes/sf1992/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/strobes/sf1992/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,11 +1,12 @@ % parameter file for 'aim-mat' % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % old strobe finding % hidden parameters
--- a/aim-mat/modules/strobes/sf2003/gen_sf2003.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/strobes/sf2003/gen_sf2003.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,8 +6,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [allstrobeprocesses,allthresholds]=gen_sf2003(nap,strobeoptions)
--- a/aim-mat/modules/strobes/sf2003/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/strobes/sf2003/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -2,8 +2,11 @@ % % % (c) 2011, University of Southampton -% Maintained and written by Stefan Bleeck (bleec@gmail.com) -% http://www.soton.ac.uk/aim +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % strobes
--- a/aim-mat/modules/usermodule/dualprofile/displaydualprofile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/dualprofile/displaydualprofile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/06/27 16:03:30 $ -% $Revision: 1.6 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function displaydualprofile(sai,options,frame_number,ax) if nargin<4
--- a/aim-mat/modules/usermodule/dualprofile/gendualprofile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/dualprofile/gendualprofile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/03/04 18:51:26 $ -% $Revision: 1.4 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function usermodule=gendualprofile(sai,options)
--- a/aim-mat/modules/usermodule/dualprofile/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/dualprofile/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,11 +1,12 @@ % parameter file for 'aim-mat' % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/03/10 13:39:14 $ -% $Revision: 1.4 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%% % usermodule dual profile % hidden parameters
--- a/aim-mat/modules/usermodule/mellin/CalMI.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/CalMI.m Tue Aug 16 14:36:30 2011 +0100 @@ -12,7 +12,12 @@ % 10 Jan. 2002 % Modified by R. Turner (ret26@cam.ac.uk) % Feb. 2003 -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [MI3d] = CalMI(SAI3d,options,sample_rate)
--- a/aim-mat/modules/usermodule/mellin/CalMI_Rich.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/CalMI_Rich.m Tue Aug 16 14:36:30 2011 +0100 @@ -15,7 +15,12 @@ % 10 Jan. 2002 % Modified by R. Turner (ret26@cam.ac.uk) % Feb. 2003 -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [MI3d] = CalMI_Rich(SAI3d,options,sample_rate)
--- a/aim-mat/modules/usermodule/mellin/CalMI_Rich.old.and.slow.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/CalMI_Rich.old.and.slow.m Tue Aug 16 14:36:30 2011 +0100 @@ -12,7 +12,12 @@ % 10 Jan. 2002 % Modified by R. Turner (ret26@cam.ac.uk) % Feb. 2003 -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [MI3d] = CalMI_Rich(SAI3d,options,sample_rate)
--- a/aim-mat/modules/usermodule/mellin/displaymellin.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/displaymellin.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Richard Turner (ret26@cam.ac.uk) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function displaymellin(mellin,options,frame_number,ax) if nargin<4
--- a/aim-mat/modules/usermodule/mellin/displaymellin2.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/displaymellin2.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Richard Turner (ret26@cam.ac.uk) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2006/03/13 18:31:21 $ -% $Revision: 1.2 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function displaymellin(mellin,options,frame_number)
--- a/aim-mat/modules/usermodule/mellin/displaysaicol.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/displaysaicol.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Richard Turner (ret26@cam.ac.uk) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function displaysaicol(cmap,options,frame_number)
--- a/aim-mat/modules/usermodule/mellin/displaysaicol2.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/displaysaicol2.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Richard Turner (ret26@cam.ac.uk) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2006/01/10 14:50:12 $ -% $Revision: 1.1 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function displaysaicol(cmap,options,frame_number)
--- a/aim-mat/modules/usermodule/mellin/gen_mellin.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/gen_mellin.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% R. Turner (ret26@cam.ac.uk) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2006/01/10 14:50:12 $ -% $Revision: 1.1 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function mellin=gen_mellin(sai,options)
--- a/aim-mat/modules/usermodule/mellin/gensaicol.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/mellin/gensaicol.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,8 @@ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % tester generating function for 'aim-mat' % % INPUT VALUES: @@ -5,9 +10,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% R. Turner (ret26@cam.ac.uk) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function colormap=gensaicol(sai,options)
--- a/aim-mat/modules/usermodule/none/gennousermodule.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/none/gennousermodule.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,11 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sai=gennousermodule(nap,strobes,options)
--- a/aim-mat/modules/usermodule/none/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/none/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,11 +1,12 @@ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % parameter file for 'aim-mat' % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ + %%%%%%%%%%%%% % usermodules % hidden parameters
--- a/aim-mat/modules/usermodule/sst/Calssi.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/sst/Calssi.m Tue Aug 16 14:36:30 2011 +0100 @@ -12,7 +12,12 @@ % Modified for the size shape image % Marc A. Al-Hames % April 2003 -% http://www.pdn.cam.ac.uk/cnbh/aim2006 +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [SSI3d] = Calssi(SAI3d,options,sample_rate)
--- a/aim-mat/modules/usermodule/sst/gen_sst.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/sst/gen_sst.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,7 +5,12 @@ % Marc A. Al-Hames % April 2003 % -% http://www.pdn.cam.ac.uk/cnbh/aim2006 +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ssi=gen_ssi(sai,options)
--- a/aim-mat/modules/usermodule/sst/parameters.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/modules/usermodule/sst/parameters.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,6 +1,11 @@ %%%%%%%%%%%%%%%%%%%%% % usermodule sst % %%%%%%%%%%%%%%%%%%%%% +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % hidden parameters sst.generatingfunction = 'gen_sst';
--- a/aim-mat/tools/@clicktrain/clicktrain.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,53 +0,0 @@ -% constructor of class @clicktrain (derived from @signal) -% parent class: @signal -% function ct=clicktrain([length],[samplerate],[frequency],[amplitude]) - -% INPUT VALUES: -% length: length of signal in seconds [default 1] -% samplerate: samplerate in Hz (points per seconds) [default: 1000] -% frequency: frequency in Hz [default: 100] -% amplitude: clicks amplitude [default: 1] -% RETURN VALUE: -% @signal-object -% -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - - - -function ct=clicktrain(length,samplerate,frequency,amplitude) -% produces a clicktrain as a signal - -if nargin < 4 - amplitude=1; -end -if nargin < 3 - frequency=100; -end -if nargin < 2 - samplerate=10000; -end -if nargin < 1 - length=1; -end - -name= sprintf('Clicktrain with %5.2f Hz',frequency); -unit_y='amplitude'; -unit_x='time (ms)'; -start_time=0; - -ctt.frequency=frequency; -ctt.amplitude=amplitude; - -sig=signal(length,samplerate,name,unit_x,unit_y,start_time); - -% f=class(struct([]),'fsignal',sig); -ct=class(ctt,'clicktrain',sig); - -ct=generate(ct); -
--- a/aim-mat/tools/@clicktrain/generate.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -% method of class @clicktrain (derived from @signal) -% function ct=generate(ct) -% INPUT VALUES: -% ct=old @clicktrain -% RETURN VALUE: -% ct=new @clicktrain with the correct values -% -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - - -function ct=generate(ct) - -ct=mute(ct); - -df=floor(getsr(ct)/ct.frequency); -to=time2bin(ct,getlength(ct)); -clicks=1:df:to; - -ct=setbinvalue(ct,clicks,ct.amplitude); \ No newline at end of file
--- a/aim-mat/tools/@clicktrain/getfrequency.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -% method of class @clicktrain (derived from @signal) -% function fre=getfrequency(ct) -% INPUT VALUES: -% ct: @clicktrain -% RETURN VALUE: -% fre=frequency of the clicktrain -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - - -function fre=getfrequency(ct) -fre=ct.frequency; \ No newline at end of file
--- a/aim-mat/tools/@clicktrain/setfrequency.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16 +0,0 @@ -% method of class @clicktrain (derived from @signal) -% function ct=setfrequency(ct,fre) -% INPUT VALUES: -% fre: frequency of the clicktrain in Hz -% RETURN VALUE: -% ct: new clicktrain -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - - -function ct=setfrequency(ct,was) -ct.frequency=was; \ No newline at end of file
--- a/aim-mat/tools/@field/disp.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,11 +0,0 @@ -function disp(f) -nrt=getnrpoints(f); -nrf=getnrfrequencies(f); - -disp(sprintf('field: (time:)%d - by - (frequencies:)%d',nrt,nrf)); -getdata(f) -return -for j=1:nrt - row=getcolumn(f,j); - a=getdata(row) -end \ No newline at end of file
--- a/aim-mat/tools/@field/display.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,10 +0,0 @@ -function display(f) - -disp('Object of Class field'); -% disp(sprintf('Name: %s',fsig.name)); -disp(sprintf('Time: %5.2f sec',getduration(f))); -disp(sprintf('maximum frequency %5.2f ',maxfre(f))); -disp(sprintf('Sample rate: %5.2f Hz',f.samplerate)); -disp(sprintf('Time steps: %d',getnrt(f))); -disp(sprintf('Frequency steps: %d',getnrf(f))); -
--- a/aim-mat/tools/@field/field.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,41 +0,0 @@ -function res=field(nrt,nrf,sr) -%Konstruktor der field klasse -% Fields sind 2D-Array einer Frequenz über Zeit -% also ein umgedrehtes Array -% Bei mir ist die erste Koordinate X und die zweite Y!! -% das ist verständlicher! So, wie auf dem Schirm zu sehen: -% disp(irgend ein Array) macht nach rechts die Zeit -% und nach oben die Frequenz - -if nargin<3 - sr=1; -end - - -if nargin==1 - if isnumeric(nrt); % Aufruf mit einem fertigen Feld -% x=size(nrt,2); -% y=size(nrt,1); - res.werte=nrt; - end -else %wenn nicht mit einem aufgerufen, dann müssen die beiden Werte Begrenzer sein - x=nrt; - y=nrf; - % blödes Matlab: Matrizen sind kodiert oben,rechts - % Der X-Wert geht nach oben, der Y-Wert geht nach rechts. - % Ich will Zeit nach rechts gehen lassen, also muss Zeit der zweite Parameter sein - res.werte=zeros(y,x); -end - -% res.numbert=x; -% res.numberf=y; -res.samplerate=sr; -% res.minfre=0; -res.maxfre=0; -res.offset=0; - - -res=class(res,'field'); - - -
--- a/aim-mat/tools/@field/fill.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,11 +0,0 @@ -function f=fill(f,x1,x2,wert) -% Fill the part of the matrix from x1 to x2 with that value -% The size of the matrix might be increased - -nrfre=getnrfrequencies(f); -for x=x1:x2 - nullen=ones(1,nrfre)*wert; - sig=signal(nullen); - f=setcolumn(f,x,sig); -end -
--- a/aim-mat/tools/@field/getcolumn.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -function sig=getcolumn(f,nr) - -r=f.werte(:,nr); -sig=signal(r); \ No newline at end of file
--- a/aim-mat/tools/@field/getdata.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function res=getdata(f) - -res=f.werte;
--- a/aim-mat/tools/@field/getduration.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -function t=getduration(field) -t=getnrt(field)/field.samplerate; \ No newline at end of file
--- a/aim-mat/tools/@field/getnrf.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function nrf=getnrf(f) -vals=getvalues(f); -nrf=size(vals,1); \ No newline at end of file
--- a/aim-mat/tools/@field/getnrfrequencies.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function nr=getnrfrequencies(field) -nr=size(field.werte,1); -
--- a/aim-mat/tools/@field/getnrpoints.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function x=getnrpoints(field) - -x=size(field.werte,2);
--- a/aim-mat/tools/@field/getnrt.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function nrt=getnrt(f) -vals=getvalues(f); -nrt=size(vals,2); \ No newline at end of file
--- a/aim-mat/tools/@field/getoffset.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -function startt=getoffset(f) -startt=f.offset; \ No newline at end of file
--- a/aim-mat/tools/@field/getpart.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,14 +0,0 @@ -function ret=getpart(f,t_start,t_stop) - -ret=f; - - -vals=f.werte; -srf=getsr(f); -binstart=time2bin(srf,t_start); -binstop=time2bin(srf,t_stop); - -retvals=vals(:,binstart:binstop); - -ret=setvalues(f,retvals); -
--- a/aim-mat/tools/@field/getrow.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,4 +0,0 @@ -function sig=getrow(f,nr) - -r=f.werte(:,nr); -sig=signal(r); \ No newline at end of file
--- a/aim-mat/tools/@field/getsr.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function res=getsr(f) - -res=f.samplerate;
--- a/aim-mat/tools/@field/getvalues.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function res=getvalues(f) - -res=f.werte;
--- a/aim-mat/tools/@field/log.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -function f=log(f) -f.werte=log(f.werte); \ No newline at end of file
--- a/aim-mat/tools/@field/maxfre.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function f=maxfre(field) - -f=field.maxfre;
--- a/aim-mat/tools/@field/minfre.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function f=minfre(field) - -f=field.minfre;
--- a/aim-mat/tools/@field/mtimes.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -function f=mtimes(f,b) -% multiplikation mit * -% einfachster Fall: Multipliziere mit konstanter Zahl -% sonst: Multipliziere ein zweites Signal zum Zeitpunkt Null - -if isnumeric(b) - if size(b)==1 - f.werte=f.werte*b; - else - disp('field::mtimes: too many parameters in multiplication') - end - return -end - -disp('field::mtimes: multiplication with field not implemented yet')
--- a/aim-mat/tools/@field/plot.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,71 +0,0 @@ -function plot(f,modus) - -if nargin<2 - modus='linear'; -end - -% maxfre=maxfre(f); -% nrf=getnrf(f); -% freqs=linspace(0,maxfre,nrf); -% -% nrt=getnrt(f); -% sr=getsr(f); -% maxt=sr*nrt; -% times=linspace(0,maxt,nrt); -% startt=getoffset(f); -% times=times-startt; -% -% vals=getvalues(f); -% imagesc(times,freqs,20*log10(vals)); -% axis xy -% colormap(jet) - - -surf(f.werte); -% view(0,90); -shading interp - -maxx=getnrt(f); -maxy=getnrf(f); -minx=0; -miny=0; - -xstep=(maxx-minx)/10; -tix=minx:xstep:maxx; -ti=([minx:xstep:maxx]); -ti=bin2time(ti,f.samplerate); -ti=round((ti+f.offset)*10000)/10; -set(gca,'XTick',tix); -set(gca,'XTickLabel',ti); - -if strcmp(modus,'linear') - ystep=(maxy-miny)/10; - tiy=miny:ystep:maxy; - ti=([miny:ystep:maxy]); - ti=ti/maxy*f.maxfre; - ti=round(ti*10)/10000; - set(gca,'YTick',tiy); - set(gca,'YTickLabel',ti); -elseif strcmp(modus,'log') - set(gca,'yscale','log') - - max_fre=maxfre(f); - nr_ticks=6; - yticks=distributelogarithmic(maxy/power(2,nr_ticks-1),maxy,nr_ticks); - set(gca,'YTick',yticks); - - ytickl=distributelogarithmic(max_fre/power(2,nr_ticks-1),max_fre,nr_ticks); - ti=[]; - for i=1:nr_ticks - sadf=sprintf('%3.2f',ytickl(i)/1000); - ti=[ti ; sadf(1:4)]; - end - set(gca,'YTickLabel',ti); -end -xlabel('time (ms)'); -ylabel('Frequency (kHz)'); - -axis([1 maxx 1 maxy]); - - -
--- a/aim-mat/tools/@field/plus.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -function f=plus(a,b) -% addition -% einfachster Fall: Addiere eine konstante Zahl -% sonst: Addiere ein zweites Feld zum Zeitpunkt Null - -if isnumeric(b) - a.werte=a.werte+b; - f=a; - return -end - -if isobject(a) - x1=getnrpoints(a); - y1=getnrfrequencies(a); - x2=getnrpoints(b); - y2=getnrfrequencies(b); - - if (x1~=x2) | (y1~=y2) - disp('Fields do not fit'); - f=a; - return; - end - f=a; - f.werte=f.werte+b.werte; -end \ No newline at end of file
--- a/aim-mat/tools/@field/setcolumn.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,27 +0,0 @@ -function f=setcolumn(field,x,sig) -% setze die Spalte (hoch-runter) mit den Werten aus Signal -% erster Parameter in einem Matlab Array immer die Frequenz (oben-unten!!!) - -if isobject(sig) - nr_signal=getnrpoints(sig); -else - nr_signal=size(sig,1); -end - -nr_field=getnrfrequencies(field); -if nr_signal ~= nr_field - disp('different number of points in field::setcolum'); - return -end - -if x>field.numbert; % das Feld kann sich bei der Aktion vergrößern - field.numbert=x; -end -f=field; -if isobject(sig) - wer=getdata(sig); -else - wer=sig; -end -f.werte(1:nr_field,x)=wer(1:nr_signal); -
--- a/aim-mat/tools/@field/setmaxfre.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -function f=setmaxfre(f,nr) -f.maxfre=nr;
--- a/aim-mat/tools/@field/setoffset.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -function f=setoffset(f,time) -f.offset=time;
--- a/aim-mat/tools/@field/setrow.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,27 +0,0 @@ -function f=setrow(field,x,sig) -% setze die Zeile (links rechts) mit den Werten aus Signal -% erster Parameter in einem Matlab Array immer die Frequenz (oben-unten!!!) - - -if isobject(sig) - nr_signal=getnrpoints(sig); -else - nr_signal=size(sig,2); -end - -nr_field=getnrpoints(field); -if nr_signal ~= nr_field - disp('different number of points in field::setrow'); - return -end - -f=field; - -if isobject(sig) - wer=getdata(sig); -else - wer=sig; -end - -f.werte(x,1:nr_field)=wer(1:nr_signal); - \ No newline at end of file
--- a/aim-mat/tools/@field/setvalues.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,3 +0,0 @@ -function f=setvalues(f,B) - -f.werte=B;
--- a/aim-mat/tools/@field/shift.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -function f=shift(f,x1,x2) -% shift the part of the matrix with the beginning x1 to x2 -% The size of the matrix might be increased -% The rest is filled with zeros - -% first, shift the rest to the right -d=getdata(f); -s=size(d); -stop=s(2); -stop2=x2-x1+stop; -d(:,x2:stop2)=d(:,x1:stop); - -% fill the left part with zeros -d(:,1:x2-1)=0; - -f=field(d); -
--- a/aim-mat/tools/@field/size.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,2 +0,0 @@ -function s=size(sig) -s=size(sig.werte); \ No newline at end of file
--- a/aim-mat/tools/@frame/plottemporalprofile.asv Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@frame/plottemporalprofile.asv Tue Aug 16 14:36:30 2011 +0100 @@ -11,8 +11,11 @@ % $Date: 2003/07/27 15:29:59 $ % $Revision: 1.12 $ -function hand=plottemporalprofile(current_frame,options) +function hand=plottemporalprofile(current_frame,options,ax) +if nargin <3 + ax=gca; +end if nargin <2 options=[]; end @@ -132,7 +135,7 @@ % cvals=getvalues(summe); % min_x_screen=1; % max_x_screen=size(cvals,1); -hand=plot(sumcvals); +hand=plot(ax,sumcvals); maxshowy=1.1; if min(cvals) >= 0 @@ -146,20 +149,26 @@ maxy=1; end if time_profile_scale==-1 % decide myself - maxy=1.1*max(sumcvals); + maxy=1.2*max(sumcvals); end % save the two profiles to text files for further analysis % 1: freq profile x1=getcf(current_frame); y1=sum(cvals'); +x1= A1=[x1' y1']; +% save freqp.txt A1 -ascii +dlmwrite('freqprofile.txt',A1, '\t') + % 2: temp profile sr=getsr(current_frame); x2=1000/sr:1000/sr:getlength(current_frame)*1000; y2=sum(cvals); A2=[x2' y2']; +% save tempp.txt A1 -ascii +% dlmwrite('tempprofile.txt',A2, '\t') @@ -171,12 +180,15 @@ max_x_screen =min_x_screen +1; end try - axis([min_x_screen max_x_screen minshowy maxy]); + set(ax,'xlim',[min_x_screen max_x_screen]); + set(ax,'ylim',[minshowy maxy]); + +% axis([min_x_screen max_x_screen minshowy maxy]); end if time_reversed - set(gca,'XDir','reverse') % turn them around, because the higher values shell end on the right + set(ax,'XDir','reverse') % turn them around, because the higher values shell end on the right end - set(gca,'XScale','log') + set(ax,'XScale','log') t=minimum_time_interval; ti=[t 2*t 4*t 8*t 16*t 32*t 64*t]; tix=(ti)*sr; % there shell be the tix @@ -185,9 +197,9 @@ ti=fround(ti,2); else % its not logarithmic! if time_reversed - set(gca,'XDir','reverse') % turn them around, because the higher values shell end on the right + set(ax,'XDir','reverse') % turn them around, because the higher values shell end on the right else - set(gca,'XDir','normal') % normale ausrichtung + set(ax,'XDir','normal') % normale ausrichtung end nrx=size(cvals,2); if scale_summe==0 @@ -199,17 +211,17 @@ xstep=(maximum_time_interval-minimum_time_interval)*1000/(nr_labels); %works from -35 to 5 ti=([minimum_time_interval*1000:xstep:maximum_time_interval*1000+1]); ti=round(ti*10)/10; - set(gca,'XScale','linear') + set(ax,'XScale','linear') % text(min_x_screen*1.5,-scale_summe/5,'Time (ms)'); % this is at a nice position end if has_x_axis if max(tix)>1 - set(gca,'XTick',tix); - set(gca,'XTickLabel',ti); + set(ax,'XTick',tix); + set(ax,'XTickLabel',ti); end else - set(gca,'xtick',[]); % we dont want any z-Ticks! + set(ax,'xtick',[]); % we dont want any z-Ticks! end % axis % if scale_summe==0 @@ -227,12 +239,12 @@ % stefan for the scale profile if strcmp(getxaxis(current_frame),'harmonic ratio') - ti=get(gca,'XTickLabel'); + ti=get(ax,'XTickLabel'); ti=str2num(ti)/1000; end -set(gca,'XTick',tix); -set(gca,'XTickLabel',ti); -set(gca,'YTickLabel',[]); +set(ax,'XTick',tix); +set(ax,'XTickLabel',ti); +set(ax,'YTickLabel',[]);
--- a/aim-mat/tools/@frame/plottemporalprofile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@frame/plottemporalprofile.m Tue Aug 16 14:36:30 2011 +0100 @@ -156,16 +156,17 @@ % 1: freq profile x1=getcf(current_frame); y1=sum(cvals'); -A1=[x1' y1']; +% x1= +% A1=[x1' y1']; % save freqp.txt A1 -ascii -dlmwrite('freqprofile.txt',A1, '\t') +% dlmwrite('freqprofile.txt',A1, '\t') % 2: temp profile -sr=getsr(current_frame); -x2=1000/sr:1000/sr:getlength(current_frame)*1000; -y2=sum(cvals); -A2=[x2' y2']; +% sr=getsr(current_frame); +% x2=1000/sr:1000/sr:getlength(current_frame)*1000; +% y2=sum(cvals); +% A2=[x2' y2']; % save tempp.txt A1 -ascii % dlmwrite('tempprofile.txt',A2, '\t')
--- a/aim-mat/tools/@fsignal/bin2freq.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,6 +0,0 @@ -function freq=bin2freq(fsig,bin) - -nr=fsig.df; -freq=bin*nr; -% bin=f/nr; -
--- a/aim-mat/tools/@fsignal/display.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,19 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function display(fsig) - -disp('Frequency Spectrum'); -disp(sprintf('Name: %s',getname(fsig))); -disp(sprintf('Points: %d',getnrpoints(fsig))); -disp(sprintf('Frequency from 0 to %5.2f Hz',fsig.max_fre));
--- a/aim-mat/tools/@fsignal/freq2bin.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,5 +0,0 @@ -function bin=freq2bin(fsig,f) - -nr=fsig.df; -bin=f/nr; -
--- a/aim-mat/tools/@fsignal/fsignal.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,44 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function f=fsignal(laenge,samplerate) - -start_time=0; -unit_y='amplitude (dB)'; -unit_x='Frequency (Hz)'; -name='generic Frequencysignal'; -if nargin< 2 - samplerate=1000; -end - -% Konstruktor kann auch ein Vektor sein, dann wird direkt konstruiert. -lang=size(laenge,1); -if size(laenge,2)>1 %Benutzer hat falschen Vektor (Zeilenvektor) eingegeben - lang=size(laenge,2); - laenge=laenge'; -end -if lang>1 % AHA! Ein Vektor - f.werte=laenge; - nr_points=lang; -else - nr_points=laenge; - f.werte=zeros(round(nr_points),1); -end - -f.max_fre=samplerate; -f.df=samplerate/nr_points; %frequenzabstand - -sig=signal(laenge,samplerate,name,unit_x,unit_y,start_time); - -f=class(f,'fsignal',sig); -
--- a/aim-mat/tools/@fsignal/getdf.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function nr=getdf(sig) -% returns the smallest frequency difference -nr=sig.df; \ No newline at end of file
--- a/aim-mat/tools/@fsignal/getmaxfre.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function nr=getmaxfre(sig) -nr=sig.max_fre; \ No newline at end of file
--- a/aim-mat/tools/@fsignal/isoftype.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,20 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function ret=isoftype(inp,str) - -if strcmp(str,'fsignal') - ret=1; -else - ret=0; -end \ No newline at end of file
--- a/aim-mat/tools/@fsignal/max.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,25 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function [m,f]=max(fsig) -% returns the maximum as Value and Frequency!! -%if the return frequency is 0 then the next value is searched - -werte=getdata(fsig); -werteneu=werte(2:end); % ohne den Gleichanteil! - -[m,f]=max(werteneu); - -f=(f-1)*fsig.df; % umrechnung von bin zu Frequenz - -
--- a/aim-mat/tools/@fsignal/plot.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,105 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function plot(fsig,border,stil) - -if nargin==2 - if ischar(border) - stil=border; - else - stil='b-'; - end -end - -maxfre=fsig.max_fre; % die höchste Frequenz im Signal -df=fsig.df; % der Frequenzabstand -nr=getnrpoints(fsig); - -werte=getdata(fsig); -mi=min(werte); -ma=max(werte); -if mi==ma - ma=mi+1; -end - - -% minx=1; -% maxx=nr-1; - -if nargin <2 - stil='b-'; - border=[df maxfre mi ma]; -else - if ischar(border) - border=[df maxfre mi ma]; - else - nr=size(border,2); - if nr==2 % wenn nur die x-Werte angegeben werden - border=[border(1) border(2) mi ma]; - end - end -end - -minf=border(1); -maxf=border(2); - -minx=freq2bin(fsig,minf); -maxx=freq2bin(fsig,maxf); - - -plotw=werte(2:end); % die Null vorne wird abgeschnitten! - - -plotlin=1; - -if plotlin==0 - semilogx(plotw,stil); - axis([minx maxx border(3) border(4)]); - xt=get(gca,'XTick'); - xt=distributelogarithmic(minx,maxx,8); - set(gca,'XTick',xt); - xti=bin2freq(fsig,xt); - xti=fround(xti,1); - set(gca,'XTickLabel',xti); -else - % to make the frequencies right, double every point... - plotwnew=[zeros(size(plotw));zeros(size(plotw))]; - for i=1:length(plotw); - plotwnew((i-1)*2+1)=plotw(i); - plotwnew((i-1)*2+2)=plotw(i); - end - plot(plotwnew,stil); - axis([minx maxx border(3) border(4)]); -% xt=get(gca,'XTick'); -% xt=distributelogarithmic(minx,maxx,8); -% set(gca,'XTick',xt); -% xti=bin2freq(fsig,xt); -% xti=fround(xti,1); -% set(gca,'XTickLabel',xti); - -end - - -% xstep=(log(maxx)-log(minx))/10; -% tix=exp(log(minx):xstep:log(maxx)); - -% fstep=(log(maxf)-log(minf))/10; -% ti=(log(minf):fstep:log(maxf)); -% ti=exp(ti)/1000; -% ti=fround(ti,1); -% semilogx(fsig.werte,stil); - - -xlabel(getunit_x(fsig)); -ylabel(getunit_y(fsig)); -title(getname(fsig),'Interpreter','none');
--- a/aim-mat/tools/@fsignal/setdf.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function sig=setdf(sig,nr) -% set the smallest Frequency Difference -sig.df=nr; \ No newline at end of file
--- a/aim-mat/tools/@fsignal/setmaxfre.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,19 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function sig=setmaxfre(sig,nr) -if nargin<2 - disp('setmaxfre(sig,nr) called with too few parameters') - return -end -sig.max_fre=nr; \ No newline at end of file
--- a/aim-mat/tools/@fsignal/strippowerspectrum.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,29 +0,0 @@ -% method of class @fsignal (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function nsig=strippowerspectrum(sig) -% usage: sig=strippowerspectrum(sig) -% returns a new fsignal, that has one fewer point and strips of the leading -% value, because the powerspectrum adds a zero value in front - - -val=getdata(sig); -valneu=val(2:end); - -nsig=fsignal(valneu); - -nsig=setsr(nsig,getsr(sig)); -nsig=setdf(nsig,getdf(sig)); -nsig=setmaxfre(nsig,getmaxfre(sig)); - -nsig=setname(nsig,getname(sig)); \ No newline at end of file
--- a/aim-mat/tools/@parameter/add.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/add.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=add(param,type,text,argument4,argument5,argument6,argument7,argument8,argument9) % add a new parameter to the structure % and set its inital state variables
--- a/aim-mat/tools/@parameter/disablefield.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/disablefield.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=disablefield(param,paramtext,enablesthese,inbox) % the boolean parameter paramtext switches on or off the fields in % enablethese
--- a/aim-mat/tools/@parameter/disp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/disp.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function disp(params) % thats what happens if you are with the mouse over it in the editor display(params)
--- a/aim-mat/tools/@parameter/display.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/display.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function display(param) % display the content of an object of the parameter class. This function is % called when the object is listed somewhere or the mouse is over it in the
--- a/aim-mat/tools/@parameter/enable.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/enable.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=enable(param,text,disablevalue,inbox) % if it has a grafical representation then disable
--- a/aim-mat/tools/@parameter/enablefield.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/enablefield.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=enablefield(param,paramtext,enablesthese,inbox) % the boolean parameter paramtext switches on or off the fields in % enablethese
--- a/aim-mat/tools/@parameter/exist.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/exist.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + function val=exist(param,text,inbox) % returns a boolean value that indicates if that string has a valid field
--- a/aim-mat/tools/@parameter/get.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/get.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=get(param,text,panel) % returns the current value of the parameter
--- a/aim-mat/tools/@parameter/getas.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getas.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=getas(param,text,selectedunit,panel) % returns the current value of the parameter if its an float or an int
--- a/aim-mat/tools/@parameter/getcurrentunit.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getcurrentunit.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [selectedunit,fullunitname]=getcurrentunit(param,text,panel) % returns the unit that this value is currently set to
--- a/aim-mat/tools/@parameter/getdefaultbutton.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getdefaultbutton.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=getdefaultbutton(param) % returns the parameter that was set as the default button
--- a/aim-mat/tools/@parameter/getentrybyhandle.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getentrybyhandle.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,10 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ - +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function entry=getentrybyhandle(param,hand)
--- a/aim-mat/tools/@parameter/getentrynumberbytext.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getentrynumberbytext.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function nr=getentrynumberbytext(param,text,inbox) nr=-1;
--- a/aim-mat/tools/@parameter/getfirstfocus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getfirstfocus.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=getfirstfocus(param)
--- a/aim-mat/tools/@parameter/gethandle.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/gethandle.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function hand=gethandle(param,text,panel,handnr) % set handle of one line. A line can have more then one handle, therefore
--- a/aim-mat/tools/@parameter/getmode.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getmode.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=getmode(param)
--- a/aim-mat/tools/@parameter/getname.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getname.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function name=getname(param)
--- a/aim-mat/tools/@parameter/getposition.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getposition.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function pos=getposition(param)
--- a/aim-mat/tools/@parameter/getradiobutton.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getradiobutton.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function str=getradiobutton(param,panel)
--- a/aim-mat/tools/@parameter/getraw.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getraw.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=getraw(param,text,inbox) % returns the current value of the parameter as it is, no transformation
--- a/aim-mat/tools/@parameter/getstringvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getstringvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=getstringvalue(param,text,panel) % returns the current value of the parameter as a string % this is particulary useful for integer values in the form 1:10
--- a/aim-mat/tools/@parameter/gettext.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/gettext.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function name=gettext(param,i,inbox) % return the description text of the parameter with the entry number i. % if i is a string then return the full string of the probably abbreviated
--- a/aim-mat/tools/@parameter/getuserdata.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getuserdata.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,10 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ - +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function data=getuserdata(param,text,inbox) % the whole struct can have an user entry and every part of the structure % as well. These can be used by the user for example for the 'other...'
--- a/aim-mat/tools/@parameter/getversion.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/getversion.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=getversion(param)
--- a/aim-mat/tools/@parameter/parameter.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/parameter.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function dstr=parameter(inp,mode,position) % class parameter
--- a/aim-mat/tools/@parameter/set.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/set.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=set(param,text,newvalue,inbox) %% sets the parameter value in the parameter "text" in the panel "inbox" to %% the value "value".
--- a/aim-mat/tools/@parameter/setas.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setas.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setas(param,text,value,unit,inbox) %% sets the parameter value in the parameter "text" in the panel "inbox" to %% the value "value".
--- a/aim-mat/tools/@parameter/setcallback.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setcallback.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setcallback(param,text,cback,inbox) % every entry can have a callback function that is called when the item % looses its focus
--- a/aim-mat/tools/@parameter/setfirstfocus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setfirstfocus.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function params=setfirstfocus(params,where) % sets the first focus to an element. When the gui is opend this one gets
--- a/aim-mat/tools/@parameter/sethandle.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/sethandle.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=sethandle(param,text,hand,inbox,handle_nr) % sets the handle of this item. handles_nr is usually 1 but can be 2 in
--- a/aim-mat/tools/@parameter/setmode.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setmode.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setmode(param,mode)
--- a/aim-mat/tools/@parameter/setposition.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setposition.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setposition(param,mode)
--- a/aim-mat/tools/@parameter/setradiobutton.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setradiobutton.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setradiobutton(param,text,inbox)
--- a/aim-mat/tools/@parameter/setstringvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setstringvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setstringvalue(param,text,strvalue,inbox) %% sets the parameter value in the parameter "text" in the panel "inbox" to %% the value "strvalue" no units or anything are used
--- a/aim-mat/tools/@parameter/settooltip.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/settooltip.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=settooltip(param,text,tooltiptext,inbox) % defines the tooltio for that entry
--- a/aim-mat/tools/@parameter/setuserdata.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@parameter/setuserdata.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % method of class @parameter % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function param=setuserdata(param,data,text,inbox)
--- a/aim-mat/tools/@signal/abs.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/abs.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,12 @@ % % RETURN VALUE: % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=abs(sig)
--- a/aim-mat/tools/@signal/absmax.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/absmax.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [m,x]=absmax(sig) % returns the maximum absolut value of the signal
--- a/aim-mat/tools/@signal/add.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/add.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,13 @@ % and duration is according. sig2 can be a signal-object or an struct % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=add(a,b,start_time,dauer)
--- a/aim-mat/tools/@signal/addtimevalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/addtimevalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=addtimevalue(sig,time,val)
--- a/aim-mat/tools/@signal/antitilt.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/antitilt.m Tue Aug 16 14:36:30 2011 +0100 @@ -13,12 +13,13 @@ % % RETURN VALUE: % sigresult: @signal -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=antitilt(sig,tilttime)
--- a/aim-mat/tools/@signal/append.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/append.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,11 +9,13 @@ % RETURN VALUE: % sigresult: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=append(sig,b)
--- a/aim-mat/tools/@signal/attenuate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/attenuate.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,26 +1,41 @@ -% method of class @signal -% -% INPUT VALUES: -% sig,attenuation -% sig is the signa -% attenuation is the attenuation against the lowdest possible tone -% with amplitude =1 -% default=1 -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - - - -function sig=attenuate(sig,attenuation); - -amphigh=max(sig); -amp=amphigh / power(10,-attenuation/20); -sig=scaletomaxvalue(sig,amp); - +% method of class @signal +% +% INPUT VALUES: +% sig,attenuation +% sig is the signal +% attenuation is the attenuation against the lowdest possible tone +% +% +% +% RETURN VALUE: +% +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + + + +function sig=attenuate(sig,attenuation) + +if attenuation==0 + return +end + +dat=sig.werte; +ma=max(dat); +mi=min(dat); +if -mi > ma + ma=-mi; +end +amphigh=ma; + +amp=amphigh / power(10,-attenuation/20); +if amp>0 + sig=scaletomaxvalue(sig,amp); +end +
--- a/aim-mat/tools/@signal/autocorrelate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/autocorrelate.m Tue Aug 16 14:36:30 2011 +0100 @@ -14,11 +14,13 @@ % RETURN VALUE: % @sig: the correlation values at each delay % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=autocorrelate(sig,delay_start,delay_stop,normalization_mode) if nargin==1
--- a/aim-mat/tools/@signal/average.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/average.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,13 @@ % meansig: mean value of the signal % stdsug: standart deviation % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [meana,stda]=average(sig,t_start,t_stop)
--- a/aim-mat/tools/@signal/bandpass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/bandpass.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,110 +1,125 @@ -% method of class @signal -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function filtered_sig=bandpass(sig,lowfrequency,highfrequency,stopbandwidth_low,stopbandwidth_high,ripple,stopbandatten) -% hack for an phase true bandpassfilter with cutoff at frequency -% used is a ButterworthFilter -% this is all crap, but it does not work properly otherwise. - -grafix=0; - -if nargin < 6 - stopbandatten=60; % in dB - how many dB the signal is reduced in the stopband at least -end -if nargin < 5 - ripple=3; % in dB = ripple in the passband -end - - -% I dont understand enough to make it work with a butterwort filer. -% easy solution: first perform a lowpass, then a highpass filter... -% sorry, Thanks for any help! -if grafix - figure(23534) - plot(powerspectrum(sig),[100,getsr(sig)/2],'b') - hold on -end - -filtered_sig_low=lowpass(sig,highfrequency,highfrequency+stopbandwidth_high,ripple,stopbandatten); - -if grafix - figure(23534) - plot(powerspectrum(filtered_sig_low),[100,getsr(filtered_sig_low)/2],'r') -end - - -filtered_sig=highpass(filtered_sig_low,lowfrequency,lowfrequency-stopbandwidth_low,ripple,stopbandatten); -if grafix - figure(23534) - plot(powerspectrum(filtered_sig),[100,getsr(filtered_sig_low)/2],'g') -end - - -return - - -% if nargin < 4 -% ripple=1; % in dB = ripple in the passband -% end -% if nargin <3 -% stopband=frequency*2; % eine Oktave drüber -% end - -ripple=3; - -nyquist=getsr(sig)/2; -% fre_low=2; -% fre_high=frequency; - -Wpass=[lowfrequency highfrequency]/nyquist; -Wstop=[lowfrequency-stopbandwidth highfrequency+stopbandwidth]/nyquist; -[n,Wn] = buttord(Wpass,Wstop,ripple,stopbandatten); -% [n,Wn] = buttord(fre_high/nyquist,(fre_high+stopband)/nyquist,ripple,stopbandatten); -% Berechne den IIR-Filter -[b,a] = butter(n,Wn); - -% zum testen: -freqz(b,a,128,getsr(sig)) - -vals=sig.werte'; - -% fill the part behind the signal and in front of the signal with -% values -% firstval=vals(1); -% lastval=vals(end); -% nr_vals=length(vals); -% vals=[ones(1,nr_vals)*firstval vals ones(1,nr_vals)*lastval]; - -plot(vals) -hold on - -nvals = filter(b,a,vals); -% nvals = filtfilt(b,a,vals); -% extract the values back -% nvals=nvals(nr_vals+1:2*nr_vals); - -plot(nvals,'r') - -% filtered_sig=0; -% return - -filtered_sig=sig; % a copy of the old one -newname=sprintf('Bandpass filterd (%3.2fkHz - %3.2fkHz) Signal: %s',lowfrequency/1000,highfrequency/1000,getname(sig)); -filtered_sig=setname(filtered_sig,newname); -filtered_sig.werte=nvals'; - -% figure(235423) -% plot(sig); -% hold on -% plot(filtered_sig,'g'); -% s=0; +% method of class @signal +% +% INPUT VALUES: +% +% RETURN VALUE: +% +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + +function filtered_sig=bandpass(sig,lowfrequency,highfrequency,stopbandwidth_low,stopbandwidth_high,ripple,stopbandatten) +% hack for an phase true bandpassfilter with cutoff at frequency +% used is a ButterworthFilter +% this is all crap, but it does not work properly otherwise. + +grafix=0; + +if nargin < 7 + stopbandatten=60; % in dB - how many dB the signal is reduced in the stopband at least +end +if nargin < 6 + ripple=3; % in dB = ripple in the passband +end +if nargin < 5 + stopbandwidth_high=highfrequency*2; % one octave above +end +if nargin < 4 + stopbandwidth_low=lowfrequency/2; % one octave above +end + +% I dont understand enough to make it work with a butterwort filer. +% easy solution: first perform a lowpass, then a highpass filter... +% sorry, Thanks for any help! +if grafix + figure(235340); + clf + plot(powerspectrum(sig),[100,getsr(sig)/2],'b') + hold on +end + +if highfrequency>0 && highfrequency<getsr(sig)/2 + filtered_sig_low=lowpass(sig,highfrequency,highfrequency+stopbandwidth_high,ripple,stopbandatten); +else + filtered_sig_low=sig; +end + +if grafix + figure(235340) + plot(powerspectrum(filtered_sig_low),[100,getsr(filtered_sig_low)/2],'r') +end + + +if lowfrequency>0 && lowfrequency<getsr(sig)/2 + filtered_sig=highpass(filtered_sig_low,lowfrequency,lowfrequency-stopbandwidth_low,ripple,stopbandatten); +else + filtered_sig=filtered_sig_low; +end +if grafix + figure(235340) + plot(powerspectrum(filtered_sig),[100,getsr(filtered_sig_low)/2],'g') +end + + +return + + +% if nargin < 4 +% ripple=1; % in dB = ripple in the passband +% end +% if nargin <3 +% stopband=frequency*2; % eine Oktave drüber +% end + +ripple=3; + +nyquist=getsr(sig)/2; +% fre_low=2; +% fre_high=frequency; + +Wpass=[lowfrequency highfrequency]/nyquist; +Wstop=[lowfrequency-stopbandwidth highfrequency+stopbandwidth]/nyquist; +[n,Wn] = buttord(Wpass,Wstop,ripple,stopbandatten); +% [n,Wn] = buttord(fre_high/nyquist,(fre_high+stopband)/nyquist,ripple,stopbandatten); +% Berechne den IIR-Filter +[b,a] = butter(n,Wn); + +% zum testen: +freqz(b,a,128,getsr(sig)) + +vals=sig.werte'; + +% fill the part behind the signal and in front of the signal with +% values +% firstval=vals(1); +% lastval=vals(end); +% nr_vals=length(vals); +% vals=[ones(1,nr_vals)*firstval vals ones(1,nr_vals)*lastval]; + +plot(vals) +hold on + +nvals = filter(b,a,vals); +% nvals = filtfilt(b,a,vals); +% extract the values back +% nvals=nvals(nr_vals+1:2*nr_vals); + +plot(nvals,'r') + +% filtered_sig=0; +% return + +filtered_sig=sig; % a copy of the old one +newname=sprintf('Bandpass filterd (%3.2fkHz - %3.2fkHz) Signal: %s',lowfrequency/1000,highfrequency/1000,getname(sig)); +filtered_sig=setname(filtered_sig,newname); +filtered_sig.werte=nvals'; + +% figure(235423) +% plot(sig); +% hold on +% plot(filtered_sig,'g'); +% s=0;
--- a/aim-mat/tools/@signal/bin.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/bin.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % calculate the binned version of the signal function retsig=bin(sig,binwidth)
--- a/aim-mat/tools/@signal/bin2time.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/bin2time.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,11 +9,13 @@ % RETURN VALUE: % res: time of bin in seconds % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=bin2time(sig,val) % gibt die Zeit zurück, bei dem dieses Bin ist
--- a/aim-mat/tools/@signal/buildfrompoints.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/buildfrompoints.m Tue Aug 16 14:36:30 2011 +0100 @@ -10,11 +10,13 @@ % RETURN VALUE: % sig: new @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=buildfrompoints(sig,xx,yy)
--- a/aim-mat/tools/@signal/buildspikesfrompoints.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/buildspikesfrompoints.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,12 @@ % RETURN VALUE: % sig: new @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=buildspikesfrompoints(sig,xx,yy) % uage: sig=buildspikesfrompoints(sig,xx,yy)
--- a/aim-mat/tools/@signal/calculatephase.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/calculatephase.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [phase,vectorstrength,strength]=calculatephase(stim,freq,grafix) % calculates the phase in radian for the stimulus in stim given a frequency
--- a/aim-mat/tools/@signal/changesr.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/changesr.m Tue Aug 16 14:36:30 2011 +0100 @@ -10,12 +10,12 @@ % % RETURN VALUE: % sigresult: @signal ` -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=changesr(a,sr_neu)
--- a/aim-mat/tools/@signal/ci_simulate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/ci_simulate.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,12 @@ % RETURN VALUE: % sigresult: @signal ` % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/20 18:33:51 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=ci_simulate(sigorg) % stolen from AMO.m
--- a/aim-mat/tools/@signal/complexfilter.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/complexfilter.m Tue Aug 16 14:36:30 2011 +0100 @@ -3,11 +3,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=complexfilter(sig,formant_fre,formant_fre_width,formant_amp) % creates an vocal by filtering the signal (wich probably is a clicktrain)
--- a/aim-mat/tools/@signal/convolute.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/convolute.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,13 @@ % RETURN VALUE: % @sig: the convolution values at each delay % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/02/12 19:08:38 $ -% $Revision: 1.2 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=convolute(sig1,sig2)
--- a/aim-mat/tools/@signal/copy.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/copy.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,11 +9,12 @@ % RETURN VALUE: % sigresult: @signal ` % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=copy(a,b,start_time)
--- a/aim-mat/tools/@signal/createfrompoly.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/createfrompoly.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=createfrompoly(sig,p) % creates the signal from the points in the polynoms p (very useful with % polynomes that come from a fit
--- a/aim-mat/tools/@signal/crosscorrelate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/crosscorrelate.m Tue Aug 16 14:36:30 2011 +0100 @@ -15,11 +15,13 @@ % RETURN VALUE: % @sig: the correlation values at each delay % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=crosscorrelate(sig1,sig2,delay_start,delay_stop,normalization_mode)
--- a/aim-mat/tools/@signal/delay.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/delay.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,11 +6,13 @@ % INPUT VALUES: % sig: original @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=delay(sig,del)
--- a/aim-mat/tools/@signal/disp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/disp.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % INPUT VALUES: % sig: original @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function disp(sig) disp(sprintf('%s',sig.name));
--- a/aim-mat/tools/@signal/display.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/display.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % INPUT VALUES: % sig: original @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function display(sig)
--- a/aim-mat/tools/@signal/edit.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/edit.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function edit(sig) % opens the signal in CoolEdit (if installed) name='temp_signal_in_edit';
--- a/aim-mat/tools/@signal/envelope.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/envelope.m Tue Aug 16 14:36:30 2011 +0100 @@ -18,11 +18,13 @@ % RETURN VALUE: % env: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function env=envelope(sig,mintime,maxtime,mincontrast)
--- a/aim-mat/tools/@signal/erb2log.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/erb2log.m Tue Aug 16 14:36:30 2011 +0100 @@ -12,11 +12,13 @@ % RETURN VALUE: % sig: new @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=erb2log(sig,cfs)
--- a/aim-mat/tools/@signal/exp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/exp.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=exp(sig) % exp the stimulus
--- a/aim-mat/tools/@signal/expand.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/expand.m Tue Aug 16 14:36:30 2011 +0100 @@ -12,11 +12,12 @@ % RETURN VALUE: % time: time, when signal is bigger 0 for first time % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=expand(a,newlength,value)
--- a/aim-mat/tools/@signal/fill.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/fill.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,12 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function rethandle=fill(sig,border,stil) % usage: handle=fill(sig,border,stil)
--- a/aim-mat/tools/@signal/firsttimebiggerzero.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/firsttimebiggerzero.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,13 @@ % RETURN VALUE: % time: time, when signal is bigger 0 for first time % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function time=firsttimebiggerzero(sig)
--- a/aim-mat/tools/@signal/gen_complex_damp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gen_complex_damp.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:44 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=gen_complex_damp(orgsig,carriers,halflifes,reprate,amplitudes)
--- a/aim-mat/tools/@signal/gen_frog.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gen_frog.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % function to generate an artificial vowel function sig=gen_frog(sig,options) % vowel,pitch,scale,halflifeconstant,onsettimeconstant,pitch_jitter,formant_jitter,formant_jitter_bw);%
--- a/aim-mat/tools/@signal/gen_jittered_clicktrains.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gen_jittered_clicktrains.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [target_signal,flanking_signal,only_regular_clicktrain,only_irregular_clicktrain]= ... gen_jittered_clicktrains(orgsig,jitter,delay,target_fre,flanker_fre,Gain,FlankerMode,FlankerDelay,grafix) %
--- a/aim-mat/tools/@signal/gen_vowel.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gen_vowel.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,329 +1,346 @@ -% function to generate an artificial vowel -function sig=gen_vowel(sig,options) -% vowel,pitch,scale,halflifeconstant,onsettimeconstant,pitch_jitter,formant_jitter,formant_jitter_bw);% - -if nargin < 2 - options=[]; -end - - -% jitterwidth of jitter in formant frequencies -%formant_jitter_bw=1; %bandwidth specified in octaves over which the formants are jittered -if isfield(options,'formant_jitter_bw') - formant_jitter_bw=options.formant_jitter_bw; -else - formant_jitter_bw=1; % in octaves -end -% jitter in percent of bandwidth -%formant_jitter=0.0; %------- range is 0 to 1, representing 0% to 100% -if isfield(options,'formant_jitter') - formant_jitter=options.formant_jitter; -else - formant_jitter=0.03; % -end -% jitter in pitch -%pitch_jitter=0.0; %------- range is 0 to 1, representing 0% to 100% -if isfield(options,'pitch_jitter') - pitch_jitter=options.pitch_jitter; -else - pitch_jitter=0.01; -end -% the rise of a damped sinusoid is not instantaneous, but like a gamma -% functin with the following power of t: -if isfield(options,'onsettimeconstant') - onsettimeconstant=options.onsettimeconstant; -else - onsettimeconstant=0.5; -end% halflife of each formant is calculated by dividing this number by the -% formant frequency: -% if halflifeconstant<=0, then fixed to 4 ms -if isfield(options,'halflifeconstant') - halflifeconstant=options.halflifeconstant; -else - halflifeconstant=3; -end -% scaling = 1: normal speaker -if isfield(options,'scale') - scale=options.scale; -else - scale=1; -end -% f0 -if isfield(options,'pitch') - pitch=options.pitch; -else - pitch=100; -end -% how long the decay should continue longer then the reprate -if isfield(options,'carry_decay') - carry_decay_parameter=options.carry_decay; -else - carry_decay_parameter=1; -end -% normal or is it the octave? In this case, we jump over each second -if isfield(options,'do_octave') - do_octave=options.do_octave; -else - do_octave=0; -end -% type of vowel: 'a','e','i','o','u' -if isfield(options,'vowel') - vowel=options.vowel; -else - vowel='a'; -end - - - -if nargin < 1 - sig=signal(0.5,16000); -end -sr=getsr(sig); -dur_time=getlength(sig); - - -nr_formants=4; - - -switch vowel - case 'a'; - formfre(1)=730; formfre(2)=1090; formfre(3)=2440; formfre(4)=3300;% standard formant freqs - case 'e'; - formfre(1)=400; formfre(2)=1990; formfre(3)=2550; formfre(4)=3700; % standard formant freqs - case 'i'; - formfre(1)=270; formfre(2)=2260; formfre(3)=3000; formfre(4)=3700;% standard formant freqs - case 'o'; - formfre(1)=570; formfre(2)=850; formfre(3)=2430; formfre(4)=3300;% standard formant freqs - case 'u'; - formfre(1)=300; formfre(2)=850; formfre(3)=2260; formfre(4)=3700;% standard formant freqs - otherwise - error('signal::gen_vowel: dont know vowel'); -end - -% fix all formants to the nearest harmonic of the fundamental -if isfield(options,'adjust_to_nearest_harmonic') - if options.adjust_to_nearest_harmonic==1 - f0=options.pitch; - for formant=1:nr_formants - fre=formfre(formant); - newfre=round(fre/f0)*f0; - formfre(formant)=newfre; - end - end -end - - -formfre=formfre.*scale; -dur_samp=dur_time.*sr; %length of vowel defined in sample points -sgpp=1/pitch; %standard glottal pulse period. -pitch_jitter=max(0,min(1,pitch_jitter)); -t=[0:1/sr:(dur_time-(1/sr))]; %our time sequence -dur_samp=dur_time.*sr; %length of vowel defined in sample points - - -%we now generate a sequence, specified in sample points, which -%define the spacing of glottal pulses. With zero pitch_jitter the sequence -%is regular (1/pitch). With a pitch_jitter value of 1 the spacing of glottal -%pulses fall in a range with an upper limit of double the period of -%the pitch and a lower limit of 1/sampling rate. -%The average spacing of glottal pulses is approx 1/pitch -lwr_pth_jit=0.5-(pitch_jitter/2); -upr_pth_jit=0.5+(pitch_jitter/2); - -gp=cell(nr_formants,1); %for each formant will store pulse time -for formant=1:nr_formants - enough_pulses=0; - pulse_number=0; - while enough_pulses==0 - pulse_number=pulse_number+1; - pulse_spacing(pulse_number)=max(1,floor(sr.*(sgpp.*2.*(lwr_pth_jit+(upr_pth_jit-lwr_pth_jit)*rand(1))))); - pulse_time(pulse_number)=sum(pulse_spacing)-pulse_spacing(1)+1; - if pulse_time(pulse_number)>=dur_samp - pulse_time=pulse_time(1:pulse_number-1); - pulse_number=pulse_number-1; - enough_pulses=1; - else - end - end - - - gp{formant}=pulse_time; - clear pulse_time; - clear pulse_spacing; - no_pulses(formant)=length(gp{formant}); - pulse_times{formant}=gp{formant}; -end%formant - -formant_jitter=max(0,min(1,formant_jitter)); - -% if no gamma tone, then precalculate the damping function once for all -% if onsettimeconstant <= 0 && halflifeconstant==0 - hl=0.04; - damping=exp(t.*log(0.5)/hl); %this decays to 0.5 after hl seconds - damping=damping/max(damping); -% end - -onsettimes=power(t,onsettimeconstant); - - -%-------------------------------------------------------------------------- -for formant=1:nr_formants - lw_log(formant)=max(log10(150), (log10(formfre(formant))- ((formant_jitter_bw.*.3)/2) ) ); %cannot go below 150Hz - lw_log_adj(formant)=log10(formfre(formant))-((log10(formfre(formant))-lw_log(formant)).*formant_jitter); - up_log(formant)=min(log10(4500),log10(formfre(formant))+ ((formant_jitter_bw.*.3)/2)) ; - up_log_adj(formant)=log10(formfre(formant))+((up_log(formant)-log10(formfre(formant))).*formant_jitter); -end - - -% if we want to generate the octave, we take exactly the same pulses and -% frequencies, but only every second one: -if do_octave - pulse_step=2; -else - pulse_step=1; -end - -nr_points=length(t); -final_wave=zeros(dur_samp,nr_formants); -for formant=1:nr_formants - for count=1:pulse_step:no_pulses(formant)-1 - oneortwo=randperm(2); - if oneortwo(1)==1 - freq=10.^((lw_log_adj(formant)+(log10(formfre(formant))-lw_log_adj(formant))*rand(1))); %lower range - else - freq=10.^((log10(formfre(formant))+(up_log_adj(formant)-log10(formfre(formant)))*rand(1))); %upper range - end - - if freq>1000 - no_octave=((log10(freq)-3))/.3; - lev=-12.*no_octave; - else - lev=0; - end - amp=10.^(lev/20); - - if halflifeconstant<=0 - hl=0.004; - else - hl=halflifeconstant/freq; - end - - nr_relevant_points=pulse_times{formant}(count+1)-pulse_times{formant}(count); - - nr_relevant_points=nr_relevant_points*carry_decay_parameter; - - if onsettimeconstant > 0 - damping=zeros(nr_relevant_points,1); - for jj=1:nr_relevant_points - damping(jj)=onsettimes(jj)*exp(t(jj)*log(0.5)/hl); %this decays to 0.5 after hl seconds - end - damping=damping/max(damping); - end - grafix=0; - if grafix==1 - figure(234) - plot(damping); - end - - this_formant=zeros(nr_relevant_points,1); - for jj=1:nr_relevant_points - sinsin=sin(2*pi*freq*t(jj)); - this_formant(jj)=amp*sinsin*damping(jj); - end - start_nr=pulse_times{formant}(count); - stop_nr=start_nr+nr_relevant_points-1; - - if stop_nr> nr_points - nr_new=nr_points-start_nr+1; - this_formant=this_formant(1:nr_new); - stop_nr=nr_points; - final_wave(start_nr:stop_nr,formant)= final_wave(start_nr:stop_nr,formant)+this_formant; - else - final_wave(start_nr:stop_nr,formant)= final_wave(start_nr:stop_nr,formant)+this_formant; - end - end -end -final_wave_total=zeros(dur_samp,1); -for formant=1:nr_formants - final_wave_total=final_wave_total+final_wave(:,formant); -end - -% sig=signal(final_wave_total,sr); - -if isfield(options,'rise_time') - rise_time=options.rise_time; -else - rise_time=0.015; -end - -if isfield(options,'fall_time') - fall_time=options.fall_time; -else - fall_time=0.1; -end - -% sigvals= -final_wave_total=gate_on_off(rise_time,fall_time,final_wave_total,sr); -sig=signal(final_wave_total,sr); -% -% hold_time=length(sig)-rise_time-fall_time; -% attack=linspace(0,1,round(rise_time*sr)); -% -% hold=ones(1,round(hold_time*sr)); -% release=linspace(1,0,round(fall_time*sr)); -% envelope=[attack hold release]; -% envelope=envelope(1:getnrpoints(sig)); -% envelope=signal(envelope,sr); -% sig=sig*envelope; - - -function amp=calc_level(freq); -%determines the level of a signal at a given frequency after it -%has been filtered with a low-pass filter of 12dB/octave at 1kHz -%first calculate if frequency is above 1kHz and if so by how many octaves -%then multiply by slope. -if freq>1000 - no_octave=((log10(freq)-3))/.3; - lev=-12.*no_octave; -else - lev=0; -end -amp=10.^(lev/20); - - - -function output=gate_on_off(onset,offset,input,sr) -%check duration of signal is large enough for both the onset and offset -%values. - -sig_length_samp=length(input); -onset_length_samp=floor(onset.*sr); -offset_length_samp=floor(offset.*sr); - -if (onset_length_samp+offset_length_samp)>sig_length_samp - output=0; - disp('---ERROR--- onset and offset duration too large for signal'); - return -else end - - -%generate onset and offset amplitudes -n_on=onset_length_samp; -k=[1:1:n_on]; -onset_win=(1-cos(2.*pi.*(k./(2.*(n_on-1)))))./2; - -n_off=offset_length_samp; -k=[1:1:n_off]; -offset_win=0.5+((cos(2.*pi.*(k./(2.*(n_off-1)))))./2); - - - -total_window=ones(sig_length_samp,1); -total_window(1:onset_length_samp)=onset_win; -total_window(sig_length_samp-offset_length_samp+1:sig_length_samp)=offset_win; - - - -output=input.*total_window; - -return +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org +% function to generate an artificial vowel +function sig=gen_vowel(sig,options) +% vowel,pitch,scale,halflifeconstant,onsettimeconstant,pitch_jitter,formant_jitter,formant_jitter_bw);% + +if nargin < 2 + options=[]; +end + + +% jitterwidth of jitter in formant frequencies +%formant_jitter_bw=1; %bandwidth specified in octaves over which the formants are jittered +if isfield(options,'formant_jitter_bw') + formant_jitter_bw=options.formant_jitter_bw; +else + formant_jitter_bw=1; % in octaves +end +% jitter in percent of bandwidth +%formant_jitter=0.0; %------- range is 0 to 1, representing 0% to 100% +if isfield(options,'formant_jitter') + formant_jitter=options.formant_jitter; +else + formant_jitter=0.03; % +end +% jitter in pitch +%pitch_jitter=0.0; %------- range is 0 to 1, representing 0% to 100% +if isfield(options,'pitch_jitter') + pitch_jitter=options.pitch_jitter; +else + pitch_jitter=0.01; +end +% the rise of a damped sinusoid is not instantaneous, but like a gamma +% functin with the following power of t: +if isfield(options,'onsettimeconstant') + onsettimeconstant=options.onsettimeconstant; +else + onsettimeconstant=0.5; +end% halflife of each formant is calculated by dividing this number by the +% formant frequency: +% if halflifeconstant<=0, then fixed to 4 ms +if isfield(options,'halflifeconstant') + halflifeconstant=options.halflifeconstant; +else + halflifeconstant=3; +end +% scaling = 1: normal speaker +if isfield(options,'scale') + scale=options.scale; +else + scale=1; +end +% f0 +if isfield(options,'pitch') + pitch=options.pitch; +else + pitch=100; +end +% how long the decay should continue longer then the reprate +if isfield(options,'carry_decay') + carry_decay_parameter=options.carry_decay; +else + carry_decay_parameter=1; +end +% normal or is it the octave? In this case, we jump over each second +if isfield(options,'do_octave') + do_octave=options.do_octave; +else + do_octave=0; +end +% type of vowel: 'a','e','i','o','u' +if isfield(options,'vowel') + vowel=options.vowel; +else + vowel='a'; +end + +% +% which formants +if isfield(options,'use_formants') + use_formants=options.use_formants; +else + use_formants=[1 2 3 4]; +end + +if nargin < 1 + sig=signal(0.5,16000); +end +sr=getsr(sig); +dur_time=getlength(sig); + + +nr_formants=length(use_formants); + + +switch vowel + case 'a'; + formfre_org(1)=730; formfre_org(2)=1090; formfre_org(3)=2440; formfre_org(4)=3300;% standard formant freqs + case 'e'; + formfre_org(1)=400; formfre_org(2)=1990; formfre_org(3)=2550; formfre_org(4)=3700; % standard formant freqs + case 'i'; + formfre_org(1)=270; formfre_org(2)=2260; formfre_org(3)=3000; formfre_org(4)=3700;% standard formant freqs + case 'o'; + formfre_org(1)=570; formfre_org(2)=850; formfre_org(3)=2430; formfre_org(4)=3300;% standard formant freqs + case 'u'; + formfre_org(1)=300; formfre_org(2)=850; formfre_org(3)=2260; formfre_org(4)=3700;% standard formant freqs + otherwise + error('signal::gen_vowel: dont know vowel'); +end + +for i=1:length(use_formants) + formfre(i)=formfre_org(use_formants(i)); +end + + +% fix all formants to the nearest harmonic of the fundamental +if isfield(options,'adjust_to_nearest_harmonic') + if options.adjust_to_nearest_harmonic==1 + f0=options.pitch; + for formant=1:nr_formants + fre=formfre(formant); + newfre=round(fre/f0)*f0; + formfre(formant)=newfre; + end + end +end + + +formfre=formfre.*scale; +dur_samp=dur_time.*sr; %length of vowel defined in sample points +sgpp=1/pitch; %standard glottal pulse period. +pitch_jitter=max(0,min(1,pitch_jitter)); +t=[0:1/sr:(dur_time-(1/sr))]; %our time sequence +dur_samp=dur_time.*sr; %length of vowel defined in sample points + + +%we now generate a sequence, specified in sample points, which +%define the spacing of glottal pulses. With zero pitch_jitter the sequence +%is regular (1/pitch). With a pitch_jitter value of 1 the spacing of glottal +%pulses fall in a range with an upper limit of double the period of +%the pitch and a lower limit of 1/sampling rate. +%The average spacing of glottal pulses is approx 1/pitch +lwr_pth_jit=0.5-(pitch_jitter/2); +upr_pth_jit=0.5+(pitch_jitter/2); + +gp=cell(nr_formants,1); %for each formant will store pulse time +for formant=1:nr_formants + enough_pulses=0; + pulse_number=0; + while enough_pulses==0 + pulse_number=pulse_number+1; + pulse_spacing(pulse_number)=max(1,floor(sr.*(sgpp.*2.*(lwr_pth_jit+(upr_pth_jit-lwr_pth_jit)*rand(1))))); + pulse_time(pulse_number)=sum(pulse_spacing)-pulse_spacing(1)+1; + if pulse_time(pulse_number)>=dur_samp + pulse_time=pulse_time(1:pulse_number-1); + pulse_number=pulse_number-1; + enough_pulses=1; + else + end + end + + + gp{formant}=pulse_time; + clear pulse_time; + clear pulse_spacing; + no_pulses(formant)=length(gp{formant}); + pulse_times{formant}=gp{formant}; +end%formant + +formant_jitter=max(0,min(1,formant_jitter)); + +% if no gamma tone, then precalculate the damping function once for all +% if onsettimeconstant <= 0 && halflifeconstant==0 + hl=0.04; + damping=exp(t.*log(0.5)/hl); %this decays to 0.5 after hl seconds + damping=damping/max(damping); +% end + +onsettimes=power(t,onsettimeconstant); + + +%-------------------------------------------------------------------------- +for formant=1:nr_formants + lw_log(formant)=max(log10(150), (log10(formfre(formant))- ((formant_jitter_bw.*.3)/2) ) ); %cannot go below 150Hz + lw_log_adj(formant)=log10(formfre(formant))-((log10(formfre(formant))-lw_log(formant)).*formant_jitter); + up_log(formant)=min(log10(4500),log10(formfre(formant))+ ((formant_jitter_bw.*.3)/2)) ; + up_log_adj(formant)=log10(formfre(formant))+((up_log(formant)-log10(formfre(formant))).*formant_jitter); +end + + +% if we want to generate the octave, we take exactly the same pulses and +% frequencies, but only every second one: +if do_octave + pulse_step=2; +else + pulse_step=1; +end + +nr_points=length(t); +final_wave=zeros(dur_samp,nr_formants); +for formant=1:nr_formants + for count=1:pulse_step:no_pulses(formant)-1 + oneortwo=randperm(2); + if oneortwo(1)==1 + freq=10.^((lw_log_adj(formant)+(log10(formfre(formant))-lw_log_adj(formant))*rand(1))); %lower range + else + freq=10.^((log10(formfre(formant))+(up_log_adj(formant)-log10(formfre(formant)))*rand(1))); %upper range + end + + if freq>1000 + no_octave=((log10(freq)-3))/.3; + lev=-12.*no_octave; + else + lev=0; + end + amp=10.^(lev/20); + + if halflifeconstant<=0 + hl=0.004; + else + hl=halflifeconstant/freq; + end + + nr_relevant_points=pulse_times{formant}(count+1)-pulse_times{formant}(count); + + nr_relevant_points=nr_relevant_points*carry_decay_parameter; + + if onsettimeconstant > 0 + damping=zeros(nr_relevant_points,1); + for jj=1:nr_relevant_points + damping(jj)=onsettimes(jj)*exp(t(jj)*log(0.5)/hl); %this decays to 0.5 after hl seconds + end + damping=damping/max(damping); + end + grafix=0; + if grafix==1 + figure(234) + plot(damping); + end + + this_formant=zeros(nr_relevant_points,1); + for jj=1:nr_relevant_points + sinsin=sin(2*pi*freq*t(jj)); + this_formant(jj)=amp*sinsin*damping(jj); + end + start_nr=pulse_times{formant}(count); + stop_nr=start_nr+nr_relevant_points-1; + + if stop_nr> nr_points + nr_new=nr_points-start_nr+1; + this_formant=this_formant(1:nr_new); + stop_nr=nr_points; + final_wave(start_nr:stop_nr,formant)= final_wave(start_nr:stop_nr,formant)+this_formant; + else + final_wave(start_nr:stop_nr,formant)= final_wave(start_nr:stop_nr,formant)+this_formant; + end + end +end +final_wave_total=zeros(dur_samp,1); +for formant=1:nr_formants + final_wave_total=final_wave_total+final_wave(:,formant); +end + +% sig=signal(final_wave_total,sr); + +if isfield(options,'rise_time') + rise_time=options.rise_time; +else + rise_time=0.015; +end + +if isfield(options,'fall_time') + fall_time=options.fall_time; +else + fall_time=0.1; +end + +% sigvals= +final_wave_total=gate_on_off(rise_time,fall_time,final_wave_total,sr); +sig=signal(final_wave_total,sr); +% +% hold_time=length(sig)-rise_time-fall_time; +% attack=linspace(0,1,round(rise_time*sr)); +% +% hold=ones(1,round(hold_time*sr)); +% release=linspace(1,0,round(fall_time*sr)); +% envelope=[attack hold release]; +% envelope=envelope(1:getnrpoints(sig)); +% envelope=signal(envelope,sr); +% sig=sig*envelope; + + +function amp=calc_level(freq); +%determines the level of a signal at a given frequency after it +%has been filtered with a low-pass filter of 12dB/octave at 1kHz +%first calculate if frequency is above 1kHz and if so by how many octaves +%then multiply by slope. +if freq>1000 + no_octave=((log10(freq)-3))/.3; + lev=-12.*no_octave; +else + lev=0; +end +amp=10.^(lev/20); + + + +function output=gate_on_off(onset,offset,input,sr) +%check duration of signal is large enough for both the onset and offset +%values. + +sig_length_samp=length(input); +onset_length_samp=floor(onset.*sr); +offset_length_samp=floor(offset.*sr); + +if (onset_length_samp+offset_length_samp)>sig_length_samp + output=0; + disp('---ERROR--- onset and offset duration too large for signal'); + return +else end + + +%generate onset and offset amplitudes +n_on=onset_length_samp; +k=[1:1:n_on]; +onset_win=(1-cos(2.*pi.*(k./(2.*(n_on-1)))))./2; + +n_off=offset_length_samp; +k=[1:1:n_off]; +offset_win=0.5+((cos(2.*pi.*(k./(2.*(n_off-1)))))./2); + + + +total_window=ones(sig_length_samp,1); +total_window(1:onset_length_samp)=onset_win; +total_window(sig_length_samp-offset_length_samp+1:sig_length_samp)=offset_win; + + + +output=input.*total_window; + +return
--- a/aim-mat/tools/@signal/genam.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/genam.m Tue Aug 16 14:36:30 2011 +0100 @@ -10,11 +10,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=genam(sig,fc,f0,modgrad)
--- a/aim-mat/tools/@signal/genbandpassnoise.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/genbandpassnoise.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=genbandpassnoise(sig,lowfrequency,highfrequency) % steepness is given in dB per octave (to make it compatible with Fastl)
--- a/aim-mat/tools/@signal/generate_kurtosis_noise.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generate_kurtosis_noise.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [sig,x_pdf,y_pdf]=generate_kurtosis_noise(sig,kurtosis_wanted) % generate a signal with a given kurtosis
--- a/aim-mat/tools/@signal/generateamnoise.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generateamnoise.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=generateAMnoise(sig,fre,modgrad)
--- a/aim-mat/tools/@signal/generateclicktrain.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generateclicktrain.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,11 +8,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=generateclicktrain(sig,frequency,amplitude)
--- a/aim-mat/tools/@signal/generatedampsinus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generatedampsinus.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,80 +1,345 @@ -% method of class @signal -% function sig=generatedampsinus(sig,carfre,modfre,amplitude,halflife) -% INPUT VALUES: -% sig: original @signal with length and samplerate -% carfre: carrier frequency (Hz) [1000] -% modfre: modulation frequency (Hz) [100] -% amplitude: [1] -% halflife: time for the envelope envelope to decrease exponentielly -% to 1/2 -% -% RETURN VALUE: -% sig: @signal -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - - -function sig=generatedampsinus(sig,carfre,modfre,amplitude,halflife,onsettime) -% generates a damped sinusoid, that is a carrier pure tone modulated with a -% exponentially decreasing envelope. -% sig is the signal -% carfre is the carrier frequency of the pure tone -% modfre is the modulation frequency (in Hz) -% amplitude is the final amplitude -% halflife is the time in seconds, in which the envelope drops to its half value -% onsettime is the time in wich the envelope reaches its maximum in seconds -% shift is a shift of the envelope in seconds - - -% if nargin < 7 -% shift=0; -% end -if nargin < 6 - onsettime=0; -end -if nargin < 5 - halflife=0.01; -end -if nargin < 4 - amplitude=1; -end - -if nargin < 3 - modfre=100; -end -if nargin < 2 - carfre=1000; -end - - -sinus=generatesinus(sig,carfre,amplitude,0); - -% calculate envelope and mult both -envelope=sig; -time_const=halflife/0.69314718; - -env_vals=getvalues(envelope); -time=0; -sr=getsr(envelope); -reprate=1/modfre; - -for i=1:getnrpoints(envelope); - time=time+1/sr; - -% env_vals(i)= exp(-(time)/time_const); - env_vals(i)= power(time,onsettime)*exp(-(time)/time_const); - time=mod(time,reprate); - -end -envelope=setvalues(envelope,env_vals); -envelope=envelope/max(envelope)*amplitude; -envelope=setstarttime(envelope,0); - -% set the envelope and the amplitude -sig=sinus*envelope; - -sig=setname(sig,sprintf('Damped Sinus %4.2f kHz, Modulation=%4.2f Hz, halflife=%4.2f ms',carfre/1000,modfre,halflife*1000)); \ No newline at end of file +% method of class @signal +% function sig=generatedampsinus(sig,carfre,modfre,amplitude,halflife) +% INPUT VALUES: +% sig: original @signal with length and samplerate +% carfre: carrier frequency (Hz) [1000] +% modfre: modulation frequency (Hz) [100] +% amplitude: [1] +% halflife: time for the envelope envelope to decrease exponentielly +% to 1/2 +% +% +% RETURN VALUE: +% sig: @signal +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + + +function sig=generatedampsinus(sig,carfre,modfre,amplitude,halflife,jitter) +% generates a damped sinusoid, that is a carrier pure tone modulated with a +% exponentially decreasing envelope. +% sig is the signal +% carfre is the carrier frequency of the pure tone +% modfre is the modulation frequency (in Hz) +% amplitude is the final amplitude +% halflife is the time in seconds, in which the envelope drops to its half value +% if halflife is 'gamma', instead a gammaenvelope is used + +% jitter is how regular the pulses are (0-1) 1=100% +% if jitter is 'repeat', only one pulse is generated and repeated + + +if nargin < 6 + jitter=0; +end +if nargin < 5 + halflife=0.01; +end +if nargin < 4 + amplitude=1; +end + +if nargin < 3 + modfre=100; +end +if nargin < 2 + carfre=1000; +end + + + + +if isequal(halflife,'gamma') && isequal(jitter,'repeat') + % code for Tom's 2010 MSc project + + % generate only one period and repeat it n times + sr=getsr(sig); + periodlen=1/modfre; + oneperiod=signal(periodlen,sr); + + sinus=generatesinus(oneperiod,carfre,amplitude,0); + + % calculate envelope and mult both + envelope=oneperiod; + t=[0:1/sr:periodlen-1/sr]*500*(500/getnrpoints(envelope)); + env=power(t,4).*exp(-2*pi*t/2); + env=env./max(env); + envelope=setvalues(envelope,env); + envelope=envelope/max(envelope)*amplitude; + envelope=setstarttime(envelope,0); + + % set the envelope and the amplitude + oneperiod=sinus*envelope; + + % repeat for the right number of repeats + nr_repeats=round(getlength(sig)/getlength(envelope)); + fsig=oneperiod; + + if nr_repeats>1 + for i=1:nr_repeats-1 + fsig=append(fsig,oneperiod); + end + end + + sig=fsig; + + sig=setname(sig,sprintf('damped sinusoid %4.2f kHz, Modulation=%4.1f Hz, gamma envelope',carfre/1000,modfre)); + + % figure(1) + % plot(env) + + return +end + + + + + + + + + + + + + + + + + + +sinus=generatesinus(sig,carfre,amplitude,0); + +% calculate envelope and mult both +envelope=sig; + +time_const=halflife/0.69314718; + +env_vals=getvalues(envelope); +sr=getsr(envelope); +reprate=1/modfre; + + +sig_len=getlength(sig); +% when regular, all modulataions are at the same time: +if jitter==0 + pulse_times=0:reprate:sig_len; +else + nr_pulses=ceil(sig_len/reprate); + modulation_period=1/modfre; + pulse_times(1)=0; + for n = 2:nr_pulses + jittering=(rand-0.5*jitter)*modulation_period; + pulse_times(n) = pulse_times(n-1) + modulation_period+jittering; + end +end + + + +% oldval=0; +% corr=exp(1/sr/time_const); +% t=0; +next_pulse=pulse_times(1); +pulse_counter=1; + +% for i=1:getnrpoints(envelope); +% oldval=oldval/corr; +% t=t+1/sr; +% if t>next_pulse +% oldval=1; +% pulse_counter=pulse_counter+1; +% if length(pulse_times)>=pulse_counter +% next_pulse=pulse_times(pulse_counter); +% else +% next_pulse=inf; +% end +% end +% env_vals(i)= oldval; +% end + +% onsettimeconstant +% +t=[0:1/sr:reprate-1/sr]*500; +env=power(t,4).*exp(-2*pi*t/2); +env=env./max(env); + +% e=linspace(env(length(env)-l),0,l+1); +% env(length(env)-l:end)=e; + +% e=linspace(1,0,l+1); +% env(length(env)-l:end)=env(length(env)-l:end).*e.*e; + +t=0; +ct=1; +for i=1:getnrpoints(envelope); + t=t+1/sr; + ct=ct+1; + if t>next_pulse + ct=1; + pulse_counter=pulse_counter+1; + if length(pulse_times)>=pulse_counter + next_pulse=pulse_times(pulse_counter); + else + next_pulse=inf; + end + end + if ct>length(env) + env_vals(i)= 0; + else + env_vals(i)= env(ct); + end +end + + + +% +% onsettime=0; +% for i=1:getnrpoints(envelope); +% t=t+1/sr; +% +% % env_vals(i)= exp(-(time)/time_const); +% env_vals(i)= power(t,onsettime)*exp(-(t)/time_const); +% t=mod(t,reprate); +% +% end +envelope=setvalues(envelope,env_vals); +envelope=envelope/max(envelope)*amplitude; +envelope=setstarttime(envelope,0); + +% set the envelope and the amplitude +sig=sinus*envelope; + +sig=setname(sig,sprintf('damped sinusoid %4.2f kHz, Modulation=%4.1f Hz, halflife=%4.1f ms',carfre/1000,modfre,halflife*1000)); + +% plot(sig) + + + + + + + + + + + + + + + + +% +% +% +% % from here on old code, might not work! +% +% sinus=generatesinus(sig,carfre,amplitude,0); +% +% % calculate envelope and mult both +% envelope=sig; +% +% time_const=halflife/0.69314718; +% +% env_vals=getvalues(envelope); +% sr=getsr(envelope); +% reprate=1/modfre; +% +% +% sig_len=getlength(sig); +% % when regular, all modulataions are at the same time: +% if jitter==0 +% pulse_times=0:reprate:sig_len; +% else +% nr_pulses=ceil(sig_len/reprate); +% modulation_period=1/modfre; +% pulse_times(1)=0; +% for n = 2:nr_pulses +% jittering=(rand-0.5*jitter)*modulation_period; +% pulse_times(n) = pulse_times(n-1) + modulation_period+jittering; +% end +% end +% +% +% +% % oldval=0; +% % corr=exp(1/sr/time_const); +% % t=0; +% next_pulse=pulse_times(1); +% pulse_counter=1; +% +% % for i=1:getnrpoints(envelope); +% % oldval=oldval/corr; +% % t=t+1/sr; +% % if t>next_pulse +% % oldval=1; +% % pulse_counter=pulse_counter+1; +% % if length(pulse_times)>=pulse_counter +% % next_pulse=pulse_times(pulse_counter); +% % else +% % next_pulse=inf; +% % end +% % end +% % env_vals(i)= oldval; +% % end +% +% % onsettimeconstant +% % +% t=[0:1/sr:reprate-1/sr]*500; +% env=power(t,4).*exp(-2*pi*t/2); +% env=env./max(env); +% +% % e=linspace(env(length(env)-l),0,l+1); +% % env(length(env)-l:end)=e; +% +% % e=linspace(1,0,l+1); +% % env(length(env)-l:end)=env(length(env)-l:end).*e.*e; +% +% t=0; +% ct=1; +% for i=1:getnrpoints(envelope); +% t=t+1/sr; +% ct=ct+1; +% if t>next_pulse +% ct=1; +% pulse_counter=pulse_counter+1; +% if length(pulse_times)>=pulse_counter +% next_pulse=pulse_times(pulse_counter); +% else +% next_pulse=inf; +% end +% end +% if ct>length(env) +% env_vals(i)= 0; +% else +% env_vals(i)= env(ct); +% end +% end +% +% +% +% % +% % onsettime=0; +% % for i=1:getnrpoints(envelope); +% % t=t+1/sr; +% % +% % % env_vals(i)= exp(-(time)/time_const); +% % env_vals(i)= power(t,onsettime)*exp(-(t)/time_const); +% % t=mod(t,reprate); +% % +% % end +% envelope=setvalues(envelope,env_vals); +% envelope=envelope/max(envelope)*amplitude; +% envelope=setstarttime(envelope,0); +% +% % set the envelope and the amplitude +% sig=sinus*envelope; +% +% sig=setname(sig,sprintf('damped sinusoid %4.2f kHz, Modulation=%4.1f Hz, halflife=%4.1f ms',carfre/1000,modfre,halflife*1000)); +% +% % plot(sig) \ No newline at end of file
--- a/aim-mat/tools/@signal/generatefromsimulinkstructure.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generatefromsimulinkstructure.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,12 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=generatefromsimulinkstructure(sig,struct)
--- a/aim-mat/tools/@signal/generatefromspiketrain.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generatefromspiketrain.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=generatefromspiketrain(sig,st) vals=zeros(size(getvalues(sig)));
--- a/aim-mat/tools/@signal/generategauss.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generategauss.m Tue Aug 16 14:36:30 2011 +0100 @@ -10,11 +10,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=generategauss(sig,pos,hight,sigma)
--- a/aim-mat/tools/@signal/generateirn.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generateirn.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,11 +9,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=generateirn(sig,delay,g,niter)
--- a/aim-mat/tools/@signal/generaterampsinus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generaterampsinus.m Tue Aug 16 14:36:30 2011 +0100 @@ -11,11 +11,12 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=generaterampsinus(sig,carfre,modfre,amplitude,halflife)
--- a/aim-mat/tools/@signal/generatesinus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generatesinus.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,11 +9,12 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=generatesinus(sig,fre,amplitude,phase)
--- a/aim-mat/tools/@signal/generatesweep.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/generatesweep.m Tue Aug 16 14:36:30 2011 +0100 @@ -10,11 +10,12 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=generatesweep(sig,fre1,fre2,amplitude,phase)
--- a/aim-mat/tools/@signal/genfm.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/genfm.m Tue Aug 16 14:36:30 2011 +0100 @@ -15,10 +15,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2007 ISVR University of Southampton -% Stefan Bleeck (bleeck@gmail.com) -% $Date: 2003/01/25 12:47:43 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=genfm(sig,fc,f_mod,modindex,amplitude)
--- a/aim-mat/tools/@signal/genharmonics.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/genharmonics.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,299 +1,373 @@ -% method of class @signal -% function sig=genharmonicstim(sig,varargin) -% INPUT VALUES: -% sig: @signal with length and samplerate -% varargin must have several parameters: -% fundamental (default 128) = periodicity -% min_fre (128) = lowest possible frequency -% max_fre (10000) = highest possible frequency -% -% envelope of amplitudes -% either -% filterprop ([256,256,1024,512]) = fc, df1, bandwidth, df2 (in Hz) -% default values: fc=3500; -% df1=256; -% bandwidth=1024; -% df2=512; -% the amplitdes can also be given by cf and two slopes for -% higher and lower frequencies: -% eg 'cf',1000,'lowslope',25,'highslope',38 -% the highest and lowest possible allowed harmonic are given -% in either case by giving 'lowestharmonic' and -% 'highestharmonic' (default value: 1 and inf) -% -% type = which type (default none) -% filtered, -% decreaseoddamplitude, -% decreaseoddphase -% shiftallcomponents -% mistunedharmonic -% decrease_amplitude_linear -% changeby = value, that the odd harmonics shall vary (degree or dB or whatever) -% phases must be in degrees! -% RETURN VALUE: -% sig: @signal -% -% examples: -% create a stimulus with certain filtercharacteristic with random -% phase, and every second harmonic reduced by an amount -% tone(i)=genharmonics(sig,'fundamental',chroma,... -% 'filterprop',[toneheight,handles.df1,handles.bw,handles.df2],... -% 'phase','random',... -% 'type','decreaseoddamplitude',... -% 'changeby',octheight... -% ); -% - -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function sig=genharmonics(sig,varargin) - -if mod(nargin,2)==0 - disp('odd number of parameters - please input a full set of parameters and arguments'); - return; -end -str_fundamental=getargument(varargin,'fundamental'); -str_type=getargument(varargin,'type'); -str_harmnr=getargument(varargin,'harmonicnumber'); -str_changeby=getargument(varargin,'changeby'); -str_filterprop=getargument(varargin,'filterprop'); -str_fc=getargument(varargin,'fc'); -str_lowslope=getargument(varargin,'lowslope'); -str_highslope=getargument(varargin,'highslope'); -str_lowestharmonic=getargument(varargin,'lowestharmonic'); -str_highestharmonic=getargument(varargin,'highestharmonic'); -str_bw=getargument(varargin,'bw'); -str_phase=getargument(varargin,'phase'); -str_min_fre=getargument(varargin,'min_fre'); -str_max_fre=getargument(varargin,'max_fre'); - -% defaultvalues: -if strcmp(str_filterprop,'') - if strcmp(str_changeby,'') - str_filterprop{1}=[256,256,1024,512]; - fc=256; - df1=256; - bandwidth=1024; - df2=512; - else - min_fre=str_min_fre{1}; - max_fre=str_max_fre{1}; - df1=1; - df2=1; - fc=min_fre; - bandwidth=max_fre-min_fre; - end -else - %eval(sprintf('filterprop=%s;',str_filterprop{1})); - fc=str_filterprop{1}(1); - df1=str_filterprop{1}(2); - bandwidth=str_filterprop{1}(3); - df2=str_filterprop{1}(4); -end -if strcmp(str_changeby,'') -else - if isnumeric(str_changeby{1}) - changeby=str_changeby{1}; - else - eval(sprintf('changeby=%f;',str_changeby{1})); - end -end - -% different method of defining envelope: center frequency is the -% highest point, highslope and lowslope define the amplitude on both -% sides for each harmonic -if ~strcmp(str_lowslope,'') && ~strcmp(str_highslope,'') - lowslope=str_lowslope{1}; - highslope=str_highslope{1}; - calculate_amplitude_with_slopes=1; - - % test with - % plot(powerspectrum(genharmonics(signal(0.1,16000),'fc',2000,'lowslope',30,'highslope',40,'fundamental',250))) -else - calculate_amplitude_with_slopes=0; -end - -if strcmp(str_type,'') - str_type{1}=''; - type=''; -else - type=str_type{1}; -end - -if strcmp(str_phase,'') - setphase='cosine'; -else - setphase=str_phase{1}; -end - -if strcmp(str_fundamental,'') - str_fundamental{1}='128'; - fundamental=128; -else - if isnumeric(str_fundamental{1}) - fundamental=str_fundamental{1}; - else - eval(sprintf('fundamental=%s;',str_fundamental{1})); - end -end - -if strcmp(str_lowestharmonic,'') - lowestharmonic=1; -else - if isnumeric(str_lowestharmonic{1}) - lowestharmonic=str_lowestharmonic{1}; - else - eval(sprintf('lowestharmonic=%s;',lowestharmonic{1})); - end -end -if strcmp(str_highestharmonic,'') - highestharmonic=inf; -else - if isnumeric(str_highestharmonic{1}) - highestharmonic=str_highestharmonic{1}; - else - eval(sprintf('highestharmonic=%s;',highestharmonic{1})); - end -end - -if strcmp(str_fc,'') -else - if isnumeric(str_fc{1}) - fc=str_fc{1}; - else - eval(sprintf('fc=%s;',str_fc{1})); - end -end - -if strcmp(str_bw,'') -else - if isnumeric(str_bw{1}) - bandwidth=str_bw{1}; - else - eval(sprintf('bandwidth=%s;',str_bw{1})); - end -end - -samplerate=sig.samplerate; -length=getlength(sig); - - -% begin! - -max_fre=fc+bandwidth+df2; -min_fre=fc-df1; -if (min_fre<0) %squeese df1 to go from 0 to fc - df1=df1-abs(min_fre); -% disp('df1 was reduced') -end - -if fundamental > max_fre - disp('error: genharmonics: fundamental must be smaller then highest frequency'); - return; -end - -s=signal(length,samplerate); -if max_fre>1000 - s=setname(s,sprintf('Harmonic Signal - f0=%4.1f Hz, type: %s (from %2.2f kHz to %2.2f kHz)',fundamental,type,min_fre/1000,max_fre/1000)); -else - s=setname(s,sprintf('Harmonic Signal - f0=%4.1f Hz, type: %s (from %3.0 Hz to %3.0f Hz)',fundamental,type,min_fre,max_fre)); -end - -if calculate_amplitude_with_slopes - s=setname(s,sprintf('Harmonic Signal - modfre=%4.1f Hz, type: %s (cf: %2.2f kHz, low slope: %3.0f dB/oct, high slope %3.0f dB/oct)',fundamental,type,fc/1000,lowslope,highslope)); -end - -% in case of sloped amplitudes, we dont want a limit on harmonics -if calculate_amplitude_with_slopes - max_fre=getsr(sig)/2; - min_fre=0; -end - -% if limit of harmonics is explicitly given -if ~strcmp(str_highestharmonic,'') - max_fre=highestharmonic*fundamental; -end -if ~strcmp(str_lowestharmonic,'') - min_fre=lowestharmonic*fundamental; -end - -fre=fundamental; -count_partials=1; -while fre <= max_fre - if fre >= min_fre - temp=signal(length,samplerate); - amplitude=1; - phase=0; - offset=0; - if strcmp(type,'mistunedharmonic') % in % - eval(sprintf('nr=%s;',str_harmnr{1})); - if count_partials==nr - offset=fundamental*changeby/100; - amplitude=1; - phase=0; - end - end - if strcmp(type,'shiftallcomponents') % in Hz - offset=changeby; - amplitude=1; - phase=0; - end - if strcmp(type,'decreaseoddphase') - % phase must be given in degree! - if mod(count_partials,2)==1 - amplitude=1; - phase=changeby; - end - end - - if strcmp(type,'decrease_amplitude_linear') - % the amount must be given in changeby! - amplitude=1*power(10,(-changeby*count_partials)/20); - end - - ampscale=filterbandamp(fre+offset,amplitude,fc,df1,bandwidth,df2); - amplitude=amplitude*ampscale; - - - % stattdessen mit Slopes: - if calculate_amplitude_with_slopes - % calculate the distance from cf (in octaves) - % and from this the attenuation - distance=log2(fre/fc); - if distance >= 0 - atten=distance*highslope; - else - atten=-distance*lowslope; - end - amplitude=1*power(10,-atten/20); - end - - if strcmp(type,'decreaseoddamplitude') - if mod(count_partials,2)==1 - amplitude=amplitude*power(10,changeby/20); - end - end - if strcmp(type,'decreaseevenamplitude') - if mod(count_partials,2)==0 - amplitude=amplitude*power(10,changeby/20); - end - end - - % degree2rad - if strcmp(setphase,'random') - piphase=rand(1)*2*pi+pi; - else - piphase=phase*(pi/180)+pi/2; - end - temp=generatesinus(temp,fre+offset,amplitude,piphase); %CPH signal - s=s+temp; - end - fre=fre+fundamental; - count_partials=count_partials+1; -end - -sig=s; +% method of class @signal +% function sig=genharmonicstim(sig,varargin) +% INPUT VALUES: +% sig: @signal with length and samplerate +% varargin must have several parameters: +% fundamental (default 128) = periodicity +% min_fre (128) = lowest possible frequency +% max_fre (10000) = highest possible frequency +% +% envelope of amplitudes +% either +% filterprop ([256,256,1024,512]) = fc, df1, bandwidth, df2 (in Hz) +% default values: fc=3500; +% df1=256; +% bandwidth=1024; +% df2=512; +% the amplitdes can also be given by cf and two slopes for +% higher and lower frequencies: +% eg 'cf',1000,'lowslope',25,'highslope',38 +% the highest and lowest possible allowed harmonic are given +% in either case by giving 'lowestharmonic' and +% 'highestharmonic' (default value: 1 and inf) +% +% type = which type (default none) +% filtered, +% decreaseoddamplitude, +% decreaseoddphase +% shiftallcomponents +% mistunedharmonic +% decrease_amplitude_linear +% changeby = value, that the odd harmonics shall vary (degree or dB or whatever) +% phases must be in degrees! +% RETURN VALUE: +% sig: @signal +% +% examples: +% create a stimulus with certain filtercharacteristic with random +% phase, and every second harmonic reduced by an amount +% tone(i)=genharmonics(sig,'fundamental',chroma,... +% 'filterprop',[toneheight,handles.df1,handles.bw,handles.df2],... +% 'phase','random',... +% 'type','decreaseoddamplitude',... +% 'changeby',octheight... +% ); +% +% +% +% create a signal with a mistuned harmonic +% s=signal(0.1,16000); +% clear p +% p{1}='fundamental'; +% p{2}=100; +% p{3}='type'; +% p{4}='mistunedharmonic'; +% p{5}='changeby'; +% p{6}=10; +% p{7}='min_fre'; +% p{8}=500; +% p{9}='max_fre'; +% p{10}=2000; +% p{11}='harmonicnumber'; +% p{12}='12'; +% s=genharmonics(s,p{1},p{2},p{3},p{4},p{5},p{6},p{7},p{8},p{9},p{10},p{11},p{12}) + +% create a harmonic signal with lots of harmonics +% s=signal(0.1,16000); +% clear p +% p{1}='fundamental'; +% p{2}=250; +% p{3}='min_fre'; +% p{4}=499; +% p{5}='max_fre'; +% p{6}=5001; +% s=genharmonics(s,p{1},p{2},p{3},p{4},p{5},p{6}) +% + + + +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + +function sig=genharmonics(sig,varargin) + +if mod(nargin,2)==0 + disp('odd number of parameters - please input a full set of parameters and arguments'); + return; +end +str_fundamental=getargument(varargin ,'fundamental'); +str_type=getargument(varargin,'type'); +str_harmnr=getargument(varargin,'harmonicnumber'); +str_changeby=getargument(varargin,'changeby'); +str_filterprop=getargument(varargin,'filterprop'); +str_fc=getargument(varargin,'fc'); +str_lowslope=getargument(varargin,'lowslope'); +str_highslope=getargument(varargin,'highslope'); +str_lowestharmonic=getargument(varargin,'lowestharmonic'); +str_highestharmonic=getargument(varargin,'highestharmonic'); +str_bw=getargument(varargin,'bw'); +str_phase=getargument(varargin,'phase'); +str_min_fre=getargument(varargin,'min_fre'); +str_max_fre=getargument(varargin,'max_fre'); + +str_which_harmonics=getargument(varargin,'which harmonics'); + +% defaultvalues: +if strcmp(str_filterprop,'') && isempty(str_max_fre{1}) + if strcmp(str_changeby,'') + str_filterprop{1}=[256,256,1024,512]; + fc=256; + df1=256; + bandwidth=1024; + df2=512; + else + min_fre=str_min_fre{1}; + max_fre=str_max_fre{1}; + df1=1; + df2=1; + fc=min_fre; + bandwidth=max_fre-min_fre; + end +elseif isempty(str_max_fre{1}) + %eval(sprintf('filterprop=%s;',str_filterprop{1})); + fc=str_filterprop{1}(1); + df1=str_filterprop{1}(2); + bandwidth=str_filterprop{1}(3); + df2=str_filterprop{1}(4); +end +if strcmp(str_changeby,'') +else + if isnumeric(str_changeby{1}) + changeby=str_changeby{1}; + else + eval(sprintf('changeby=%f;',str_changeby{1})); + end +end + +% different method of defining envelope: center frequency is the +% highest point, highslope and lowslope define the amplitude on both +% sides for each harmonic +if ~strcmp(str_lowslope,'') && ~strcmp(str_highslope,'') + lowslope=str_lowslope{1}; + highslope=str_highslope{1}; + calculate_amplitude_with_slopes=1; + + % test with + % plot(powerspectrum(genharmonics(signal(0.1,16000),'fc',2000,'lowslope',30,'highslope',40,'fundamental',250))) +else + calculate_amplitude_with_slopes=0; +end + +if strcmp(str_type,'') + str_type{1}=''; + type=''; +else + type=str_type{1}; +end + +if strcmp(str_phase,'') + setphase='cosine'; +else + setphase=str_phase{1}; +end + +if strcmp(str_fundamental,'') + str_fundamental{1}='128'; + fundamental=128; +else + if isnumeric(str_fundamental{1}) + fundamental=str_fundamental{1}; + else + eval(sprintf('fundamental=%s;',str_fundamental{1})); + end +end + +if strcmp(str_lowestharmonic,'') + lowestharmonic=1; +else + if isnumeric(str_lowestharmonic{1}) + lowestharmonic=str_lowestharmonic{1}; + else + eval(sprintf('lowestharmonic=%s;',lowestharmonic{1})); + end +end +if strcmp(str_highestharmonic,'') + highestharmonic=inf; +else + if isnumeric(str_highestharmonic{1}) + highestharmonic=str_highestharmonic{1}; + else + eval(sprintf('highestharmonic=%s;',highestharmonic{1})); + end +end + +if strcmp(str_fc{1},'') +else + if isnumeric(str_fc{1}) + fc=str_fc{1}; + else + eval(sprintf('fc=%s;',str_fc{1})); + end +end + +if strcmp(str_bw{1},'') +else + if isnumeric(str_bw{1}) + bandwidth=str_bw{1}; + else + eval(sprintf('bandwidth=%s;',str_bw{1})); + end +end + +if strcmp(str_which_harmonics,'') + str_which_harmonics{1}='all'; +end + +samplerate=sig.samplerate; +length=getlength(sig); + + +% begin! + +% if isempty(str_max_fre) +if isempty(str_max_fre{1}) + max_fre=fc+bandwidth+df2; + min_fre=fc-df1; +else + min_fre=str_min_fre{1}; + max_fre=str_max_fre{1}; +end + +if (min_fre<0) %squeese df1 to go from 0 to fc + df1=df1-abs(min_fre); +% disp('df1 was reduced') +end + +if fundamental > max_fre + disp('error: genharmonics: fundamental must be smaller then highest frequency'); + return; +end + +s=signal(length,samplerate); +if max_fre>1000 + s=setname(s,sprintf('Harmonic Signal - f0=%4.1f Hz, type: %s (from %2.2f kHz to %2.2f kHz)',fundamental,type,min_fre/1000,max_fre/1000)); +else + s=setname(s,sprintf('Harmonic Signal - f0=%4.1f Hz, type: %s (from %3.0 Hz to %3.0f Hz)',fundamental,type,min_fre,max_fre)); +end + +if calculate_amplitude_with_slopes + s=setname(s,sprintf('Harmonic Signal - modfre=%4.1f Hz, type: %s (cf: %2.2f kHz, low slope: %3.0f dB/oct, high slope %3.0f dB/oct)',fundamental,type,fc/1000,lowslope,highslope)); +end + +% in case of sloped amplitudes, we dont want a limit on harmonics +if calculate_amplitude_with_slopes + max_fre=getsr(sig)/2; + min_fre=0; +end + +% if limit of harmonics is explicitly given +if ~strcmp(str_highestharmonic,'') + max_fre=highestharmonic*fundamental; +end +if ~strcmp(str_lowestharmonic,'') + min_fre=lowestharmonic*fundamental; +end + +fre=fundamental; +count_partials=1; +while fre <= max_fre + if fre >= min_fre + temp=signal(length,samplerate); + amplitude=1; + phase=0; + offset=0; + if strcmp(type,'mistunedharmonic') % in % + eval(sprintf('nr=%s;',str_harmnr{1})); + if count_partials==nr + offset=fundamental*changeby/100; + amplitude=1; + phase=0; + end + end + if strcmp(type,'shiftallcomponents') % in Hz + offset=changeby; + amplitude=1; + phase=0; + end + if strcmp(type,'decreaseoddphase') + % phase must be given in degree! + if mod(count_partials,2)==1 + amplitude=1; + phase=changeby; + end + end + + if strcmp(type,'decrease_amplitude_linear') + % the amount must be given in changeby! + amplitude=1*power(10,(-changeby*count_partials)/20); + ampscale=1; + elseif ~isempty(str_type{1}) + ampscale=filterbandamp(fre+offset,amplitude,fc,df1,bandwidth,df2); + else + ampscale=1; + end + amplitude=amplitude*ampscale; + + + % stattdessen mit Slopes: + if calculate_amplitude_with_slopes + % calculate the distance from cf (in octaves) + % and from this the attenuation +% distance=log2(fre/fc); + distance=fre/fc; +% if distance >= 0 + if distance >= 1 + atten=distance*highslope; + else + atten=100; + end + amplitude=1*power(10,-atten/20); + p=0; + end + + if strcmp(type,'decreaseoddamplitude') + if mod(count_partials,2)==1 + amplitude=amplitude*power(10,changeby/20); + end + end + if strcmp(type,'decreaseevenamplitude') + if mod(count_partials,2)==0 + amplitude=amplitude*power(10,changeby/20); + end + end + + + switch str_which_harmonics{1} + case 'all' + case 'only odd' + if mod(count_partials,2)==0 + amplitude=0; + end + case 'only even' + if mod(count_partials,2)==1 + amplitude=0; + end + end + + % degree2rad + switch setphase + case 'random' + piphase=rand(1)*2*pi+pi; + case 'cosine' + piphase=phase*(pi/180)+pi/2; + case 'sine' + piphase=phase*(pi/180); + + end +% disp(sprintf('fre: %3.2f amp:%2.1f',fre,amplitude*100)); +% amplitude +% fre + temp=generatesinus(temp,fre+offset,amplitude,piphase); + + % add them up! + s=s+temp; + end + fre=fre+fundamental; + count_partials=count_partials+1; +end + +sig=s;
--- a/aim-mat/tools/@signal/gennoise.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gennoise.m Tue Aug 16 14:36:30 2011 +0100 @@ -19,10 +19,12 @@ % RETURN VALUE: % sig: @signal % -% (c) 2007 ISVR University of Southampton -% Stefan Bleeck (bleeck@gmail.com) -% $Date: 2003/01/25 12:47:43 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % function sig=gennoise(sig,beta,rms_desired) function sig=gennoise(sig,beta)
--- a/aim-mat/tools/@signal/gentransposed.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gentransposed.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,11 +4,13 @@ % sig: @signal with length and samplerate % create a transposed stimulus according to (Hartmann, 1998, p. 106): -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2005/10/10 09:32:22 $ -% $Revision: 1.12 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=gentransposed(sig,fc,fm,phi_c,phi_m)
--- a/aim-mat/tools/@signal/get.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/get.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:43 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=get(a) ret=a.werte; \ No newline at end of file
--- a/aim-mat/tools/@signal/getbinvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getbinvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function val=getbinvalue(sig,bin) % usage: val=gettimevalue(sig,bin)
--- a/aim-mat/tools/@signal/getcenterofmass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getcenterofmass.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function w=getcenterofmass(sig)
--- a/aim-mat/tools/@signal/getchange.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getchange.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function str=getchange(sig,start1,stop1,start2,stop2,grafix) % returns some information how the signal changes in the time at start1 and % stop1 in reference to start2 and stop2
--- a/aim-mat/tools/@signal/getdata.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getdata.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % ret: the privat data of the signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret=getdata(a) ret=a.werte; \ No newline at end of file
--- a/aim-mat/tools/@signal/getlength.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getlength.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res =getlength(sig) % returns the length in seconds
--- a/aim-mat/tools/@signal/getlocalmaxima.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getlocalmaxima.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [t,h]=getlocalmaxima(sig) % returns the height and the locations of all local maxima in the signal
--- a/aim-mat/tools/@signal/getlocalminima.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getlocalminima.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [t,h]=getlocalminima(sig) % returns the height and the locations of all local maxima in the signal
--- a/aim-mat/tools/@signal/getmaximumtime.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getmaximumtime.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ma=getmaximumtime(sig)
--- a/aim-mat/tools/@signal/getminimumtime.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getminimumtime.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ma=getminimumtime(sig)
--- a/aim-mat/tools/@signal/getminmax.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getminmax.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,12 +7,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [maxpos,minpos,maxs,mins]=getminmax(sig) % usage: [maxpos,minpos,maxs,mins]=getminmax(sig)
--- a/aim-mat/tools/@signal/getminmax.old.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getminmax.old.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [h_min,h_max,t_min,t_max]=getminmax(sig,distance) % usage: function [h,t]=getminmax(sig,distance)
--- a/aim-mat/tools/@signal/getname.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getname.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function name=getname(sig) name=sig.name; \ No newline at end of file
--- a/aim-mat/tools/@signal/getnrchannels.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getnrchannels.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % this is here for compatibility to the frame class % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function nr=getnrchannels(sig) nr=1; % almost per definition \ No newline at end of file
--- a/aim-mat/tools/@signal/getnrpoints.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getnrpoints.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function nr=getnrpoints(a) nr=size(a.werte,1);
--- a/aim-mat/tools/@signal/getoneperiod.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getoneperiod.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function per=getoneperiod(signal,risetime) % returns one period of the signal
--- a/aim-mat/tools/@signal/getpart.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getpart.m Tue Aug 16 14:36:30 2011 +0100 @@ -9,11 +9,12 @@ % returns a signal-object that is a copy of the original signal in the % range from-to % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=getpart(a,from,to)
--- a/aim-mat/tools/@signal/getsourceestimate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getsourceestimate.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sources=getsourceestimate(sig,sigma) % usage: sources=getsourceestimate(sig,sigma))
--- a/aim-mat/tools/@signal/getsr.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getsr.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res =getsr(sig) % returns the samplerate on Hz
--- a/aim-mat/tools/@signal/getstarttime.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getstarttime.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:43 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ma=getstarttime(sig)
--- a/aim-mat/tools/@signal/gettimevalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/gettimevalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,12 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function val=gettimevalue(sig,times) % usage: val=gettimevalue(sig,time)
--- a/aim-mat/tools/@signal/getunit_x.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getunit_x.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function n=getunit_x(sig) n=sig.unit_x;
--- a/aim-mat/tools/@signal/getunit_y.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getunit_y.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function n=getunit_y(sig) n=sig.unit_y;
--- a/aim-mat/tools/@signal/getvalues.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getvalues.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=getvalues(a) ret=a.werte; \ No newline at end of file
--- a/aim-mat/tools/@signal/getxlabels.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getxlabels.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function labs=getxlabels(sig) labs=sig.x_tick_labels; \ No newline at end of file
--- a/aim-mat/tools/@signal/getxvalues.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getxvalues.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function vals=getxvalues(sig) % return all x values of the signal in one vector
--- a/aim-mat/tools/@signal/getzerocrossings.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/getzerocrossings.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function t=getzerocrossings(signal,var) % gets the zero crossings of the signal.
--- a/aim-mat/tools/@signal/halfwaverectify.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/halfwaverectify.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:43 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=halfwaverectify(sig) % sets all negative values in sig to 0
--- a/aim-mat/tools/@signal/halfwayrectify.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/halfwayrectify.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=halfwayrectify(sig) % sets all negative values in sig to 0
--- a/aim-mat/tools/@signal/highpass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/highpass.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=highpass(sig,frequency,stopband,ripple,stopbandatten) % hack for an phase true lowpassfilter with cutoff at frequency
--- a/aim-mat/tools/@signal/hilbertenvelope.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/hilbertenvelope.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=hilbertenvelope(a)
--- a/aim-mat/tools/@signal/info.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/info.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function info(sig) disp(sprintf('Name: %s',sig.name));
--- a/aim-mat/tools/@signal/isoftype.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/isoftype.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=isoftype(inp,str)
--- a/aim-mat/tools/@signal/kurtosis.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/kurtosis.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,9 +4,13 @@ % % RETURN VALUE: kurtosis of signal values % -% -% (c) 2008 -% Stefan Bleeck (stefan@bleeck.de) +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function m=kurtosis(sig)
--- a/aim-mat/tools/@signal/leakyintegrator.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/leakyintegrator.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,8 +1,11 @@ -% (c) 2003-2008, University of Cambridge, Medical Research Council -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + % function nvals=leakyintegrator(sig,lowpass_cutoff_frequency,order)
--- a/aim-mat/tools/@signal/linearfit.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/linearfit.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [m,b]=linearfit(sig) % fit the signal with a streight line and return the slope (m) and the zero % crossing (b)
--- a/aim-mat/tools/@signal/linsigx.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/linsigx.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function linsig=linsigx(sig) % usage: linsig=linsigx(sig)
--- a/aim-mat/tools/@signal/loadwavefile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/loadwavefile.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,68 +1,70 @@ -% method of class @signal -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function [sig1,sig2]=loadwavefile(sig,orgname,timestart,duration) -% usage: [sig1,sig2]=loadwavefile(name,time) -% reads in the wavefile name in the time boundaries -% returns two signals, if signal is stereo - -% -% [path,name,ext]=fileparts(name); -% if strcmp(ext,'.wav') -% -% [data,sr,nbits]=wavread(name); -% elseif strcmp(ext,'.aif') || strcmp(ext,'.aiff') -% error('aif import not implemented yet'); -% end -% -% sig=signal(data); -% sig=setsr(sig,sr); -% sig=setname(sig,name); -% if nargin > 2 -% sig=getpart(sig,timestart,timestart+duration); -% end -% - -[name,path,ext]=fileparts(orgname); -if strcmp(ext,'.wav') - try - [data,sr,nbits]=wavread(orgname); - catch - error(sprintf('cant open file %s',orgname)) - end - nr_sig=size(data,2); - - sig1=signal(data(:,1)); - sig1=setsr(sig1,sr); - sig1=setname(sig1,orgname); - if nargin > 2 - sig1=getpart(sig1,timestart,timestart+duration); - end - if nr_sig==2 - sig2=signal(data(:,2)); - sig2=setsr(sig2,sr); - sig2=setname(sig2,orgname); - if nargin > 2 - sig2=getpart(sig2,timestart,timestart+duration); - end - - end -elseif strcmp(ext,'.aif') || strcmp(ext,'.aiff') - [data,sr]=aifread(orgname); - sig=signal(data); - sig=setsr(sig,sr); - sig=setname(sig,orgname); - if nargin > 2 - sig=getpart(sig,timestart,timestart+duration); - end +% method of class @signal +% +% INPUT VALUES: +% +% RETURN VALUE: +% +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + +function [sig1,sig2]=loadwavefile(sig,orgname,timestart,duration) +% usage: [sig1,sig2]=loadwavefile(name,time) +% reads in the wavefile name in the time boundaries +% returns two signals, if signal is stereo + +% +% [path,name,ext]=fileparts(name); +% if strcmp(ext,'.wav') +% +% [data,sr,nbits]=wavread(name); +% elseif strcmp(ext,'.aif') || strcmp(ext,'.aiff') +% error('aif import not implemented yet'); +% end +% +% sig=signal(data); +% sig=setsr(sig,sr); +% sig=setname(sig,name); +% if nargin > 2 +% sig=getpart(sig,timestart,timestart+duration); +% end +% + +[name,path,ext]=fileparts(orgname); +if strcmp(lower(ext),'.wav') + try + [data,sr,nbits]=wavread(orgname); + catch + error(sprintf('cant open file %s',orgname)) + end + nr_sig=size(data,2); + + sig1=signal(data(:,1)); + sig1=setsr(sig1,sr); + sig1=setname(sig1,orgname); + if nargin > 2 + sig1=getpart(sig1,timestart,timestart+duration); + end + if nr_sig==2 + sig2=signal(data(:,2)); + sig2=setsr(sig2,sr); + sig2=setname(sig2,orgname); + if nargin > 2 + sig2=getpart(sig2,timestart,timestart+duration); + end + + end +elseif strcmp(ext,'.aif') || strcmp(ext,'.aiff') + [data,sr]=aifread(orgname); + sig=signal(data); + sig=setsr(sig,sr); + sig=setname(sig,orgname); + if nargin > 2 + sig=getpart(sig,timestart,timestart+duration); + end end \ No newline at end of file
--- a/aim-mat/tools/@signal/log.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/log.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,11 +6,13 @@ % RETURN VALUE: % sig: @signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=log(sig)
--- a/aim-mat/tools/@signal/logsigx.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/logsigx.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [lsig,scaleinfo]=logsigx(sig,tmin,tmax,nr_points) % usage: [lsig,scaler]=logsigx(sig,tmin,tmax,nr_points)
--- a/aim-mat/tools/@signal/lowpass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/lowpass.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,69 +1,71 @@ -% method of class @signal -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function filtered_sig=lowpass(sig,frequency,stopband,ripple,stopbandatten) -% hack for an phase true lowpassfilter with cutoff at frequency -% used is a ButterworthFilter - -if nargin < 5 - stopbandatten=60; % in dB - how many dB the signal is reduced in the stopband at least -end -if nargin < 4 - ripple=1; % in dB = ripple in the passband -end -if nargin <3 - stopband=frequency*2; % eine Oktave drüber -end - -nyquist=getsr(sig)/2; -% fre_low=2; -fre_high=frequency; - -% Finde raus, wieviel Punkte der Filter dafür haben muss -Wpass=fre_high/nyquist; -Wstop=(fre_high+stopband)/nyquist; -Wstop=min(Wstop,0.999999); -try - [n,Wn] = buttord(Wpass,Wstop,ripple,stopbandatten); - % Berechne den IIR-Filter - [b,a] = butter(n,Wn); - - vals=sig.werte'; - - % fill the part behind the signal and in front of the signal with - % values to avoid corner effects. this is probably not clever in all - % cases... - firstval=vals(1); - lastval=vals(end); - nr_vals=length(vals); - vals=[ones(1,nr_vals)*firstval vals ones(1,nr_vals)*lastval]; - - nvals = filtfilt(b,a,vals); - % extract the values back - nvals=nvals(nr_vals+1:2*nr_vals); - - filtered_sig=sig; % a copy of the old one - newname=sprintf('Lowpass filterd (%3.2fkHz) Signal: %s',frequency/1000,getname(sig)); - filtered_sig=setname(filtered_sig,newname); - filtered_sig.werte=nvals'; - -catch - disp('error: cant do the low pass filtering'); - filtered_sig=sig; -end - -% figure(235423) -% plot(sig); -% hold on -% plot(filtered_sig,'g'); -% s=0; +% method of class @signal +% +% INPUT VALUES: +% +% RETURN VALUE: +% +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + +function filtered_sig=lowpass(sig,frequency,stopband,ripple,stopbandatten) +% hack for an phase true lowpassfilter with cutoff at frequency +% used is a ButterworthFilter + +if nargin < 5 + stopbandatten=60; % in dB - how many dB the signal is reduced in the stopband at least +end +if nargin < 4 + ripple=1; % in dB = ripple in the passband +end +if nargin <3 + stopband=frequency*2; % eine Oktave drüber +end + +nyquist=getsr(sig)/2; +% fre_low=2; +fre_high=frequency; + +% Finde raus, wieviel Punkte der Filter dafür haben muss +Wpass=fre_high/nyquist; +Wstop=(fre_high+stopband)/nyquist; +Wstop=min(Wstop,0.999999); +% try + [n,Wn] = buttord(Wpass,Wstop,ripple,stopbandatten); + % Berechne den IIR-Filter + [b,a] = butter(n,Wn); + + vals=sig.werte'; + +% % fill the part behind the signal and in front of the signal with +% % values to avoid corner effects. this is probably not clever in all +% % cases... +% firstval=vals(1); +% lastval=vals(end); +% nr_vals=length(vals); +% vals=[ones(1,nr_vals)*firstval vals ones(1,nr_vals)*lastval]; + + nvals = filtfilt(b,a,vals); + % extract the values back +% nvals=nvals(nr_vals+1:2*nr_vals); + + filtered_sig=sig; % a copy of the old one + newname=sprintf('Lowpass filterd (%3.2fkHz) Signal: %s',frequency/1000,getname(sig)); + filtered_sig=setname(filtered_sig,newname); + filtered_sig.werte=nvals'; +% +% catch +% disp('error: cant do the low pass filtering'); +% filtered_sig=sig; +% end + +% figure(235423) +% plot(sig); +% hold on +% plot(filtered_sig,'g'); +% s=0;
--- a/aim-mat/tools/@signal/lowpass_2003.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/lowpass_2003.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org +
--- a/aim-mat/tools/@signal/max.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/max.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [m,x]=max(sig) % returns the maximum value of the signal
--- a/aim-mat/tools/@signal/mean.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/mean.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/23 10:56:28 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function m=mean(sig) % returns the mean of the signal
--- a/aim-mat/tools/@signal/min.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/min.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [m,x]=min(sig) % returns the minimum value of the signal
--- a/aim-mat/tools/@signal/minus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/minus.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,16 +1,17 @@ -% method of class @signal -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function sig=minus(a,b) - +% method of class @signal +% +% INPUT VALUES: +% +% RETURN VALUE: +% +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + +function sig=minus(a,b) +b=b(:); % just to make sure that it is a columnvector sig=a+(-b); \ No newline at end of file
--- a/aim-mat/tools/@signal/modtuningtilt.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/modtuningtilt.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=modtuningtilt(sig)
--- a/aim-mat/tools/@signal/mrdivide.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/mrdivide.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=mrdivide(sig,b) % division ist einfach multiplikation mit 1/
--- a/aim-mat/tools/@signal/mtimes.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/mtimes.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=mtimes(a,b) % multiplikation mit *
--- a/aim-mat/tools/@signal/mult.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/mult.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=mult(a,b,start_time,dauer) %wenn b ein Vektor ist, werden die Werte einfach multipliziert
--- a/aim-mat/tools/@signal/mute.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/mute.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=mute(a) % setze alle Werte auf Null
--- a/aim-mat/tools/@signal/nicespectrum.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/nicespectrum.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=nicespectrum(a)
--- a/aim-mat/tools/@signal/peak_picker.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/peak_picker.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [lowpasssig,maxinfo,mininfo]=peak_picker(sig,options); % sophisticated peak picker
--- a/aim-mat/tools/@signal/play.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/play.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,42 +1,67 @@ -% method of class @signal -% -% INPUT VALUES: -% sig,attenuation -% sig is the signa -% attenuation is the attenuation against the lowdest possible tone -% with amplitude =1 -% default=1 -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function play(sig,attenuation,ramp) - -if nargin < 3 - ramp=0.01; -end -if nargin < 2 - attenuation=0; -end - -if attenuation > 0 -% error('cant play sounds louder then maximum, reduce attenuation!'); - disp('warning: signal\play:: play sounds louder then maximum, reduce attenuation!'); -end - - -sig=rampamplitude(sig,ramp); -sig=attenuate(sig,attenuation); - -if max(sig)>1 - disp('warning: signal\play:: clipping in signal'); -end -sound(sig.werte,sig.samplerate); - -pause(getlength(sig)); \ No newline at end of file +% method of class @signal +% +% INPUT VALUES: +% sig,attenuation,ramp +% sig is the signal or a array of two signals for stereo +% attenuation is the attenuation against the lowdest possible tone +% with amplitude =1 +% default=1 +% +% RETURN VALUE: +% +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + +% function play(sig,attenuation,ramp) +function play(sig,attenuation,ramp) + +if nargin < 3 + ramp=0; +end +if nargin < 2 + attenuation=0; +end + if attenuation > 0 + % error('cant play sounds louder then maximum, reduce attenuation!'); + disp('warning: signal\play:: play sounds louder then maximum, reduce attenuation!'); + end + +if length(sig)>1 % stereo! + sig(1)=attenuate(sig(1),attenuation); + sig(2)=attenuate(sig(2),attenuation); + + values1=getvalues(sig(1)); + values2=getvalues(sig(2)); + + finvals=[values1 values2]; + sr=getsr(sig(1)); + + sound(finvals,sr); + pause(getlength(sig(1))); +else + + + % beware of playing a NULL-stimulus! + if getlength(sig)<=1/getsr(sig) + return + end + + if ramp>0 + sig=rampamplitude(sig,ramp); + end + + sig=attenuate(sig,attenuation); + + if max(sig)>1 + disp('warning: signal\play:: clipping in signal'); + end + sound(sig.werte,sig.samplerate); + + pause(getlength(sig)); +end \ No newline at end of file
--- a/aim-mat/tools/@signal/plot.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/plot.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,35 +5,36 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org -function rethandle=plot(sig,border,stil,ax) -% usage: handle=plot(sig,border,stil) + +function rethandle=plot(sig,border,style,ax) +% usage: handle=plot(sig,border,style) % plots the class signal. This plot works a little bit different from usual. -% Parameter can either be: plot(signal,stil) or plot(signal,border) or plot(signal,border,stil) +% Parameter can either be: plot(signal,style) or plot(signal,border) or plot(signal,border,style) % the border can consist of times and y-value or only the times that should be plotted (in seconeds!) if nargin<4 ax=gca; end if nargin<3 - stil='b-'; + style='b-'; end -if nargin==2 & ishandle(border) +if nargin==2 && all(ishandle(border)) ax=border; end -if nargin==3 & ishandle(stil) - ax=stil; +if nargin==3 && ishandle(style) + ax=style; end -sr=getsr(sig); durationbin=size(sig.werte,1); % duration=durationbin/sr; if nargin<2 @@ -50,7 +51,7 @@ else options=[]; if ischar(border) - stil=border; + style=border; t1=1; t2=durationbin; border=[t1 t2 min(sig.werte(t1:t2)) max(sig.werte(t1:t2))]; @@ -113,18 +114,22 @@ xvals=getxvalues(sig); % if we are dealing with milliseconds (very often), then the units are in % ms as well -if strfind(sig.unit_x,'(ms)')>0 - multiplier=1000; -else +% if strfind(sig.unit_x,'(ms)')>0 +% multiplier=1000; +% else multiplier=1; -end +% end xvals=xvals.*multiplier; yvals=getvalues(sig); +if ishandle(style) % ups, something gone wrong + style='b-'; +end + % this is the plotting command: -handle=plot(ax,xvals,yvals); +handle=plot(ax,xvals,yvals,style); if time_reversed set(ax,'XDir','reverse') % turn them around, because the higher values shell end on the right @@ -152,10 +157,11 @@ maxy=miny+1; miny=miny-1; end -set(ax,'xlim',[minimum_time*multiplier maximum_time*multiplier ]) -set(ax,'ylim',[miny*1.05 maxy*1.05]) -% axis([minimum_time*multiplier maximum_time*multiplier miny*1.05 maxy*1.05]); - +try + set(ax,'xlim',[minimum_time*multiplier maximum_time*multiplier ]) + set(ax,'ylim',[miny*1.05 maxy*1.05]) + axis([minimum_time*multiplier maximum_time*multiplier miny*1.05 maxy*1.05]); +end xlabel(sig.unit_x);
--- a/aim-mat/tools/@signal/plotwithenvelope.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/plotwithenvelope.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function plotwithenvelope(signal,border,stil)
--- a/aim-mat/tools/@signal/plus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/plus.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=plus(a,b) % addition
--- a/aim-mat/tools/@signal/powerspectrum.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/powerspectrum.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function fsig=powerspectrum(sig,nr_fft) % usage: sig=powerspectrum(a)
--- a/aim-mat/tools/@signal/qvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/qvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [val,hoch,breit,widthvals]=qvalue(sig,where,howmuch) % usage: val=qvalue(sig,where,howmuch)
--- a/aim-mat/tools/@signal/qvalue2.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/qvalue2.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [val,height,width,widthvals,base_peak_y]=qvalue2(sig,where) % similar to qvalue, but returns the value of height divided by width
--- a/aim-mat/tools/@signal/rampamplitude.asv Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/rampamplitude.asv Tue Aug 16 14:36:30 2011 +0100 @@ -1,49 +1,41 @@ -% method of class @signal -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:43 $ -% $Revision: 1.3 $ - -function sig=rampamplitude(sig,rt,type) - -if nargin < 3 - type='linear'; -end -if nargin < 2 - rt=0.01; -end - -if isequal(type,'linear') - sigvals=sig.werte; - nr_point=time2bin(sig,rt); - ramp=linspace(0,1,nr_point); - sigvals(1:nr_point)=sigvals(1:nr_point).*ramp'; - damp=linspace(1,0,nr_point); - sigvals(end-nr_point+1:end)=sigvals(end-nr_point+1:end).*damp'; -elseif isequal(type,'Cos^2') - sigvals=sig.werte; - nr_point=time2bin(sig,rt); - t=1:nr_point; - ramp=power(1+cos(t/nr_point*pi),2)/4; - plot(ramp) - sigvals(1:nr_point)=sigvals(1:nr_point).*ramp'; - damp=linspace(1,0,nr_point); - sigvals(end-nr_point+1:end)=sigvals(end-nr_point+1:end).*damp'; -end - - - -sig.werte=sigvals; - - - - - - +% method of class @signal +% +% INPUT VALUES: +% +% RETURN VALUE: +% +% +% (c) 2003-2011, University of Cambridge, Medical Research Council +% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) +% http://www.pdn.cam.ac.uk/cnbh/aim2006 +% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% $Revision: 585 $ + +function sig=rampamplitude(sig,rt,type) + +if nargin < 3 + type='linear'; +end +if nargin < 2 + rt=0.01; +end +if rt==0 + return +end + +if strcmp(type,'linear') + first_bin=1; + nr_point=time2bin(sig,rt); + last_bin=nr_point; + ramp=linspace(0,1,(last_bin-first_bin)); + sig=sig*ramp; + + first_bin=getnrpoints(sig)-nr_point; + start_time_hintere_rampe=bin2time(sig,first_bin); + last_bin=time2bin(sig,getlength(sig)); + damp=linspace(1,0,(last_bin-first_bin)); + try + sig=mult(sig,damp,start_time_hintere_rampe,rt); + end + p=1; +end
--- a/aim-mat/tools/@signal/rampamplitude.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/rampamplitude.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=rampamplitude(sig,rt,type) @@ -25,7 +27,7 @@ if strcmp(type,'linear') first_bin=1; - nr_point=time2bin(sig,rtsig); + nr_point=time2bin(sig,rt); last_bin=nr_point; ramp=linspace(0,1,(last_bin-first_bin)); sig=sig*ramp;
--- a/aim-mat/tools/@signal/rampamplitudeCopy.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/rampamplitudeCopy.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=rampamplitude(sig,rt,type);
--- a/aim-mat/tools/@signal/reverse.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/reverse.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=reverse(sig) %usage: sig=reverse(sig)
--- a/aim-mat/tools/@signal/rms.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/rms.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function val=rms(sig) %usage: val=rms(data)
--- a/aim-mat/tools/@signal/savewave.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/savewave.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function savewave(sig,name,ramp) % does some things, to make a nice sound out of it
--- a/aim-mat/tools/@signal/savewaveprescaled.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/savewaveprescaled.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function savewaveprescaled(sig,name) % does some things, to make a nice sound out of it
--- a/aim-mat/tools/@signal/scale.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/scale.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=scale(si,a) %usage: sig=scale(a)
--- a/aim-mat/tools/@signal/scaletomaxvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/scaletomaxvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=scaletomaxvalue(si,maxv) %usage: sig=scaleToMaxValue(si,maxv)
--- a/aim-mat/tools/@signal/scaletorms.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/scaletorms.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=scaletorms(sig, value)
--- a/aim-mat/tools/@signal/secondderivation.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/secondderivation.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=secondderivation(sig) % calculates the second derivation by calculation of the differences
--- a/aim-mat/tools/@signal/set.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/set.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:43 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=set(sig,values) sig.werte=values;
--- a/aim-mat/tools/@signal/setbinvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setbinvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setbinvalue(sig,bin,value) %usage: sig=setvalue(sig,bin,time,val)
--- a/aim-mat/tools/@signal/setlength.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setlength.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setlength(sig,newlen)
--- a/aim-mat/tools/@signal/setname.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setname.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setname(sig,name) sig.name=name; \ No newline at end of file
--- a/aim-mat/tools/@signal/setnrxticks.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setnrxticks.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setnrxticks(sig,nr) sig.nr_x_ticks=nr; \ No newline at end of file
--- a/aim-mat/tools/@signal/setsr.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setsr.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setsr(sig,sr_neu) % usage: sig=setsr(a,sr_neu)
--- a/aim-mat/tools/@signal/setstarttime.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setstarttime.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setstarttime(sig,time) sig.start_time=time; \ No newline at end of file
--- a/aim-mat/tools/@signal/settimevalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/settimevalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=settimevalue(sig,time,val) %usage: sig=setvalue(sig,time,val)
--- a/aim-mat/tools/@signal/settozeroaverage.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/settozeroaverage.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=settozeroaverage(sig)
--- a/aim-mat/tools/@signal/setunit_x.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setunit_x.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setunit_x(sig,name) sig.unit_x=name; \ No newline at end of file
--- a/aim-mat/tools/@signal/setunit_y.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setunit_y.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setunit_y(sig,name) sig.unit_y=name; \ No newline at end of file
--- a/aim-mat/tools/@signal/setvalues.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setvalues.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setvalues(org_sig,new_vals,startint) %usage: sig=setvalues(si,new,vals)
--- a/aim-mat/tools/@signal/setxlabels.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/setxlabels.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=setxlabels(sig,labels)
--- a/aim-mat/tools/@signal/shift.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/shift.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=shift(si,a) %usage: sig=shift(a)
--- a/aim-mat/tools/@signal/shiftcircular.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/shiftcircular.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=shiftcircular(sig,shifttime) % shift the period in time circlular % if shifttime > 0then circle positiv, otherwise negative
--- a/aim-mat/tools/@signal/sig2simulinkinput.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sig2simulinkinput.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=sig2simulinkinput(sig) % wandelt das signal sig in eine Struktur um, die Simulink lesen kann
--- a/aim-mat/tools/@signal/signal.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/signal.m Tue Aug 16 14:36:30 2011 +0100 @@ -21,11 +21,12 @@ % the time "0" is not associated with a bin. the first bin is time sr, the % second 2*sr, etc the nth bin is the signal-duration % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=signal(laenge,samplerate,name,unit_x,unit_y,start_time)
--- a/aim-mat/tools/@signal/signal2spiketrain.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/signal2spiketrain.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % st: @spiketrain % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function st=signal2spiketrain(sig) % translates a signal in an spiketrain
--- a/aim-mat/tools/@signal/sim_spikes.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sim_spikes.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret_spikes=sim_spikes(sig,nr_sweeps,params) % simulates the response to a signal
--- a/aim-mat/tools/@signal/sim_spikes3.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sim_spikes3.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret_spikes=sim_spikes(sig,nr_sweeps,params) % simulates the response to a signal
--- a/aim-mat/tools/@signal/sim_spikes_with 10 different probfuncs.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sim_spikes_with 10 different probfuncs.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret_spikes=sim_spikes(sig,nr_sweeps,params) % simulates the response to a signal
--- a/aim-mat/tools/@signal/sim_spikes_with 2 different probs.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sim_spikes_with 2 different probs.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret_spikes=sim_spikes(sig,nr_sweeps,params) % simulates the response to a signal
--- a/aim-mat/tools/@signal/sim_spikesold.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sim_spikesold.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret_spikes=sim_spikes(sig,nr_sweeps,params) % simulates the response to a signal
--- a/aim-mat/tools/@signal/skewness.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/skewness.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/23 10:56:28 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function m=skewness(sig) % returns the skewness of the signal
--- a/aim-mat/tools/@signal/smooth.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/smooth.m Tue Aug 16 14:36:30 2011 +0100 @@ -13,11 +13,12 @@ % smoothes the signal by multipliing it with gaussian filters of % the width "sigma" in ms % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=smooth(org_sig,sigma, type)
--- a/aim-mat/tools/@signal/squeeze.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/squeeze.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,11 +8,12 @@ % % reduces the length of the signal by scaling it in time % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function newsig=squeeze(sig,factor)
--- a/aim-mat/tools/@signal/std.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/std.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/23 10:56:28 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function m=std(sig) % returns the mean of the signal
--- a/aim-mat/tools/@signal/straight.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/straight.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org % mystraight % transforms it with two parameters: scale and fotrans
--- a/aim-mat/tools/@signal/sum.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/sum.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,11 +8,13 @@ % RETURN VALUE: % s: sum of the signal in that region % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function s=sum(sig,t_start,t_stop)
--- a/aim-mat/tools/@signal/tilt.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/tilt.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + % not jet fully tested!!!
--- a/aim-mat/tools/@signal/time2bin.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/time2bin.m Tue Aug 16 14:36:30 2011 +0100 @@ -7,11 +7,12 @@ % bin: interpolated bin value of that time in the signal corrected by % the signals start time % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret=time2bin(sig,time) % returns the real value of the times in bins in the signal. This must not
--- a/aim-mat/tools/@signal/toshio_lowpass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/toshio_lowpass.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=toshio_lowpass(sig,cutoff,order)
--- a/aim-mat/tools/@signal/uminus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/uminus.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % sig: inverted signal % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=uminus(a,b) %Vorzeichenwechsel
--- a/aim-mat/tools/@signal/variance.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/variance.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/23 10:56:28 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function m=variance(sig) % returns the mean of the signal
--- a/aim-mat/tools/@signal/vocoder.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/vocoder.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,11 +4,13 @@ % built on the "A Phase Vocoder in Matlab" on % http://www.ee.columbia.edu/~dpwe/resources/matlab/pvoc/ % -% (c) 2005, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/20 18:33:51 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=vocoder(a,warp_factor)
--- a/aim-mat/tools/@signal/vowel_plus_octave.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/vowel_plus_octave.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,9 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=vowel_plus_octave(sig,options,ratio) % construct two artificial vowels with octaves in pitch. The imortant thing % is that the random generator is reset in between, so that all random
--- a/aim-mat/tools/@signal/writetofile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/writetofile.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,39 +1,39 @@ -% method of class @ -% function writetofile(sig,name) -% INPUT VALUES: -% sig: signal to save -% name: filename -% RETURN VALUE: -% none -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function writetofile(sig,name) -%usage: writetofile(sig,name) -%DRRSmith 28/05/02 -%readsounddata=getdata(sig); -%fid=fopen(name,'wb'); -%fwrite(fid,readsounddata,'int16'); -%fclose(fid); - -if nargin<3 - -readsounddata=getdata(sig); -if (isunix==1) - fid=fopen(name,'wb','b'); %bigendian - fwrite(fid,readsounddata,'int16'); - fclose(fid); -else - fid=fopen(name,'wb','l'); %littleendian - fwrite(fid,readsounddata,'int16'); - fclose(fid); -end - -% readsounddata=getdata(sig); -% fid=fopen(name,'wb',endian); -% fwrite(fid,readsounddata,'int16'); -% fclose(fid); +% method of class @ +% function writetofile(sig,name) +% INPUT VALUES: +% sig: signal to save +% name: filename +% RETURN VALUE: +% none +% +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + + +function writetofile(sig,name) +%usage: writetofile(sig,name) +%DRRSmith 28/05/02 +%readsounddata=getdata(sig); +%fid=fopen(name,'wb'); +%fwrite(fid,readsounddata,'int16'); +%fclose(fid); + +readsounddata=getdata(sig); +if (isunix==1) + fid=fopen(name,'wb','b'); %bigendian + fwrite(fid,readsounddata,'int16'); + fclose(fid); +else + fid=fopen(name,'wb','l'); %littleendian + fwrite(fid,readsounddata,'int16'); + fclose(fid); +end + +% readsounddata=getdata(sig); +% fid=fopen(name,'wb',endian); +% fwrite(fid,readsounddata,'int16'); +% fclose(fid);
--- a/aim-mat/tools/@signal/writetowavefile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/@signal/writetowavefile.m Tue Aug 16 14:36:30 2011 +0100 @@ -8,12 +8,13 @@ % % writetowavefile saves the signal to a wavefile without changing its % amplitude (contrary to savewave) -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function writetowavefile(sig,name) samplerate=getsr(sig);
--- a/aim-mat/tools/@sinus/generate.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,34 +0,0 @@ -% method of class @sinus (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function sinu=generate(sinu) - - -phase=sinu.phase; -amplitude=sinu.amplitude; -fre=sinu.frequency; - -nr_points=getnrpoints(sinu); -sr=getsr(sinu); -length=getlength(sinu); - -von=0+phase; -periode=1/fre; -bis=2*pi*length/periode + phase; - -temp=linspace(von,bis,nr_points); -data=sin(temp); - -data=data*amplitude; - -sinu=setvalues(sinu,data);
--- a/aim-mat/tools/@sinus/sinus.m Fri May 20 12:42:38 2011 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,48 +0,0 @@ -% method of class @sinus (derived from @signal) -% -% INPUT VALUES: -% -% RETURN VALUE: -% -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - -function sinu=sinus(length,samplerate,frequency,amplitude,phase) -% produces a sinus as a signal - -if nargin < 5 - phase=0; -end -if nargin < 4 - amplitude=1; -end -if nargin < 3 - frequency=1; -end -if nargin < 2 - samplerate=1000; -end -if nargin < 1 - length=1; -end - -name= sprintf('Sinus with %5.2f Hz',frequency); -unit_y='amplitude'; -unit_x='time (ms)'; -start_time=0; - -ctt.frequency=frequency; -ctt.amplitude=amplitude; -ctt.phase=phase; - -sig=signal(length,samplerate,name,unit_x,unit_y,start_time); - -% f=class(struct([]),'fsignal',sig); -sinu=class(ctt,'sinus',sig); - -sinu=generate(sinu); -
--- a/aim-mat/tools/AIFrePtiP.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/AIFrePtiP.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function options=AIFrePtiP(framestruct_a); % plots the current frame (cframe) together with its sum of intervals
--- a/aim-mat/tools/AIFrePtiPStress.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/AIFrePtiPStress.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function pitch=AIFrePtiPStress2(framestruct_a); % plots the current frame (cframe) together with its sum of intervals
--- a/aim-mat/tools/AIpitch.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/AIpitch.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function pitch=AIpitch(framestruct_a); % plots the current frame (cframe) together with its sum
--- a/aim-mat/tools/AIsum.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/AIsum.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function AIsum(framestruct_a); % plots the current frame (cframe) together with its sum
--- a/aim-mat/tools/AIsurface.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/AIsurface.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function AIsurface(framestruct_a); % plots the current frame (cframe)
--- a/aim-mat/tools/GenerateSpiralFrom.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/GenerateSpiralFrom.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sp=GenerateSpiralFrom(input,spiral_struct)
--- a/aim-mat/tools/MakeQTMovie.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/MakeQTMovie.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2009-11-10 10:53:59 +0000 (Tue, 10 Nov 2009) $ -% $Revision: 706 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function MakeQTMovie(cmd,arg, arg2) % function MakeQTMovie(cmd, arg, arg2)
--- a/aim-mat/tools/Read16Bits.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/Read16Bits.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/Read32Bits.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/Read32Bits.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/ReadBytes.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ReadBytes.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/ReadIEEE2.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ReadIEEE2.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/ReadSNDChunk.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ReadSNDChunk.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/ReadWinFrame.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ReadWinFrame.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/ReadWinFrame2.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ReadWinFrame2.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/SBReadAiff.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/SBReadAiff.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,11 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=SBReadAiff(aifffile,echo) % usage SBReadAiff(aifffile,echo)
--- a/aim-mat/tools/adaptivthreshold.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/adaptivthreshold.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [newsig,strobe_points,threshold]=adaptivthreshold(sig,options)
--- a/aim-mat/tools/aifcwrite.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/aifcwrite.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ok=aifcwrite(x,fs,nbits,fname)
--- a/aim-mat/tools/aiffread.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/aiffread.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [x,fs]=aiffread(fname)
--- a/aim-mat/tools/aiffwrite.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/aiffwrite.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ok=aiffwrite(x,fs,nbits,fname)
--- a/aim-mat/tools/appendwaves.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/appendwaves.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sumwaves = appendwaves (varargin)
--- a/aim-mat/tools/bin2time.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/bin2time.m Tue Aug 16 14:36:30 2011 +0100 @@ -6,10 +6,12 @@ % % % (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=bin2time(bin,samplerate) % gibt die Zeit zurück, bei dem dieses Bin ist
--- a/aim-mat/tools/ca.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ca.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ca(namearg) % function ca('name'): close all open graphic windows that dont contain 'name' in their title
--- a/aim-mat/tools/calculate_spectral_profile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/calculate_spectral_profile.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function spectal_profile=calculate_spectral_profile(wave_file) % function for Tim Griffith to plot the spectral profile from an simple
--- a/aim-mat/tools/cell2double.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/cell2double.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function doubles=cell2double(cell,name) % usage: doubles=cell2double(cell,name)
--- a/aim-mat/tools/cent2fre.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/cent2fre.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % -% This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function hz=cent2fre(f0,cent) % usage: hz=cent2fre(sp,cent,oct)
--- a/aim-mat/tools/combfrePtiP.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/combfrePtiP.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function combfrePtiP(framestruct_a); % combined graphic of frequency axis and time interval axis
--- a/aim-mat/tools/combfrePtiPdots.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/combfrePtiPdots.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function pitch=combfrePtiPdots(framestruct_a); % combined graphic of frequency axis and time interval axis
--- a/aim-mat/tools/cool_frame_plot_colors.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/cool_frame_plot_colors.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % support file for 'aim-mat' % -% This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function cool_frame_plot_colors(fr,handle,options) % changes the plot colors of a frame plot
--- a/aim-mat/tools/coolregion.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/coolregion.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function cdat=coolregion(current_frame,cdat,peak)
--- a/aim-mat/tools/dB.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/dB.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,10 @@ % support file for 'aim-mat' % -% This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function x=dB(y,method) % convert to dB representation
--- a/aim-mat/tools/dBpower.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/dBpower.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % -% This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function x=dBpower(y) % convert power to dB representation
--- a/aim-mat/tools/data_gui.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/data_gui.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % -% This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function varargout = data_gui(varargin) % allow some nice action with a gui.
--- a/aim-mat/tools/distributelogarithmic.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/distributelogarithmic.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [res,scaleinfo]=distributelogarithmic(from,to,steps) % usage: [res,scaleinfo]=distributelogarithmic(from,to,steps)
--- a/aim-mat/tools/dots2sig.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/dots2sig.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=dots2sig(dots,nr_bins) % usage: sig=dots2sig(dots)
--- a/aim-mat/tools/extracttolist.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/extracttolist.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=extracttolist(list,delimiter) %usage: ret=extracttolist(list,delimiter)
--- a/aim-mat/tools/fexist.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/fexist.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function is_there=fexist(datei) %usage: is_there=fexist(datei)
--- a/aim-mat/tools/filterbandamp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/filterbandamp.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ampscale=filterbandamp(fre,amp,fc,df1,bw,df2) % usage: ampscale=filterbandamp(fre,amp,fc,df1,bw,df2)
--- a/aim-mat/tools/findstrobes.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/findstrobes.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2009-11-10 10:53:21 +0000 (Tue, 10 Nov 2009) $ -% $Revision: 705 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [strobe_points,threshold]=adaptivthreshold(sig,options)
--- a/aim-mat/tools/frand.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/frand.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function r=frand(from,to) % returns a random number in that range
--- a/aim-mat/tools/fre2cent.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/fre2cent.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function cent=fre2cent(f0,hz) % usage: cent=fre2cent(f0,cent)
--- a/aim-mat/tools/fre2note.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/fre2note.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % -% This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [str,oct,nr_note]=fre2note(fre)
--- a/aim-mat/tools/gen_ms_mc_ch.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/gen_ms_mc_ch.m Tue Aug 16 14:36:30 2011 +0100 @@ -32,10 +32,12 @@ % % (c) 2003-2008, University of Cambridge, Medical Research Council % Christoph Lindner -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +%% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig = gen_ms_mc_ch(segment_len, carrier_fq, envelope_fq, halflife, d_r, sample_fq)
--- a/aim-mat/tools/gen_ms_sc_ch.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/gen_ms_sc_ch.m Tue Aug 16 14:36:30 2011 +0100 @@ -22,10 +22,12 @@ % % (c) 2003-2008, University of Cambridge, Medical Research Council % Christoph Lindner -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig = gen_ms_sc_ch(segment_len, carrier_fq, envelope_fq, halflife, d_r, sample_fq)
--- a/aim-mat/tools/gen_multidamp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/gen_multidamp.m Tue Aug 16 14:36:30 2011 +0100 @@ -15,10 +15,11 @@ % % (c) 2003-2008, University of Cambridge, Medical Research Council % Christoph Lindner -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Version$ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=gen_multidamp(carriers,halflifes,reprate,signal_length, sample_fq)
--- a/aim-mat/tools/gen_multiramp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/gen_multiramp.m Tue Aug 16 14:36:30 2011 +0100 @@ -14,11 +14,11 @@ % sig object signal % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Version$ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=gen_multiramp(carriers,halflifes,reprate,signal_length, sample_fq) if nargin < 4
--- a/aim-mat/tools/genam.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/genam.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=genam(sig,car,mod)
--- a/aim-mat/tools/generate_clicktrain_normal.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/generate_clicktrain_normal.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=generate_clicktrain_normal % generate the "standart clicktrain response, that is subtracted from
--- a/aim-mat/tools/generatemultidamp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/generatemultidamp.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,11 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function sig=generatemultidamp(carriers,halflifes,reprate,signal_length)
--- a/aim-mat/tools/generatemultiramp.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/generatemultiramp.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=generatemultiramp(carriers,halflifes,reprate,signal_length)
--- a/aim-mat/tools/generateparameterfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/generateparameterfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function generateparameterfile(makefilename,varargin) % usage:generateparameterfile(makefilename,varargin)
--- a/aim-mat/tools/genrow.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/genrow.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,11 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function res=genrow
--- a/aim-mat/tools/genton.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/genton.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=genton(nr_comps,nr_harm,f0,len)
--- a/aim-mat/tools/getAIFFinfo.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getAIFFinfo.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/get_new_filename.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/get_new_filename.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function filename=get_new_filename(prefix,extension); % gives back the a name of a file that does not exist yet that has a number
--- a/aim-mat/tools/getaiffs.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getaiffs.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,11 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function aiffs=getaiffs(varargin) %usage: aiffs=getaiff(varargin)
--- a/aim-mat/tools/getargument.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getargument.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function str=getargument(source,search) % usage: str=getargument(source,search)
--- a/aim-mat/tools/getfiltervaluehighpass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getfiltervaluehighpass.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function scaler=getfiltervaluehighpass(cur_fre,cutoff,dbperoctave)
--- a/aim-mat/tools/getfiltervaluelowpass.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getfiltervaluelowpass.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function scaler=getfiltervaluehighpass(cur_fre,cutoff,dbperoctave)
--- a/aim-mat/tools/getmaxcontrast.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getmaxcontrast.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,11 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function contrast=getmaxcontrast(wo,maxpos,minpos,maxs,mins) % usage: getmaxcontrast(wo,maxs,mins)
--- a/aim-mat/tools/getmaximacharacteristics.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getmaximacharacteristics.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=getmaximacharacteristics(where,maxpos,minpos,maxs,mins) % gibt die wesentlichen Eigenschaften der Maxima zurück:
--- a/aim-mat/tools/getmaximumleftof.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getmaximumleftof.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [pos_max,maxval]=getmaximumleftof(where,maxpos,minpos,maxs,mins) % usage: [pos_max,maxval]=getmaximumleftof(where,womins,minvals,womaxs,maxvals)
--- a/aim-mat/tools/getmaximumrightof.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getmaximumrightof.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [pos_max,maxval,index]=getmaximumrightof(where,maxpos,minpos,maxs,mins) % usage: [pos_max,maxval]=getmaximumrightof(where,womins,minvals,womaxs,maxvals)
--- a/aim-mat/tools/getmaxwidth.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getmaxwidth.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function width=getmaxwidth(wo,maxpos,minpos,maxs,mins) % usage: width=getmaxwidth(wo,frewomax,fremaxs,frewomin,fremins)
--- a/aim-mat/tools/getminimumleftof.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getminimumleftof.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [pos_min,minval,index]=getminimumleftof(where,maxpos,minpos,maxs,mins) % usage: [pos_min,minval]=getminimumleftof(where,womins,minvals,womaxs,maxvals)
--- a/aim-mat/tools/getminimumrightof.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getminimumrightof.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [pos_min,minval,index]=getminimumrightof(where,maxpos,minpos,maxs,mins) % returns the minimum that is right of point "where"
--- a/aim-mat/tools/getmusicaltone.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getmusicaltone.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [cent,oct,relcent]=getmusicaltone(fre) % usage: [cent,oct]=getmusicaltone(fre)
--- a/aim-mat/tools/getrandommelody.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getrandommelody.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function fres=getrandommelody(nr,from,to)
--- a/aim-mat/tools/getsingleaif.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getsingleaif.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function fr=getsingleaif(varargin) % usage: fr=getsingleaif(varargin)
--- a/aim-mat/tools/getstimulusparameter.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getstimulusparameter.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=getstimulusparameter() ret=tame_get_stimulus_parameter;
--- a/aim-mat/tools/getupdownmelody.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/getupdownmelody.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function fres=getupdownmelody(nr,aroundfre,upordown)
--- a/aim-mat/tools/is_current_var.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/is_current_var.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function wheter=is_current_var(varname,in) % usage: is_current_var(varname,)
--- a/aim-mat/tools/lin2log.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/lin2log.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function logmeasure=lin2log(value,scaleinfo) % usage: function logmeasure=lin2log(value,scaleinfo)
--- a/aim-mat/tools/loadstimulus.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/loadstimulus.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [stim,wavefilename,stimdir]=loadstimulus(handles,annum,unnum,exnum,sweepnum)
--- a/aim-mat/tools/loadtextfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/loadtextfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,11 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function str=loadtextfile(name) % usage: str=loadtextfile(pfad,name)
--- a/aim-mat/tools/log2lin.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/log2lin.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function linmeasure=log2lin(value,scaleinfo)
--- a/aim-mat/tools/makeaimmovie.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/makeaimmovie.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function makeaimmovie(varargin) %usage: function makemovie(arguments)
--- a/aim-mat/tools/makeall.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/makeall.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org fundamental=125;
--- a/aim-mat/tools/maxstruct.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/maxstruct.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [ret,womax]=maxstruct(str,topic,nr_second_dimension) % gets back the structitem with the highest value in "topic"
--- a/aim-mat/tools/mixstruct.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/mixstruct.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function new_struct=mixstruct(old_struct,add_struct)
--- a/aim-mat/tools/model_findpitch.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/model_findpitch.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [ret,sig,sp]=model_findpitch(varargin) %usage: [ret,sig,sp]=findpitch(varargin)
--- a/aim-mat/tools/moviescript.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/moviescript.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function moviescript()
--- a/aim-mat/tools/myReadAIFF.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/myReadAIFF.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org %%%%%%%%%%%%%%%%%%%%%%%%%%% %
--- a/aim-mat/tools/myplotfft.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/myplotfft.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function plotfft(name) % usage: plotfft('ghfgghfh.wav')
--- a/aim-mat/tools/mysubplot.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/mysubplot.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function back=mysubplot(nr_y,nr_x,nr,rect, hint) % usage: mysubplot(nr_y,nr_x,nr,rect, hint))
--- a/aim-mat/tools/note2fre.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/note2fre.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [fre,oct,nr_note]=note2fre(note)
--- a/aim-mat/tools/parametergui.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/parametergui.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % % -% (c) 2003-2008, University of Cambridge -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function varargout = parametergui(varargin) % all action from a parametergui.
--- a/aim-mat/tools/playstereo.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/playstereo.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function playstereo(sig1,sig2)
--- a/aim-mat/tools/plotfft.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/plotfft.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function plotfft(name) % usage: plotfft('ghfgghfh.wav')
--- a/aim-mat/tools/producesounddata.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/producesounddata.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function [sounddata,samplerate,bits,endian]=producesounddata(soundcommand,temp_sound_file_name,str_sound_sample_rate,str_sound_endian,start_time,duration) % usage: [sounddata,samplerate,endian]=producesounddata(soundcommand)
--- a/aim-mat/tools/publishtoword.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/publishtoword.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + % publishtoword
--- a/aim-mat/tools/randint.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/randint.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function int=randint(von,bis) % produces an int between von and bis or from 1 to von
--- a/aim-mat/tools/rawfile2wavfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/rawfile2wavfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function [data,samplerate,endian]=rawfile2wavfile(datafile,samplerate,endian) % usage: wavdata=rawfile2wavfile(datafile,samplerate,endian)
--- a/aim-mat/tools/readparameterfile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/readparameterfile.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function str=readparameterfile(filename)
--- a/aim-mat/tools/replacestr.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/replacestr.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=replacestr(orginal,org,sub) % usage: ret=replacestr(orginal,org,sub)
--- a/aim-mat/tools/resrictstructtohighest.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/resrictstructtohighest.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=resrictstructtohighest(str,topic,maxrange)
--- a/aim-mat/tools/reversecorrelate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/reversecorrelate.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=reversecorrelate(a,st,von,bis) % signal muss ein Signal sein
--- a/aim-mat/tools/saimovie.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/saimovie.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function saimakeaimmovie(varargin)
--- a/aim-mat/tools/savetofile.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/savetofile.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function savetofile(in,file)
--- a/aim-mat/tools/scalefigure.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/scalefigure.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function scalefigure(hand,x,y) % change the size of the window in hand by the factors in x and y without
--- a/aim-mat/tools/show_pitch_spiral.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/show_pitch_spiral.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function show_pitch_spiral(frame)
--- a/aim-mat/tools/slidercontrols/slidereditcontrol_get_value.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/slidercontrols/slidereditcontrol_get_value.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:45 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function value=slidereditcontrol_get_value(combi) % a slidereditcontrol consists of a slider and an edit object, that are
--- a/aim-mat/tools/slidercontrols/slidereditcontrol_set_range.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/slidercontrols/slidereditcontrol_set_range.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/03/03 19:50:26 $ -% $Revision: 1.6 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function combi=slidereditcontrol_set_range(combi,duration) % sets the range and the step size, so that the width of the slider is OK
--- a/aim-mat/tools/slidercontrols/slidereditcontrol_set_raweditvalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/slidercontrols/slidereditcontrol_set_raweditvalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/02/21 20:00:38 $ -% $Revision: 1.6 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function combi=slidereditcontrol_set_raweditvalue(combi,value) % set the edit value eg. by typing a text in the edit control
--- a/aim-mat/tools/slidercontrols/slidereditcontrol_set_rawslidervalue.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/slidercontrols/slidereditcontrol_set_rawslidervalue.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/01/17 16:57:45 $ -% $Revision: 1.3 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function combi=slidereditcontrol_set_rawslidervalue(combi,value) % set the slider value e.g. by using the slider
--- a/aim-mat/tools/slidercontrols/slidereditcontrol_set_value.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/slidercontrols/slidereditcontrol_set_value.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/02/14 14:39:32 $ -% $Revision: 1.5 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function combi=slidereditcontrol_set_value(combi,value) % a slidereditcontrol consists of a slider and an edit object, that are
--- a/aim-mat/tools/slidercontrols/slidereditcontrol_setup.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/slidercontrols/slidereditcontrol_setup.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003, University of Cambridge, Medical Research Council -% Stefan Bleeck (stefan@bleeck.de) -% http://www.mrc-cbu.cam.ac.uk/cnbh/aimmanual -% $Date: 2003/02/13 18:16:07 $ -% $Revision: 1.4 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function combi=slidereditcontrol_setup(sliderhandle,edithandle,minvalue,maxvalue,current_value,is_log,editscaler,nreditdigits) % a slidereditcontrol consists of a slider and an edit object, that are
--- a/aim-mat/tools/solve.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/solve.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,3 +1,10 @@ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function x=solve(p,y) % solves the polynom p for the value at y % @@ -8,13 +15,6 @@ % return value(s) are the values, where the polynom is equal the % y-value % - -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ - p(end)=p(end)-y; x=roots(p);
--- a/aim-mat/tools/sortstruct.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/sortstruct.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,12 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function ret=sortstruct(str,topic,nr_second_dimension) % sorts the structure str by the values in "topic"
--- a/aim-mat/tools/spectrogram.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/spectrogram.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function f=spectrogram(sig,nr_f,maxfre)
--- a/aim-mat/tools/spikeautocorrelate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/spikeautocorrelate.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function cor=spikeautocorrelate(data,sr,window) % calculate the autocorrelation (all interval histogram)
--- a/aim-mat/tools/spikecrosscorrelate.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/spikecrosscorrelate.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,12 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function cor=spikecrosscorrelate(data1,data2,sr,window_start,window_stop) % calculate the autocorrelation (all interval histogram)
--- a/aim-mat/tools/str2cell.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/str2cell.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function c = str2cell(varargin) %STR2CELL Convert a string to a cell array of lines.
--- a/aim-mat/tools/strf.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/strf.m Tue Aug 16 14:36:30 2011 +0100 @@ -1,9 +1,11 @@ % support file for 'aim-mat' % % This external file is included as part of the 'aim-mat' distribution package -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function retfld=strf(sig,spikes,start,stop,nrfre,maxfre) % sig muss ein Signal sein
--- a/aim-mat/tools/struct2double.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/struct2double.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=struct2double(str,field,mmm) % returns a field of the values in str.fild
--- a/aim-mat/tools/struct2stringarray.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/struct2stringarray.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function lines=struct2stringarray(str,strname) % goes recursevly through the struct and appends a line for each
--- a/aim-mat/tools/structisequal.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/structisequal.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function ret=structisequal(str1,str2)
--- a/aim-mat/tools/tentsurface.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/tentsurface.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,12 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org function tentsurface(framestruct_a); % plots the current frame (cframe)
--- a/aim-mat/tools/time2bin.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/time2bin.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function res=time2bin(time,samplerate) % gibt das Bin zurück, bei dem diese Zeit wäre
--- a/aim-mat/tools/transferetotune.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/transferetotune.m Tue Aug 16 14:36:30 2011 +0100 @@ -4,12 +4,13 @@ % % RETURN VALUE: % -% -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=transferetotune(tune,art)
--- a/aim-mat/tools/ymca.m Fri May 20 12:42:38 2011 +0100 +++ b/aim-mat/tools/ymca.m Tue Aug 16 14:36:30 2011 +0100 @@ -5,11 +5,13 @@ % RETURN VALUE: % % -% (c) 2003-2008, University of Cambridge, Medical Research Council -% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de) -% http://www.pdn.cam.ac.uk/cnbh/aim2006 -% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $ -% $Revision: 585 $ +% This external file is included as part of the 'aim-mat' distribution package +% (c) 2011, University of Southampton +% Maintained by Stefan Bleeck (bleeck@gmail.com) +% download of current version is on the soundsoftware site: +% http://code.soundsoftware.ac.uk/projects/aimmat +% documentation and everything is on http://www.acousticscale.org + function sig=ymca()