基于基于遗传算法医学图像研究程序清单（终稿）.docVIP

淮阴工学院大学生科技实践计划项目 第  PAGE 15 页 共 NUMPAGES 15 页 附 录 附录 一 灰度直方图双峰法分割源代码 clear, close all B=imread(2.jpg);??????????????????????????????????????????? %读入原始jpg格式图像 figure(1); imshow(B),title(原始jpg格式图像); I1=rgb2gray(B);???????????????????????????????????????????????? %将原图像转化为灰度图象 figure(2); imshow(I1),title(灰度格式图像); [I1,map1]=gray2ind(I1,255);???????????????????????????????????? %将灰度图像转化为索引图像 figure(3), imhist(I1)?????????????????????????????????????????? %画出灰度直方图，以判断域值 ?I1=double(I1);?????????????????????????????????? ???????????????%将unit8数组转化为double型数组 ?Z=I1?????????????????????????????????????????????????????????? %将double型数组I1转存到Z中 [m, n]=size(Z); for i=1:m ??? for j=1:n ??????? if Z(i,j)240????????????????????????????????????????? %灰度值大于域值时是白色 ??????????? Z(i,j)=256; ??????? end ??? end end figure(4)????????????????????????????????????????????????????? %画出分割后目标图像 image(Z),title(分割后图像);colormap(map1); 图像I图像格式转化及灰度直方图双峰法分割源代码 clear, close all B=imread(she.jpg);?????????????????????????????????????? %读入原始jpg格式图像she figure(1); imshow(B),title(原始jpg格式图像); I1=rgb2gray(B);????????????????????????????????????????? %将原图像转化为灰度图象 figure(2); imshow(I1),title(灰度格式图像); [I1,map1]=gray2ind(I1,255);????????????????????????????? %将灰度图像转化为索引图像 figure(3), imhist(I1)????????? ??????????????????????????%画出灰度直方图，以判断域值 ?I1=double(I1);??????????????????????????????????? %将unit8数组转化为double型数组 ?Z=I1???????????????????????????????????????????? %将double型数组I1转存到Z中 [m, n]=size(Z); for i=1:m ??? for j=1:n ??????? if Z(i,j)240??????????? ?????????????????????????%灰度值大于域值时是白色 ??????????? Z(i,j)=256; ??????? end ??? end end figure(4)??????????????????????????????????????????????????? %画出分割后目标图像 image(Z),title(分割后图像);colormap(map1); 图像II图像格式转化及灰度直方图双峰法分割源代码 clear, close all B=imread(she.jpg);????????????????????????????????????? %读入原始jpg格式图像月亮 figure(1); imshow(B),title(原始jpg格式图像); I1=rgb2gray(B);????????????????????????????????????????? %将原图像转化为灰度图象 figure(2); imshow(I1),title(灰度格式图像); [I1,ma