%基于貝葉斯分類算法的圖像閾值分割?
clear?
clc;?
Init?=?imread（‘SLR.bmp‘）;?
Im=rgb2gray（Init）;
subplot（131）imhist（Im）title（‘直方圖‘）?
subplot（132）imshow（Im）?
title（‘原始圖像‘）?
[xy]=size（Im）;????????????????????%?求出圖象大小?
b=double（Im）;???????????????????
zd=double（max（Im））??????????????????%?求出圖象中最大的灰度?
zx=double（min（Im））????????????????%?最小的灰度??
T=double（（zd+zx））/2;?????????????????????%?T賦初值，為最大值和最小值的平均值?

count=double（0）;?????????????????????????%?記錄幾次循環(huán)?
while?1???????????????????%?迭代最佳閾值分割算法?
????count=count+1;?
????S0=0.0;?n0=0.0;???????????????????%為計(jì)算灰度大于閾值的元素的灰度總值、個(gè)數(shù)賦值?
????S1=0.0;?n1=0.0;???????????????????%為計(jì)算灰度小于閾值的元素的灰度總值、個(gè)數(shù)賦值?
????for?i=1:x
????????for?j=1:y
????????????if?double（Im（ij））>=T
????????????????S1=S1+double（Im（ij））;??%大于閾域值圖像點(diǎn)灰度值累加
????????????????n1=n1+1;????

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

?????文件??????18654??2009-03-19?21:50??閾值分割迭代法\SLR.BMP

?????文件???????1594??2009-03-19?22:10??閾值分割迭代法\iterative.m

?????文件??????58856??2009-03-19?22:03??閾值分割迭代法\result.bmp.fig

?????文件??????51930??2009-03-19?22:08??閾值分割迭代法\lena.BMP

?????目錄??????????0??2009-03-19?21:54??閾值分割迭代法

-----------?---------??----------?-----??----

???????????????131034????????????????????5