双树复小波变换源代码 DT-CWTcode

具有Gabor变换的六个方向选择性，而且有更小的冗余度，对图像处理的同行们肯定有很大的价值，可直接下载使用。-The source code also known as the Dual-Tree Complex Wavelet Transform source code, it not only has the Gabor transform of the six direction selectivity, but also has a smaller redundancy of image processing colleagues certainly have great value.

function y = cimage5（xxsati0i1）

% function y = cimage5（xxsati0i1）
% Plot a complex matrix x as a colour image using Matlab5 RGB mode.
% xsat if given defines the amplitude of x which corresponds
% to saturated colours.  （If xsat<0 xmax is used.）
% i0i1 if given define the grey and sat. colour intensities.
% i0 is the minimum grey intensity at the centre of the circle
% and i1 is the intensity at the circumference.
% The colours are mapped around the circle as:
%           yellow
%       ?        orange
%   green            red
%      cyan     magenta
%            blue
% 
% If an output is not requested the image is plotted.
% Otherwise the image of map indices is returned as y. 
%
% For a plot of the colour circle with a white centre use:
% t=ones（331）*[-16:16]; cimage5（t-j*t.‘160.91.0）
% For a dark centre use:
% t=ones（331）*[-16:16]; cimage5（t-j*t.‘160.31.2）

% Nick Kingsbury Cambridge University July 1998.

if nargin < 4 i1 = 1.0; end
if nargin < 3 i0 = 0.9; end

xmax = max（max（abs（x）））;
if nargin < 2 xsat = xmax; end
if xsat<0 xsat = xmax; end

fprintf（1‘Fig %.0f: xsat = %f xmax = %f\n‘ gcf xsat xmax）;

% Scale x and limit to a max amplitude of 1.
x = x ./ xsat;
x = x ./ max（abs（x）1）;

% Calculate red green and blue intensities in cx.
ax = （i0 - 0.5*i1） * （1 - abs（x））;
cx（::1） = （0.5 * i1） * （real（x） + 1） + ax;
cx（::2） = （0.25 * i1） * （2 - real（x） + imag（x）） + ax;
cx（::3） = （0.5 * i1） * （1 - imag（x）） + ax;
cx = max（min（cx1）0）;

if nargout == 0
% Draw the image.
  image（cx）
  axis image
else
  y = cx;
end

return

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

     文件       3290  2002-05-13 14:37  dt-cwt源码\dtwavexfm.m

     文件       2151  2002-06-06 22:33  dt-cwt源码\wavexfm.m

     文件       2204  2002-06-06 19:10  dt-cwt源码\coliwtfilt.m

     文件       3000  2002-05-14 16:58  dt-cwt源码\shift_test_2D.m

     文件       2615  2002-05-14 15:51  dt-cwt源码\wavexfm2.m

     文件       2709  2003-06-10 14:47  dt-cwt源码\waveifm2.m

     文件       6597  2002-05-13 17:20  dt-cwt源码\dtwavexfm2.m

     文件       2950  2002-05-13 15:55  dt-cwt源码\shift_test_1D.m

     文件       2154  2002-05-13 15:20  dt-cwt源码\waveifm.m

     文件       3579  2002-05-13 15:14  dt-cwt源码\dtwaveifm.m

     文件       2070  2002-06-06 23:05  dt-cwt源码\coldwtfilt.m

     文件       5018  2002-05-11 02:17  dt-cwt源码\dtwaveifm2.m

     文件        919  2003-03-19 07:59  dt-cwt源码\colfilter.m

     文件       3059  2003-03-19 07:59  dt-cwt源码\colifilt.m

     文件       5215  2003-05-20 14:42  dt-cwt源码\shiftmovie.m

     文件       1472  2001-02-08 12:00  dt-cwt源码\qshift_b.mat

     文件       1600  2001-02-08 12:00  dt-cwt源码\qshift_c.mat

     文件       1728  2001-02-08 12:00  dt-cwt源码\qshift_d.mat

     文件        813  2001-02-08 12:00  dt-cwt源码\reflect.m

     文件       1216  2001-02-08 12:00  dt-cwt源码\qshift_a.mat

     文件       1646  2001-02-08 11:58  dt-cwt源码\cimage5.m

     文件       2244  2001-02-08 11:58  dt-cwt源码\coldfilt.m

     文件       1679  2001-02-08 11:58  dt-cwt源码\draw.m

     文件        480  2001-02-08 11:58  dt-cwt源码\legall.mat

     文件      77847  2001-02-08 11:58  dt-cwt源码\lenna.mat

     文件       1216  2001-02-03 08:43  dt-cwt源码\qshift_06.mat

     文件        608  2000-09-28 16:13  dt-cwt源码\antonini.mat

     文件        544  2000-09-28 16:13  dt-cwt源码\near_sym_a.mat

     文件        864  2000-09-28 16:13  dt-cwt源码\near_sym_b.mat

     文件        221  1998-12-12 16:14  dt-cwt源码\setfig.m

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