公制转英制matlab程序

作用本程序可以将公制长度（mm）转换为分数形式的英尺英寸例如3708mm可转换为12163/64"（12英尺163英寸）64使用方法2.1将待转换的数据复制黏贴到excel文件中，假定文件名为sample.xlsxABCDE10M椰59.435.459.43743.422013；oe舶,43景2GD.43740.83136.53677.85(.<23L2465.737124456.83630孤；34.1515.53661.1590S3504.557.□33965.5拓;T.561134.333975S.532.412113429.47L319330S55.732.11374.7翡晓,18顷3E.8&4"91.技9315"g1-321277350.S3L9H二92804.9101L1277350.S-69.11471.82703.9111364.6263G.649.7-63.71414.32587.912LzOl..6187943,1-691444,71810131.01.7170741.9T914%.61635Sample.xlsx2.2在matlab中新建函数，并将下述程序复制粘贴到函数中，保存。W5L匕KiHf■W5L匕KiHf■Admira^alnr,Dt&kjlcp■coni'ertmm2irwhjn+coni'ertmm2irwhjn+fimcti-nn[]=canvertm»2iTLi:h()□网墙)舞林mBtesdS?阵｝:cdipsLthrtUifrIKe^File-[ji'altjianefilenusl.data_ari=slsiead(ResFile):Hu._jr]=32；e<data_□fjl);l电MpJLdl13MtdifllenMii-3'."I1：file-r.ajn.e( iT=_英刮再本data_j4is=e*ll2.3运行程序，会弹出一个对话框让你选择目标文件，选中我们刚才新建的sample.xlsx文件，点打开

mim-ntra!:J,声U，出*关转翩漩成件^■4S(Njc("jclsxj掰心｝Micrc-so-ftExbImim-ntra!:J,声U，出*关转翩漩成件^■4S(Njc("jclsxj掰心｝Micrc-so-ftExbI5Micros&ftExcel■cc：j3源—TiwtSfS；修改日跆IS骨7f成2018/3/5星期一K更曲S]SSSlkIsx2018/3/5星盼一.-.J&昌阁的至荷剪-软的骸2.4程序运行完毕，并生成sample_英制版本.xls文件，打开即为转换完后的数据。1O'"12'1-63/64"2-11/32"1-25/64，P2-11/32^12'3-3/8"27-S0/33r12'l-典*2-11.321-3/8,rIQTV1-'时如“31'4"12■m&r2-2./64v1-11/32"rg-wi.蒲12'1-9/64^41'S-6"64"ir10-2&/32'2-5/16w1-11/32"r8-19&4"12J1.4'5二1K/4"1/＞口颂“2-17/64"1-19/64，r3'2164"ir7<7/64"63'9-29/64"ii'1-47/64"2-7/32"1-9/32，r3'11-43/64ir3-1/64'74'3-59/64■'ID10-8/32"2-3/16■'1-17/64,r4'6-1/&-11-27/64'B4'7-516":口3-1/16''2-1智’1-1/4,r4'9-7/16"IO'4-E/16"&4'7-15/16w9'1-U/&+721-1/4,r4'9-15/16'9'2-27/64104'7-lz9'ITIF"'27-2-23''32，r4"9-13-16"£,iQ-E&r114'c-23'32';S'8-1&/3271-61/64w-2-4fly64"4'7-11/16"8J5-57/64^124'7-M67&]-31327i-war-2-23'32"V沪了.甘s*11134'7-3167517-13/641-21/32w-2-23/32Jr4'S-53蒲Ff4-31.''64^BCDEFsample_英制版本.xls程序function[]=convert_mm2inch()[filename,pathname]=uigetfile('*.xlsx','选择要转换的excel文件');cd(pathname)ResFile=[pathnamefilename];data_ori=xlsread(ResFile);[Num_x,Num_y]=size(data_ori);TempAdr=find(filename=='.');filename(TempAdr:TempAdr+4)='_^制版本'；data_pos=cell(Num_x,Num_y);fori=1:Num_xforii=1:Num_ydata_pos{i,ii}=mm2inch(data_ori(i,ii));endendxlswrite(filename,data_pos,'Sheet1');end%%function[out]=mm2inch(a)%将公制单位转换为英制单位s=sign(a);a=abs(a);ifa<304.8x=0;elsex=floor(a/304.8);endx_rem=rem(a,304.8);ifx_rem<25.4y=0;elsey=floor(x_rem/25.4);endy_rem=rem(x_rem,25.4);z=round(y_rem/25.4*64);[z1,z2]=numden(sym(z/64));z1=double(z1);z2=double(z2);ifz2==1&&z1==1z1=0;y=y+1;endif(x==0)&&(y==0)&&(z1==0)out=[num2str(0),'"']endif(x==0)&&(y==0)&&(〜z1==0)out=[num2str(s*z1),'/',num2str(z2),'"']if(x==0)&&(~y==0)&&(z1==0)out=[num2str(s*y),'"'];endif(x==0)&&(~y==0)&&(~z1==0)out=[num2str(s*y),'-',num2str(z1),'/',num2str(z2),'〃'];endif(~x==0)&&(y==0)&&(z1==0)out=[num2str(s*x),"'];endif(~x==0)&&(y==0)&&(~z1==0)out=[num2str(s*x),"',num2str(z1),'/',num2str(z2),'〃'];endif(~x==0)&&