%福建農(nóng)林大學(xué)金山學(xué)院?2007級?jay粉絲?QQ544786937
%采用Z字形的游程編碼對DCT變換矩陣進行編碼
function?r=rlez（x）??%r為游程編碼后的游程編碼表，x為待編碼的數(shù)據(jù)矩陣
??[mn]=size（x）;?%讀取數(shù)據(jù)矩陣的行數(shù)和列數(shù)
??r（11）=x（11）;?%初始化r（11）
??r（12）=1;?%初始化r（12）
??c=2;%用c/2的余數(shù)用來記錄游走方向，初始值為斜向下游走
??i=1;j=2;%讓編碼從第二個數(shù)開始，即x（12）。
??l=1;t1=2;t2=2;%l用來記錄r中的位置，
??for?k=2:m+n-1??%從第二個數(shù)開始，總共有m+n-1次Z形轉(zhuǎn)換
????????while?i<=t1&j<=t2?%判斷是否超過游走邊界t1記錄i的最大值，t2記錄j的最大值??????????
????????????if?r（l1）==x（ij）?
???????????????r（l2）=r（l2）+1;?%相等則將r的第l個位置第二列個數(shù)加1????
????????????else?l=l+1;???%不相等，則跳轉(zhuǎn)到下一個位置
???????????????r（l1）=x（ij）;?%將當(dāng)前的新數(shù)據(jù)加入到r矩陣中???????????????
???????????????r（l2）=1;?%相應(yīng)的行程置1
????????????end????????
????????????if?mod（c2）==1%決定游走方向，當(dāng)mod（c2）==1的時候表示斜向上游走，當(dāng)mod（c2）==0時表示斜向下游走。
???????????????i=i-1;??%向上游走就是讓i-1j+1。
???????????????j=j+1;
????????????else???????%向下游走就是讓j-1i+1。
???????????????i=i+1;
???????????????j=j-1;??????
????????????end
????????end???%一旦越界就停止循環(huán)?????
????????%由于上面游走的時候，會產(chǎn)生越界，即有可能或i>t1或j>t2下面讓越界返回到正常位置??????
??????????if?c??????????????if?mod（c2）==1??%決定游走方向，=1時表示斜向上游走，=0時表示斜向下游走
?????????????????i=i+1;?%向上越界后只需讓i+1就可以到下一行的正常位置
??????????????else
?????????????????j=j+1;?%向下越界后只需讓j+1就可以到下一列的正常位置
??????????????end
??????????????c=c+1;?%越界一次，讓c+1，即改變游方向
??????????????t1=c;?%邊界最大值作相應(yīng)的改變
??????????????t2=c;?
??????????elseif?c>=max（mn）?%?當(dāng)轉(zhuǎn)折到達另一個較大行程的對角時
??????????????if?mod（c2）==0???%決定游走方向，