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?if?nargin?
xmax?=?max（max（abs（x）））;
if?nargin?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

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????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個(gè)文件信息