clc
clear
I=imread（‘D:\MATLAB-2008\圖\040916_9.jpg‘）;
I=rgb2gray（I）;%轉為灰度圖

[mn]=size（I）;
for?i=1:m
????Imed（i）=median（I（i:））;
end
for?j=1:m
????for?l=1:n
????????if?I（jl）<=Imed（m）
????????????H（jl）=1;
????????else
????????????H（jl）=0;
????????end
????end
end
for?j1=1:m
????for?l1=1:n
????????if?H（j1l1）==1
????????????K（j1l1）=I（j1l1）;
????????else
????????????K（jl）=0;
????????end
????end
end
for?j3=1:m
????if?K（j31）????????Ifinal（j31）=1;
????else
????????Ifinal（j31）=0;
????end
end
for?j2=1:m
????for?l2=2:n
????????if?K（j2l2）????????????Ifinal（j2l2）=1;
????????else
????????????Ifinal（j2l2）=0;
????????end
????end
end
imshow（K）;
imshow（Ifinal）;


????
????

????
????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2013-02-26?09:32??crack_detection\
?????文件???????30362??2012-11-20?19:02??crack_detection\040916_9.jpg
?????文件?????????792??2013-02-25?10:40??crack_detection\shiyan.m