公制转英制matlab程序分数形式

1、1 .作用本程序可以将公制长度（mm）转换为分数形式的英尺英寸63一,例如3708mm可转换为12-63/64（12尺1英寸）642 .使用方法2.1 将待转换的数据复制黏贴到excel文件中，假定文件名为sample.xlsxABCDt-10370459.433.455.43743.4.201370659.434.8260.13740.83406,53677.859.234,2165.737124456.8363053.734.1515.53664.15；908昉EEM.533965.5O（a06115415339756.531412113429.471319330655.732.11374

2、.73338.1814053125.85431.914593157.791421277350.831.91471.82804.9101421277350.8一砚11171.9111364.626m6,645.7-63.71414.3二瓯9121401.6107943.11444.71S10131401.7170741.9-691443.61638Sample.xlsx2.2 在matlab中新建函数，并将下述程序复制粘贴到函数中，保存2.3 运行程序，会弹出一个对话框让你选择目标文件，选中我们刚才新建的sample.xlsx文件，点打开AAf仁器阱换的r吠攵件2.4 程序运行完毕，并生成sam

3、ple共制版本.xls文件，打开即为转换完后的数据。BCDE1Q“12r1-63W2-11/32-25642-L1/32-】,3W7-2冢32”12-1-2&/32*3-11.321-3/8110-1123呻制1512：51M2-31/64*J-ll/32r&-21/64*12,2-9/641,5-63.B4v11,10-29/322-S/16J-11/3E1,6-19/&412*L/4-2,11-3.4115-3132=1：-G4:1-19-6432-16ir7-_76439-2964-n1-47/642-7/32v1-9,32”3111-43/6411二L04!3-5961to1G-SS2

4、-2-3/lfi7-176446-i-;SJ，ID*11-27/M4,7-5/167W3-iW1-1/4r4ATIE”Mrllf1r491-1】W2*-l/4r4,9-15/16，P2-27644,7-15/169,1-116472至n口上4r&-15/16丁10-2964*4铲23MS18-1&/321-61/64-SYS蜘4,7-11/lfl*BJ6-57/64417-3/16611-31.321-45704*-2-23/32*418-7/8*Tll-17/e4r4,7-3/16JS7-1364J1-21732-2-23324!S-53/64,S*4-3164”sample小制版本.xls

5、3 .程序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_posi,ii=mm2in

6、ch(data_ori(i,ii);endendxlswrite(filename,data_pos,Sheet1);end%functionout=mm2inch(a)%将公制单位转换为英制单位s=sign(a);a=abs(a);ifa304.8x=0;elsex=floor(a/304.8);endx_rem=rem(a,304.8);ifx_rem25.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=d

7、ouble(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)&(y=