%%?入口圖像為?origin，出口圖像為edged?
clcclose;??

filespec?=?{??????‘*.jpg‘?‘JPEG?files?（*.jpg）‘;...
??????????????????‘*.tif‘?‘TIFF?files?（*.tif）‘;...??????????????????
??????????????????‘*.bmp‘?‘BMP?files?（*.bmp）‘;?...
??????????????????‘*.gif‘?‘GIF?files?（*.gif）‘;?...
??????????????????};
?[filename?pathname]?=?uigetfile（filespec?‘Pick?an?Pill?image?file‘）;
?image=[?pathname???filename];
?origin=imread（image）;
figure;imshow（origin）;title（‘original?image‘）;
%%?binary
%?grayed=rgb2gray（origin）;
if?3?==?length（size（origin））
????origin=rgb2gray（origin）;
end
BW=roicolor（origin220255）;
%?se=strel（‘square‘10）;
%?BW=imerode（BWse）;
figure;imshow（BW）;title（‘Binary?image‘）;
[mn]=size（BW）;
thresh=[0.010.17];??
sigma=2;?
edged?=?edge（double（BW）‘canny‘threshsigma）;??
f

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

?????文件??????32945??2011-11-17?10:15??Hough\histeq.jpg

?????文件???????2013??2012-05-22?17:45??Hough\Houghline1.asv

?????文件???????2013??2012-05-22?17:47??Hough\Houghline1.m

?????文件???????1660??2011-11-19?16:49??Hough\houghline2.m

?????文件???????1759??2011-11-18?15:02??Hough\HoughLines.asv

?????文件???????1804??2011-11-18?15:24??Hough\HoughLines.m

?????文件????????639??2012-02-28?19:05??Hough\maoyu.m

?????目錄??????????0??2012-05-11?11:18??Hough

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

????????????????42833????????????????????8