I=imread（‘z12R.jpg‘）;
I=im2bw（I0.6）;
SE1=strel（‘square‘?3）;
R=imerode（ISE1）;?????????????%?“腐蝕”運算
Edge_Road=I-R;????????????????%??邊緣檢測
[yx]=size（I）;
Px=zeros（y1）;
CenterR=zeros（yx）;
for?j=1:y?????????????????????%?路徑中線檢測
????i=1;
????while（（Edge_Road（ji）~=1）&&（i????????????i=i+1;
????end
????if?（i????????P1=i;?????????????????%?路徑左邊緣位置
????end
????
????i=x;
????while（（Edge_Road（ji）~=1）&&（i>1））
????????????i=i-1;
????end
????if?（i>1）
????????P2=i;????????????????%?路徑右邊緣位置
????end
???
????Px（j）=round（（P1+P2）/2）;??%?路徑中線位置
????CenterR（jPx（j））=1;??????
end
????
figureimshow（R）;
figureimshow（Edge_Road）;
figureimshow（CenterR）;

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

?????文件????????719??2004-04-04?18:58??P0904.m

?????文件??????36241??2003-12-15?14:18??RoadG2.jpg

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

????????????????36960????????????????????2