哈工大机械设计V带传动电算程序报告

机械设计电算实验一：普通V带传动设计内容和任务1、普通V带传动设计内容给定原始数据：传递的功率P，小带轮转速n，传动比i及工作条件。设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0，和压轴力FQ。2、CAD任务：（1）编制V带传动设计程序框图。（2）编制V带传动设计原程序。（3）按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果。-1-二、变量标识符序号名称代号程序符号单位1名义功率Ppkw2设计功率Pdpdkw3工作情况系数KAkka4小带轮转速n1nr/min5工作机载荷特性载荷类型6原动机类型原动机类型7工作年限a年b班8带型号V带带型9小带轮基准直径dd1dd1mm10大带论基准直径dd2dd2mm11带速vvm/s12最大带速vmaxvmaxm/s13预估中心距a0a0mm14基准长度Ldldmm15实际中心距aaamm16小带轮包角α1r度17V带根数Zz18基本额定功率P0pokw19功率增量ΔP0pp0kw20传动比系数Kiki21长度系数KLkl22包角系数Kαka23弯曲影响系数Kbkb24初拉力F0f0N25压轴力QfqN26轮缘宽度Bbbmm-2-三、程序框图开始输入原始数据P,n,i并选择电机计算设计功率由带型号确定最大带速，小带轮直径系，带的相关参数m，f，e相关系数Kb确定带型号选择小带轮直径验算带速vvmax?计算大带轮直径给定范围，预估中心距AA计算Ld并取标准值，计算实际中心距并圆整计算小带轮包角计算选择相关系数：Kα，Ki。插值计算P0，计算ΔP0计算带根数ZZ10?计算相关参数结束下一型号带下一带轮直径BB-3-四、源程序与其说明程序说明：本程序用Matlab2010b软件编制，主要针对机械设计大作业上的题型设计。使用时只要打开m文件，并点击运行，按照提示进行即可。首先输入原始数据，然后根据自己的需要选择带型，中心距即可得到设计结果，无需再查找资料，方便高效,计算过程如有错误会进行提示，并返回到输入处进行改正。而且该程序可以直接计算下一带轮直径或者计算下一带型，比较方便。源程序如下(先复制到记事本，再新建一个m文件，粘贴)clearall;disp('欢迎使用本程序，请输入V带传动设计的原始数据');p=input('电动机工作功率(kw)P=');n=input('电动机满载转速(r/min)nm=');i=input('第一级传动比i1=');a=input('请输入最短工作工作年限a年b班a=');b=input('b=');disp('是否反复起动、正反转频繁或工作条件恶劣');ka1=input('是请输入1，否请输入0。请输入：');disp('原动机类型:');disp('I类原动机包括普通笼型交流电动机，同步电动机，');disp('直流电动机（并激），n=600r/min的内燃机')disp('II类原动机包括交流电动机(双笼型、滑环式、单相、大转差率)，');disp('直流电动机（复激、串激），单缸发动机，n=600r/min的内燃机')d1=input('请选择原动机的类型，输入1或2。请输入:');disp('载荷类型：');disp('1、载荷平稳；2、载荷变动小；3、载荷变动较大；4、载荷变动很大。');e1=input('请选择载荷类型请输入:');c=[37103880;2.29402860;39603880;49603880];ifp==3&&n==710d=38;e=80;disp('根据您的数据为您选择的电动机为Y132M-8');elseifp==2.2&&n==940d=28;-4-e=60;disp('根据您的数据为您选择的电动机为Y112M-6');elseifp==3&&n==960d=38;e=80;disp('根据您的数据为您选择的电动机为Y132S-6');elseifp==4&&n==960d=38;e=80;disp('根据您的数据为您选择的电动机为Y132M1-8');elsedisp('欢迎继续使用本程序');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）来选择带型。请选择：');-5-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('优选带轮直径系列：505663718090100')disp('112125140150160180200')disp('224250280315355400425')disp('450500560600630710800')dd1=input('请参考dd1min以及优选系列，输入小带轮基准直径(mm)dd1=');v=pi*dd1*n/60/1000;whilev=vmaxdisp('请减小小带轮基准直径dd1');dd1=input('请参考dd1min,重新输入小带轮基准直径(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的值（尽量为整数）。a0=');whilea0a1||a0a2disp('wrong!您输入的数值不在a1-a2之间，请重新输入');a0=input('请重新输入a0的值（尽量为整数）。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;...-6-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;end-7-m=[0.060.10.17];pp0=kb*n*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);ifz10f0=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带根数Z=');disp(z);disp('V带的基准长度(mm)Ld=');-8-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('优选带轮直径系列：505663718090100')disp('112125140150160180200')disp('224250280315355400425')disp('450500560600630710800')dd1=input('请参考dd1min以及优选系列，重新输入小带轮基准直径(mm)dd1=');v=pi*dd1*n/60/1000;whilev=vmaxdisp('请减小小带轮基准直径dd1');dd1=input('请参考dd1min,重新输入小带轮基准直径(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的值（尽量为整数）。a0=');whilea0a1||a0a2disp('wrong!您输入的数值不在a1-a2之间，请重新输入');-9-a0=input('请重新输入a0的值（尽量为整数）。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.1