%I?=?imread（‘bag.png‘）;%讀取圖像
I=imread（‘F:\學習資料\遙感地學分析圖像-紋理分析\texture.tif‘）;
figure;?imshow（I）;title（‘原始圖像‘）%顯示原圖像
E?=?entropyfilt（I）;%創(chuàng)建紋理圖像
Eim?=?mat2gray（E）;%轉(zhuǎn)化為灰度圖像
figure;imshow（E）;title（‘創(chuàng)建紋理圖像‘）
figure;?imshow（Eim）;title（‘紋理圖像轉(zhuǎn)化為灰度圖像‘）
BW1?=?im2bw（Eim?.8）;%轉(zhuǎn)化為二值圖像
figure;imshow（BW1）;title（‘灰度圖像轉(zhuǎn)化為二值圖像‘）
BWao?=?bwareaopen（BW12000）;%提取底部紋理
figure;?imshow（BWao）;title（‘底部紋理圖像‘）%顯示底部紋理圖像
nhood?=?true（9）;
closeBWao?=?imclose（BWaonhood）;%形態(tài)學關操作
figure;?imshow（closeBWao）;title（‘邊緣光滑后圖像‘）%顯示邊緣光滑后的圖像
roughMask?=?imfill（closeBWao‘holes‘）;%填充操作
figure;?imshow（roughMask）;title（‘填充后圖像‘）%顯示填充后的圖像
I2?=?I;
I2（roughMask）?=?0;%底部置為黑色
figure;imshow（I2）;title（‘圖像頂部‘）%突出顯示圖像的頂部
E2?=?entropyfilt（I2）;%創(chuàng)建紋理圖像
E2im?=?mat2gray（E2）;%轉(zhuǎn)化為灰度圖像
figure;?imshow（E2im）;title（‘紋理圖像‘）%顯示紋理圖像
BW2

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????35582??2004-08-09?21:41??textureseg\bag.png
?????文件?????????105??2009-12-05?16:20??textureseg\readme.txt
?????文件????????1784??2011-08-28?21:22??textureseg\texture_seg.asv
?????文件????????1819??2011-08-28?21:24??textureseg\texture_seg.m
?????目錄???????????0??2011-09-13?16:10??textureseg\