《大学生数学建模B题源程序》由会员分享，可在线阅读，更多相关《大学生数学建模B题源程序（10页珍藏版）》请在金锄头文库上搜索。
1、都是自己编的，还望大神指教！附件1和2的源程序：=el(，9)；寄存二值图片A=c(1,19);%寄存原始图片or j1:19 if j-110 iageNam=tcat(00,numr（j1),.mp）; else iaeName=strcat（0,um2t(j-）,.bmp）; n Ij = imrad(imgeNam）;endA=;读取图片for =：9 or 1:180 for h=1：7 f (k,h)=5 （k,); lse Ij(,)=0; n en endend%将图片二值化ers(1,19）;o i=1:19 s=0; for=1:18 umsumIi（j）; end b（i
2、）=um;nor i1:9 (i)=0 q; endend%找出原图最左边的碎纸片的编号，并寄存在变量q中f =0:18 Ii+1(1)=i; Ai+(1)=i;n%对每张图片做标记(即在二值化后的矩阵和原始图片的矩阵的第一种元素处做标记)q；=1;1=;%互换二值化后的第q张和第一张图片t=Aq；Aq=A1；A1=t;%互换原始图片的第q张和第一张f k=:18 d=zrs(18,1); foik+:9 t=0; foj=1:180 f Ik(j,7)=Ii(，） tt; end en d（i-1)=; ed ,v=x(d); =Iv+1; Iv+1=k+1; =t;e%对二值图片进行拼接f
3、r k=1：19 for =1：19 if I（1）=A() t=As； As=A； A=; ednde根据拼接好的而二值图片的标记信息互换相应的原始图片以便显示=A1:1;ishow(r);对图片做最后的解决,显示图片for i=1:19 y()=Ai(1);nd%将碎片序号按复原后顺序填入119的矩阵附件2的源程序:Icll(11,19);%寄存二值图片A=cll(11,19);寄存原始图片czers(1，1）;or =1:209 i 10 imaeae=srct（00,um2str(j-）,.bmp）; el f -1= imgeNamestrc(0,num2tr(j-1),.bmp);
4、 elseif j1=10 &-120 imName=trcat(num2s(j-1),.bmp）； end d n Ij= ired(iageame）；endA=I；读取图片fr j=:209 f=:180 for h=1:72 ifI(k，h)=255 Ij(k,h）=1; s Ij(k,h)0; e nd endend%将图片二值化for i=0:208 Ii+(1）; Ai+1（1）i;nd%对每张图片做标记(即在二值化后的矩阵和原始图片的矩阵的第一种元素处做标记)1=zeros（1,209)；2zros(1，20);azeros(1,9）；for =：2 um1=0； or i=1:
5、10 sm1um1+j(i，); ed a(j）=su1;edfo =1:29 um20; fr i1:72 su2=sum2I(,); nd a（）=sum2;endfor i=1:2 a3(i)=a(i)+a(）;endq=50；c(，1)q-1;%找出原图左上角的碎纸片的编号,并寄存在变量q中%在找的过程中发现一共有10张碎纸片符合规定，此时需要涉入人工干预%通过人工分析比较，发现,最符合规定的碎纸片的编号为049,因此直接给q赋值为5对每张图片做标记(即在二值化后的矩阵和原始图片的矩阵的第一种元素处做标记)j=1;fr =1:208 if c(i)= Cj=1; j=j+1; dend
6、%找出也许是最左边边沿的的碎纸片，并寄存在元胞数组C中，共有16个符合规定t=Iq;Iq=I1;I1=；%互换二值化后的第q张和第一张图片=cel2mat(); i=1：1 t=; for j=1:7 i I1(180,j)=i(,) tt1; end end d（i)t;enw,v=max()；y=Cv(1)；=；I2=Iy1;1=t;%*上面的代码不要修改*%a=20814246148577036623969429129181202388115721056551110242 06233484507200392985197901682740983317481030890100270 1031
7、7561144421174227368428131194248121007462994161838210404 238914849646532992323896892511712951245451441117587 118231025996544115815836502099950674534636024982911300417 63065418149101438301474514239691511184626119552280473 2386264417100122214243721921591677350204431261924423101 486970248113837814308124
8、412137815710903349044811038124 10441103718164547172066054491867121806634069542310 1261738110181486132954571998128342274304408105216343 851012458204530691683011860410211147372125191190562545183；for 1:209 a(i)（a（i);ends1eshape(aa,11，1);or k1:20 or s=1:209 if Ik(1）As(1) t; s=k; k=t； end edendfor l=1:1 fr =1：19 fi=1:1 fj=1:1 if s(l,k）=Ai,j(1） t=Ai,j; Ai,j=Al,； Al,t; rk； end end en ndndfor =：11 foj=1:19 I1Ai，j; ended=elat(A);imshw(r）;%对图片做最后的解决,显示图片
