• 大小: 1.81M
    文件类型: .rar
    金币: 1
    下载: 0 次
    发布日期: 2023-09-14
  • 语言: 其他
  • 标签: 其他  

资源简介

tftb-0.2.rar

资源截图

代码片段和文件信息

%  This program is free software; you can redistribute it and/or modify
%  it under the terms of the GNU General Public License as published by
%  the Free Software Foundation; either version 2 of the License or
%  (at your option) any later version.
%
%  This program is distributed in the hope that it will be useful
%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%  GNU General Public License for more details.
%
%  You should have received a copy of the GNU General Public License
%  along with this program; if not write to the Free Software
%  Foundation Inc. 51 Franklin St Fifth Floor Boston MA  02110-1301  USA
echo off
%PARAMFUN Figures representing different TFD of the Cohen‘s class.
% On the left the ambiguity plane and the weighting functions ;
% On the right the time-frequency distributions.

% O. Lemoine - February July 1996. 


if ~exist(‘paramfun.mat‘)
 echo on
 %
 % PARAMFUN does not exist.
 %
 % You haven‘t created “paramfun.mat“. Please run ??? to proceed.
 % The next part of the demo is skipped.
 %
else
load paramfun
Ncont=5;

subplot(321);
contour(dlr([(N+rem(N2))/2+1:N 1:(N+rem(N2))/2]:)8); 
xlabel(‘Delay‘); ylabel(‘Doppler‘);
title(‘Wigner-Ville weighting function‘)
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])
hold on
[ah]=contour(WF1[1/2]‘g‘);
set(h‘linewidth‘2);
hold off

subplot(322);
Max=max(max(tfr1));
levels=linspace(Max/10MaxNcont);
contour(tfr1levels);
xlabel(‘Time‘); ylabel(‘Frequency‘);
title(‘Wigner-Ville distribution‘)
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])

subplot(323);
contour(dlr([(N+rem(N2))/2+1:N 1:(N+rem(N2))/2]:)8); 
xlabel(‘Delay‘); ylabel(‘Doppler‘);
title(‘Spectrogram weighting function‘);
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])
hold on
[ah]=contour(WF2[1/2]‘g‘);
set(h‘linewidth‘2);
hold off

subplot(324);
Max=max(max(tfr2));
levels=linspace(Max/10MaxNcont);
contour(tfr2(1:N/2:)levels);
xlabel(‘Time‘); ylabel(‘Frequency‘);
title(‘Spectrogram‘)
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])

subplot(325);
contour(dlr([(N+rem(N2))/2+1:N 1:(N+rem(N2))/2]:)8); 
xlabel(‘Delay‘); ylabel(‘Doppler‘);
title(‘SP-WV weighting function‘);
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])
hold on
[ah]=contour(WF3[1/2]‘g‘);
set(h‘linewidth‘2);
hold off

subplot(326);
Max=max(max(tfr3));
levels=linspace(Max/10MaxNcont);
contour(tfr3levels);
xlabel(‘Time‘); ylabel(‘Frequency‘);
title(‘Smoothed-pseudo-WVD‘);
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])


figure(2);

subplot(221);
contour(dlr([(N+rem(N2))/2+1:N 1:(N+rem(N2))/2]:)8); 
xlabel(‘Delay‘); ylabel(‘Doppler‘);
title(‘Born-Jordan weighting function‘);
set(gca‘yTickLabel‘[])
set(gca‘xTickLabel‘[])
hold on
[ah]=contour(WF4[1/2]‘g‘);
set(h‘linewidth‘2);
hold off

subplot(222);
Max=max(max(tfr4));
lev

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件         64  2005-10-15 23:26  tftb-0.2\AUTHORS

     文件      18011  2005-10-13 23:03  tftb-0.2\COPYING

     文件        240  2008-02-15 23:38  tftb-0.2\CVS\Entries

     文件        106  2008-02-15 23:38  tftb-0.2\CVS\Entries.Log

     文件          5  2008-02-15 23:38  tftb-0.2\CVS\Repository

     文件         57  2008-02-15 23:38  tftb-0.2\CVS\Root

     文件      16568  2005-10-13 23:06  tftb-0.2\data\bat.mat

     文件        129  2008-02-15 23:38  tftb-0.2\data\CVS\Entries

     文件         10  2008-02-15 23:38  tftb-0.2\data\CVS\Repository

     文件         57  2008-02-15 23:38  tftb-0.2\data\CVS\Root

     文件     348866  2005-10-13 23:06  tftb-0.2\data\gabor.mat

     文件      34816  2005-10-13 23:06  tftb-0.2\data\movcw4at.mat

     文件        380  2008-02-15 23:38  tftb-0.2\demos\CVS\Entries

     文件         11  2008-02-15 23:38  tftb-0.2\demos\CVS\Repository

     文件         57  2008-02-15 23:38  tftb-0.2\demos\CVS\Root

     文件       3697  2007-04-23 18:24  tftb-0.2\demos\paramfun.m

     文件       1552  2005-10-13 23:13  tftb-0.2\demos\tfdemo.m

     文件       5988  2005-10-13 23:13  tftb-0.2\demos\tfdemo1.m

     文件      10051  2005-10-13 23:13  tftb-0.2\demos\tfdemo2.m

     文件      10367  2005-10-13 23:13  tftb-0.2\demos\tfdemo3.m

     文件      14603  2005-10-13 23:13  tftb-0.2\demos\tfdemo4.m

     文件      10543  2005-10-13 23:13  tftb-0.2\demos\tfdemo5.m

     文件       6563  2005-10-13 23:13  tftb-0.2\demos\tfdemo6.m

     文件       7780  2005-10-13 23:13  tftb-0.2\demos\tfdemo7.m

     文件       1057  2008-02-15 19:59  tftb-0.2\INSTALL

     文件       2409  2005-10-13 23:15  tftb-0.2\mfiles\altes.m

     文件       2884  2005-10-13 23:15  tftb-0.2\mfiles\ambifunb.m

     文件       5455  2005-10-13 23:15  tftb-0.2\mfiles\ambifuwb.m

     文件       1620  2005-10-13 23:15  tftb-0.2\mfiles\amexpo1s.m

     文件       1628  2005-10-13 23:15  tftb-0.2\mfiles\amexpo2s.m

............此处省略520个文件信息

评论

共有 条评论