哈工大機械設(shè)計電算實驗

PAGE1-機械設(shè)計電算實驗一：普通V帶傳動設(shè)計內(nèi)容和任務(wù)1、普通V帶傳動設(shè)計內(nèi)容給定原始數(shù)據(jù)：傳遞的功率P，小帶輪轉(zhuǎn)速n，傳動比i及工作條件。設(shè)計內(nèi)容：帶型號，基準(zhǔn)長度Ld，根數(shù)Z，傳動中心距a，帶輪基準(zhǔn)直徑dd1、dd2，帶輪輪緣寬度B，初拉力F0，和壓軸力 FQ。2、CAD任務(wù)：（1）編制V帶傳動設(shè)計程序框圖。（2）編制V帶傳動設(shè)計原程序。（3）按習(xí)題或作業(yè)中數(shù)據(jù)運行程序，要求對每一組數(shù)據(jù)各按三種V帶型號計算，對每一種帶型號選三種小帶輪直徑進行計算并輸出所有結(jié)果。二、變量標(biāo)識符序號名稱代號程序符號單位1名義功率Ppkw2設(shè)計功率Pdpdkw3工作情況系數(shù)KAkka4小帶輪轉(zhuǎn)速n1nr/min5工作機載荷特性載荷類型6原動機類型原動機類型7工作年限a年b班8帶型號V帶帶型9小帶輪基準(zhǔn)直徑dd1dd1mm10大帶論基準(zhǔn)直徑dd2dd2mm11帶速vvm/s12最大帶速vmaxvmaxm/s13預(yù)估中心距a0a0mm14基準(zhǔn)長度Ldldmm15實際中心距aaamm16小帶輪包角α1r度17V帶根數(shù)Zz18基本額定功率P0pokw19功率增量ΔP0pp0kw20傳動比系數(shù)Kiki21長度系數(shù)KLkl22包角系數(shù)Kαka23彎曲影響系數(shù)Kbkb24初拉力F0f0N25壓軸力QfqN26輪緣寬度Bbbmme=60;disp('根據(jù)您的數(shù)據(jù)為您選擇的電動機為Y112M-6');elseifp==3&&n==960d=38;e=80;disp('根據(jù)您的數(shù)據(jù)為您選擇的電動機為Y132S-6');elseifp==4&&n==960d=38;e=80;disp('根據(jù)您的數(shù)據(jù)為您選擇的電動機為Y132M1-8');elsedisp('歡迎繼續(xù)使用本程序');endka2=[1.01.11.2;1.11.21.3;1.21.31.4;1.31.41.5];ka3=[1.11.21.3;1.21.31.4;1.41.51.6;1.51.61.8];ifd1<=1k=ka2;elsek=ka3;endifka1>=1kka=1.1*k(e1,b);elsekka=k(e1,b);endpd=kka*p;t2=1;whilet2==1z=10;whilez>=10disp('V帶帶型：1、Z型:dd1min=50mm；2、A型:dd1min=75mm；3、B型:dd1min=125mm');x=input('請輸入（1、2、3）來選擇帶型。請選擇：');x1=[0.2460.4490.794;7.4419.0250.6;0.4410.7651.31;0.29250.77251.9875];k1=x1(1,x);k2=x1(2,x);k3=(10^(-4))*x1(3,x);kb=10^(-3)*x1(4,x);vmax=25;disp('優(yōu)選帶輪直徑系列：505663718090100')disp('112125140150160180200')disp('224250280315355400425')disp('450500560600630710800')dd1=input('請參考dd1min以及優(yōu)選系列，輸入小帶輪基準(zhǔn)直徑(mm)dd1=');v=pi*dd1*n/60/1000;whilev>=vmaxdisp('請減小小帶輪基準(zhǔn)直徑dd1');dd1=input('請參考dd1min,重新輸入小帶輪基準(zhǔn)直徑(mm)dd1=');v=pi*dd1*n/60/1000;enddd2=round(i*dd1);a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);disp('a1=');disp(a1);disp('a2=');disp(a2);a0=input('已知中心距a1<=a0<=a2,請輸入a0的值（盡量為整數(shù)）。a0=');whilea0<a1||a0>a2disp('wrong!您輸入的數(shù)值不在a1-a2之間，請重新輸入');a0=input('請重新輸入a0的值（盡量為整數(shù)）。a0=');endld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2)^2/4/a0;kk=[4000.8700;4500.8900;5000.9100;5600.9400;6300.96...0.810;7100.90.830;8001.000.850.82;9001.030.870.84;...10001.060.890.86;11201.080.910.88;12501.100.930.90;...14001.140.960.92;16001.160.990.95;18001.181.010.98;...200001.031.00;224001.061.03;250001.091.05;28000...1.111.07;315001.131.09;355001.171.13;400001.191.15;...4500001.18];forg=1:22ifld>=kk(g,1)&&ld<=kk(g+1,1)if(ld-kk(g,1))>=(kk(g+1,1)-ld)ld1=kk(g+1,1);elseld1=kk(g,1);endbreakendendkl=kk(g,x+1);aa=round(a0+(ld-ld1)/2);r=180-(dd2-dd1)/aa*57.3;rr=[2201.20;2101.15;2001.10;1901.05;1801.00;1700.98;1600.95;...1500.92;1400.89;1300.86;1200.82;1100.78;1000.73;900.68];forii=1:13ifr<=rr(ii,1)&&r>=rr(ii+1,1)ka=rr(ii+1,2)+(r-rr(ii+1,1))/10*(rr(ii,2)-rr(ii+1,2));breakendendp0=(k1*v^(-0.09)-k2/dd1-k3*v^2)*v;ifi==1.8ki=1.1202;elseifi>=2ki=1.1372;endm=[0.060.10.17];pp0=kb*n*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);ifz<10f0=500*pd/z/v*(2.5-ka)/ka+m(x)*v^2;fq=2*z*f0*sin(r/2/180*pi);bb=round((z-1)*15+20);disp('所選原動機種類：')ifd1==1disp('I類原動機');elsedisp('II類原動機');enddisp('所選帶型為：');ifx==1disp('Z型V帶');elseifx==2disp('A型V帶');elsedisp('B型V帶');enddisp('小帶輪直徑(mm)dd1=')disp(dd1);disp('大帶輪直徑(mm)dd2=')disp(dd2);disp('實際中心距(mm)a0=');disp(aa);disp('小帶輪包角（角度）α=');disp(r);disp('V帶根數(shù)Z=');disp(z);disp('V帶的基準(zhǔn)長度(mm)Ld=');disp(ld);disp('初拉力(N)F0=');disp(f0);disp('作用在軸上的壓力(N)FQ=');disp(fq);disp('帶輪輪緣寬度(mm)B=');disp(bb);endendt1=input('是否計算下一種帶輪直徑？1、yes；2、no。請選擇：');whilet1==1disp('優(yōu)選帶輪直徑系列：505663718090100')disp('112125140150160180200')disp('224250280315355400425')disp('450500560600630710800')dd1=input('請參考dd1min以及優(yōu)選系列，重新輸入小帶輪基準(zhǔn)直徑(mm)dd1=');v=pi*dd1*n/60/1000;whilev>=vmaxdisp('請減小小帶輪基準(zhǔn)直徑dd1');dd1=input('請參考dd1min,重新輸入小帶輪基準(zhǔn)直徑(mm)dd1=');v=pi*dd1*n/60/1000;enddd2=round(i*dd1);a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);disp('a1=');disp(a1);disp('a2=');disp(a2);a0=input('已知中心距a1<=a0<=a2,請輸入a0的值（盡量為整數(shù)）。a0=');whilea0<a1||a0>a2disp('wrong!您輸入的數(shù)值不在a1-a2之間，請重新輸入');a0=input('請重新輸入a0的值（盡量為整數(shù)）。a0=');endld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2)^2/4/a0;kk=[4000.8700;4500.8900;5000.9100;5600.9400;6300.96...0.810;7100.90.830;8001.000.850.82;9001.030.870.84;...10001.060.890.86;11201.080.910.88;12501.100.930.90;...14001.140.960.92;16001.160.990.95;18001.181.010.98;...200001.031.00;224001.061.03;250001.091.05;28000...1.111.07;315001.131.09;355001.171.13;400001.191.15;...4500001.18];forg=1:22ifld>=kk(g,1)&&ld<=kk(g+1,1)if(ld-kk(g,1))>=(kk(g+1,1)-ld)ld1=kk(g+1,1);elseld1=kk(g,1);endbreakendendkl=kk(g,x+1);aa=round(a0+(ld-ld1)/2);r=180-(dd2-dd1)/aa*57.3;rr=[2201.20;2101.15;2001.10;1901.05;1801.00;1700.98;1600.95;...1500.92;1400.89;1300.86;1200.82;1100.78;1000.73;900.68];forii=1:13ifr<=rr(ii,1)&&r>=rr(ii+1,1)ka=rr(ii+1,2)+(r-rr(ii+1,1))/10*(rr(ii,2)-rr(ii+1,2));breakendendp0=(k1*v^(-0.09)-k2/dd1-k3*v^2)*v;ifi==1.8ki=1.1202;elseifi>=2ki=1.1372;endm=[0.060.10.17];pp0=kb*n*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);ifz<10f0=500*pd/z/v*(2.5-ka)/ka+m(x)*v^2;fq=2*z*f0*sin(r/2/180*pi);bb=round((z-1)*15+20);disp('所選原動機種類：')ifd1==1disp('I類原動機');elsedisp('II類原動機');enddisp('所選帶型為：');ifx==1disp('Z型V帶');elseifx==2disp('A型V帶');elsedisp('B型V帶');enddisp('小帶輪直徑(mm)dd1=')disp(dd1);disp('大帶輪直徑(mm)dd2=')disp(dd2);disp('實際中心距(mm)a0=');disp(aa);disp('小帶輪包角（角度）α=');disp(r);disp('V帶根數(shù)Z=');disp(z);disp('V帶的基準(zhǔn)長度(mm)Ld=');disp(ld);disp('初拉