# spectraMBL2005

## PURPOSE

## SYNOPSIS

This is a script file.

## DESCRIPTION

## CROSS-REFERENCE INFORMATION

This function calls:

- mtspecgramtrigc Multi-taper event triggered time-frequency spectrum - continuous process
- mtspecgramtrigpt Multi-taper event triggered time-frequency spectrum - point process times

This function is called by:

## SOURCE CODE

    0001 [fname,pname]=uigetfile('*');
    0002 eval(['load ' pname '\' fname]);
    0003 params.tapers=[5 9]; params.pad=2; params.Fs=1000; params.fpass=[0 100]; params.trialave=1;
    0004 movingwin=[0.5 0.1]; % duration of moving window used to evaluate spectrograms
    0005 win=[2 2]; % window around events
    0006 fignum=[2 3 6 9 8 7 4 1]; % figure numbers for particular directions
    0007 for targ=0:7;
    0008     E=targoff(find(targets==targ));
    0009     [Ssp,tsp,fsp,R]=mtspecgramtrigpt(dsp(1),E,win,movingwin,params);
    0010     figure(1);
    0011     subplot(3,3,fignum(targ+1));
    0012     imagesc(t,f,10*log10(S)'); axis xy; colorbar;
    0013     figure(2);
    0014     subplot(3,3,fignum(targ+1));
    0015     plot(t,R);
    0016     [Slfp,tlfp,flfp]=mtspecgramtrigc(dlfp(:,1),E,win,movingwin,params);
    0017     figure(3);
    0018     subplot(3,3,fignum(targ+1));
    0019     imagesc(t,f,10*log10(S)'); axis xy; colorbar;
    0020 end;
    0021
    0022
    0023
    0024
    0025
    0026
    0027