tftb-0.2.rar

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个文件信息