main1.m

来自「Spectrogram function in matlab [For spee」· M 代码 · 共 38 行

clc;
close all;
clear all;

%**************************************************************************
[inp1 Fs1 nb1]=wavread('FF1.wav');
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

%Spectrogram_V4(inp,Fs,segsize,overlap,PREEMPH,A,SPEC_EXP,CLR,XL,YL)
%   SEGSIZE        => SEG SIZE
%   OVERLAP        => OVERLAP SIZE 
%   PREEMPH        => 1 FOR PREEMPHASIS
%   A              => PREEMPHASIS FILTER COEFFICIENT  
%   SPEC_EXP       => (0 TO 1) CONTROL THE CONTRAST  
%   CLR            => 1 FOR COLOR SPECTROGRAM   
%   XL, YL         => 1 TO DISPLAY LABEL 

inp1=inp1(15000:25000);

figure;
segsize=128; overlap=segsize; PREEMPH=1; A=0.99; SPEC_EXP=0.25; CLR=0; XL=1; YL=1;
subplot(211);plot(inp1);axis tight;grid on;
subplot(212); Spectrogram_V5(inp1,Fs1,segsize,overlap,PREEMPH,A,SPEC_EXP,CLR,XL,YL,'(c)');

figure;
segsize=128; overlap=segsize; PREEMPH=1; A=0.99; SPEC_EXP=0.25; CLR=1; XL=1; YL=1;
subplot(211);plot(inp1);axis tight;grid on;
subplot(212); specgram(inp1)

figure('Name','overlap=segsize, segsize/2, segsize/4');
segsize=128; overlap=segsize; PREEMPH=1; A=0.99; SPEC_EXP=0.25; CLR=1; XL=1; YL=1;
subplot(311); Spectrogram_V5(inp1,Fs1,segsize,overlap,PREEMPH,A,SPEC_EXP,CLR,XL,YL,'(a)');
segsize=128; overlap=segsize/2; PREEMPH=1; A=0.99; SPEC_EXP=0.25; CLR=1; XL=1; YL=1;
subplot(312); Spectrogram_V5(inp1,Fs1,segsize,overlap,PREEMPH,A,SPEC_EXP,CLR,XL,YL,'(b)');
segsize=128; overlap=segsize/4; PREEMPH=1; A=0.99; SPEC_EXP=0.25; CLR=1; XL=1; YL=1;
subplot(313); Spectrogram_V5(inp1,Fs1,segsize,overlap,PREEMPH,A,SPEC_EXP,CLR,XL,YL,'(c)');