clear?all；
I=imread（‘十字光斑3.JPG‘）;??????%讀入圖片
I1=imrotate（I20）;
R=I1（::1）;????????????????????%取原圖像的R分量
B=im2bw（Rgraythresh（R））;??????%轉化為二值圖像
[mn]=find（B）;?????????????????%找到二值圖像中非零點的最大最小橫縱坐標
a1=min（m）;
b1=min（n）;?
a2=max（m）;
b2=max（n）;
[MN]=size（B）;
a=1;
for??i=?1:M????????????????????%for循環求十字a1，a2行；b1，b2列非零點坐標
????if（B（ib1）==1）
????????m（a）=i;
????????a=a+1;
????end
end
b=1;
for?j=?1:M
????if（B（jb2）==1）
????????m1（b）=j;
????????b=b+1;
????end
end
c=1;
for?k=1:N
????if（B（a1k）==1）
????????n（c）=k;
????????c=c+1;
????end
end
d=1;
for?l=1:N
????if（B（a2l）==1）
????????n1（d）=l;
????????d=d+1;
????end
end
x1=mean（n）;???????????????????%求橫縱坐標平均值
x2=mean（n1）;
y1=mean（m）;
y2=mean（m1）;
x11=（3*x1+x2）/4;
x22=（x1+3*x2）/4;
y11=（3*y1+y2）/4;
y22=（y1

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

?????文件??????20293??2016-12-19?15:29??圖像課設\1?十字光標定位.docx

?????文件???????1308??2017-12-12?16:24??圖像課設\fangfa1.m

?????文件????????651??2017-12-15?09:04??圖像課設\fangfa2.m

?????文件???????1230??2017-10-09?12:42??圖像課設\fangfa3.m

?????文件????????307??2017-12-12?16:38??圖像課設\fangfa4.m

?????文件???????5428??2017-12-11?15:51??圖像課設\untitled1.fig

?????文件???????5399??2017-12-15?09:50??圖像課設\untitled1.m

?????文件???????8893??2011-06-20?09:36??圖像課設\十字光斑.JPG

?????文件??????13094??2011-06-20?09:36??圖像課設\十字光斑2.JPG

?????文件??????12227??2011-06-20?09:37??圖像課設\十字光斑3.JPG

?????文件???????7259??2017-12-14?11:22??圖像課設\無標題.jpg

?????文件?????645003??2017-12-15?09:53??圖像課設\十字光斑最終版ppt.pptx

?????文件?????411855??2017-12-15?09:58??圖像課設\十字光斑中心位置的定位.docx

?????目錄??????????0??2017-12-12?16:38??圖像課設

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

??????????????1132947????????????????????14