function?y?=?im2jpeg2k（x?n?q）?
%IM2JPEG2K?Compresses?an?image?using?a?JPEG?2000?approximation.
%???Y?=?IM2JPEG2K（X?N?Q）?compresses?image?X?using?an?N-scale?JPEG
%???2K?wavelet?transform?implicit?or?explicit?coefficient
%???quantization?and?Huffman?symbol?coding?augmented?by?zero
%???run-length?coding.?If?quantization?vector?Q?contains?two
%???elements?they?are?assumed?to?be?implicit?quantization
%???parameters;?else?it?is?assumed?to?contain?explicit?subband?step
%???sizes.??Y?is?an?encoding?structure?containing?Huffman-encoded
%???data?and?additional?parameters?needed?by?JPEG2K2IM?for?decoding.
%
%???See?also?JPEG2K2IM.

%???Copyright?2002-2004?R.?C.?Gonzalez?R.?E.?Woods?&?S.?L.?Eddins
%???Digital?Image?Processing?Using?MATLAB?Prentice-Hall?2004
%???$Revision:?1.5?$??$Date:?2003/10/26?18:38:13?$

global?RUNS

error（nargchk（3?3?nargin））;?????????%?Check?input?arguments

if?ndims（x）?~=?2?|?~isreal（x）?|?~isnumeric（x）?|?~isa（x?‘uint8‘）
???error（‘The?input?must?be?a?UINT8?image.‘）;???
end

if?length（q）?~=?2?&?length（q）?~=?3?*?n?+?1
???error（‘The?quantization?step?size?vector?is?bad.‘）;??
end

%?Level?shift?the?input?and?compute?its?wavelet?transform.
x?=?double（x）?-?128;
[c?s]?=?wavefast（x?n?‘jpeg9.7‘）;

%?Quantize?the?wavelet?coefficients.
q?=?stepsize（n?q）;
sgn?=?sign（c）;?????sgn（find（sgn?==?0））?=?1;?????c?=?abs（c）;
for?k?=?1:n
???qi?=?3?*?k?-?2;
???c?=?wavepaste（‘h‘?c?s?k?wavecopy（‘h‘?c?s?k）?/?q（qi））;
???c?=?wavepaste（‘v‘?c?s?k?wavecopy（‘v‘?c?s?k）?/?q（qi?+?1））;
???c?=?wavepaste（‘d‘?c?s?k?wavecopy（‘d‘?c?s?k）?/?q（qi?+?2））;
end
c?=?wavepaste（‘a‘?c?s?k?wavecopy（‘a‘?c?s?k）?/?q（qi?+?3））;
c?=?floor（c）;???????c?=?c?.*?sgn;

%?Run-length?code?zero?runs?of?more?than?10.?Begin?by?creating
%?a?special?code?for?0?runs?（‘zrc‘）?and?end-of-code?（‘eoc‘）?and
%?making?a?run-length?table.?
zrc?=?min（c（:））?-?1;??????eoc?=?zrc?-?1;??????RUNS?=?[65535];

%?Find?the?run?transition?points:?‘plus‘?contains?the?index?of?the
%?start?of?a?zero?run;?the?corresponding?‘minus‘?is?its?end?+?1.
z?=?c?==?0;?????????????????z?=?z?-?[0?z（1:end?-?1）];
plus?=?find（z?==?1）;????????minus?=?find（z?==?-1）;

%?Remove?any?terminating?zero?run?from?‘c‘.
if?length（plus）?~=?length（minus）
???c（plus（end）:end）?=?[];??????c?=?[c?eoc];????????
end

%?Remove?all?other?zero?runs?（based?on?‘plus‘?and?‘minus‘）?from?‘c‘.
for?i?=?length（minus）:-1:1
???run?=?minus（i）?-?plus（i）;
???if?run?>?10
??????ovrflo?=?floor（run?/?65535）;????run?=?run?-?ovrflo?*?65535;
??????c?=?[c（1:plus（i）?-?1）?repmat（[zrc?1]?1?ovrflo）?zrc?...
???????????runcode（run）?c（minus（i）:end）];
???end
end

%?Huffman?encode?and?add?misc.?information?for?decoding.
y.runs????=?uint16（RUNS）;
y.s???????=?uint16（s（:））;
y.zrc?????=?uint16（-zrc）;
y.q???????=?uint16（100?*?q‘）;
y.n???????=?uint16（n）;
y.huffman?=?mat2huff（c）;

%-------------------------------------------------------------------%
function?y?=?runcode（x）
%?Find?a

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????1260049??2020-05-27?16:41??9-JPEG2000編碼方式的MATLAB實現+原理講解\49369719matlab-for-JPEG2000.rar

?????文件???????2871??2020-05-27?16:34??9-JPEG2000編碼方式的MATLAB實現+原理講解\85170556jpeg2000.rar

?????文件??????97409??2020-05-27?16:35??9-JPEG2000編碼方式的MATLAB實現+原理講解\9651191jpeg2000_matlab.rar

?????文件???????4070??2004-12-16?13:36??9-JPEG2000編碼方式的MATLAB實現+原理講解\im2jpeg2k.m

?????文件????????641??2000-03-28?21:16??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\aff_image.m

?????文件????????791??2000-05-17?12:56??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Aff_step.m

?????文件????????780??2000-04-14?12:20??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\aff_weight.m

?????文件????????852??2000-03-28?21:20??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Ajuste.m

?????文件?????????98??2000-04-14?00:18??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Cal_R.m

?????文件???????1587??2000-02-10?23:47??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\CMP_MRK.M

?????文件????????846??2000-03-07?19:25??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\code_blocs.m

?????文件???????1168??2000-07-21?10:19??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Compare.m

?????文件???????1126??2000-03-03?18:51??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\DD_arrange.m

?????文件???????1149??2000-03-06?22:22??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\DD_inv_arrange.m

?????文件???????1036??2000-03-15?17:38??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\decode_blocs.m

?????文件???????1132??2000-03-05?19:50??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\down_sample.m

?????文件????????681??2000-04-27?00:05??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\eb2_get_delta.m

?????文件????????255??2000-03-29?10:50??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\ENTROPY.M

?????文件?????????69??1998-08-20?16:32??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\ETROPY.M

?????文件???????1295??2000-03-06?16:03??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Fdwt.m

?????文件???????2801??2000-05-23?09:09??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\gen_table.m

?????文件????????821??2000-04-26?01:28??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\get_alpha.m

?????文件????????291??2000-04-25?23:27??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Get_pond.m

?????文件????????448??2000-05-23?09:10??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Get_Qstep.m

?????文件????????856??2000-04-27?14:16??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\get_RI.m

?????文件????????570??2000-06-26?12:09??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Get_step.m

?????文件????????245??2000-04-14?12:13??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\get_weight.m

?????文件???????1292??2000-03-03?19:20??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\Idwt.m

?????文件???????1246??2000-07-21?14:30??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\init_image.m

?????文件???????1141??2000-03-04?11:41??9-JPEG2000編碼方式的MATLAB實現+原理講解\jpeg2000_matlab\inv_trans_color.m

............此處省略51個文件信息