哈工大机械设计电算实验(matlab)资料讲解

1、此文档仅供收集于网络，如有侵权请联系网站删除机械设计电算实验一：普通 V 带传动设计内容和任务1、普通 V 带传动设计内容给定原始数据：传递的功率 P,小带轮转速n传动比i及工作条件。设计内容：带型号，基准长度 Ld,根数Z,传动中心距a,带轮基准直径ddl、dd2,带轮轮缘宽 度B,初拉力F0,和压轴力FQ2、CAD任务：（1）编制V带传动设计程序框图。（2）编制V带传动设计原程序。（3） 按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号 选三种小带轮直径进行计算并输出所有结果。、变量标识符序号名称代号程序符号单位1名义功率PPkw2设计功率PdPdkw3工作

2、情况系数Kakka4小带轮转速n1nr/mi n5工作机载荷特性载荷类型6原动机类型原动机类型7工作年限a年b班8带型号V带带型9小带轮基准直径dd1dd1mm10:大带论基准直径dd2dd2mm11带速vVm/s12最大带速V maxvmaxm/s13预估中心距aoa0mm14基准长度LdIdmm15实际中心距aaamm16小带轮包角a 1r度17V带根数Zz18基本额定功率Popokw19功率增量 P0PP0kw20传动比系数Kki21长度系数Klkl22包角系数Kaka23弯曲影响系数Kbkb24初拉力F0f0N25压轴力QfqN26轮缘宽度Bbbmm三、程序框图只供学习与交流四、源程序

3、与其说明此文档仅供收集于网络，如有侵权请联系网站删除程序说明：本程序用 Matlab2010b 软件编制，主要针对机械设计大作业上的题型设计。使用时只要打开 m 文件，并点击运行，按照提示进行即可。首先输入原始数据，然后根据自己的需要选择带型，中心距 即可得到设计结果，无需再查找资料，方便高效 , 计算过程如有错误会进行提示，并返回到输入处进 行改正。而且该程序可以直接计算下一带轮直径或者计算下一带型，比较方便。源程序如下 （ 先复制 到记事本，再新建一个 m文件，粘贴）clear all;disp（ 欢迎使用本程序，请输入 V 带传动设计的原始数据 ）;p=input(电动机工作功率 （kw

4、）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（ 直流电动机（复激、串激）

5、 ，单缸发动机， n=600r/min 的内燃机 ） d1=input（ 请选择原动机的类型，输入 1 或 2。请输入 :）;disp（ 载荷类型： ）;disp（1 、载荷平稳； 2、载荷变动小； 3、载荷变动较大； 4、载荷变动很大。 ）; e1=input（ 请选择载荷类型请输入 :）;c=3 710 38 80;2.2 940 28 60;3 960 38 80;4 960 38 80;if p=3&n=710d=38;e=80;disp（ 根据您的数据为您选择的电动机为 Y132M-8）;elseif p=2.2&n=940d=28;只供学习与交流此文档仅供收集于网络，如有侵权请联系

6、网站删除e=60;disp（ 根据您的数据为您选择的电动机为 Y112M-6）;elseif p=3&n=960d=38;e=80;disp（ 根据您的数据为您选择的电动机为 Y132S-6）;elseif p=4&n=960d=38;e=80;disp（ 根据您的数据为您选择的电动机为 Y132M1-8）;elsedisp（ 欢迎继续使用本程序 ）;endka2=1.0 1.1 1.2;1.1 1.2 1.3;1.2 1.3 1.4;1.3 1.4 1.5;ka3=1.1 1.2 1.3;1.2 1.3 1.4;1.4 1.5 1.6;1.5 1.6 1.8;if d1=1kka=1.1*k

7、（e1,b）;elsekka=k（e1,b）;endpd=kka*p;t2=1;while t2=1z=10;while z=10disp（V 带带型：1、Z型:ddlmin=50mm 2、A型:ddlmin=75mm 3、B型:ddlmin=125mm）; 只供学习与交流此文档仅供收集于网络，如有侵权请联系网站删除x=input( 请输入( 1、2、 3)来选择带型。请选择： );x1=0.246 0.449 0.794;7.44 19.02 50.6;0.441 0.765 1.31;0.2925 0.7725 1.9875; k1=x1(1,x);k2=x1(2,x);k3=(10(4)

8、*x1(3,x);kb=10(3)*x1(4,x);vmax=25;disp( 优选带轮直径系列：50 56 63 71 80 90 100)disp(112125 140150 160 180200)disp(224250 280315 355 400425)disp(450500 560600 630 710800)dd仁input(请参考ddlmin以及优选系列，输入小带轮基准直径 (mm) dd1=); v=pi*dd1*n/60/1000;while v=vmaxdisp( 请减小小带轮基准直径 dd1);dd1=input( 请参考 dd1min, 重新输入小带轮基准直径 (mm)

9、 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=); while a0a2disp(wrong! 您输入的数值不在 a1-a2 之间，请重新输入 );a0=input( 请重新输入 a0 的值(尽量为整数) 。a0=);endld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2F2/4/a0; 只供学习与交流此文档仅供收集

10、于网络，如有侵权请联系网站删除kk=400 0.87 0 0;450 0.89 0 0;500 0.91 0 0;560 0.94 0 0;630 0.96.0.81 0;710 0.9 0.83 0;800 1.00 0.85 0.82;900 1.03 0.87 0.84;.1000 1.06 0.89 0.86;1120 1.08 0.91 0.88;1250 1.10 0.93 0.90;.1400 1.14 0.96 0.92;1600 1.16 0.99 0.95;1800 1.18 1.01 0.98;.2000 0 1.03 1.00;2240 0 1.06 1.03;2500

11、 0 1.09 1.05;2800 0 .1.11 1.07;3150 0 1.13 1.09;3550 0 1.17 1.13;4000 0 1.19 1.15;. 4500 0 0 1.18;for g=1:22if ld=kk(g,1)&ld=(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=220 1.20;210 1.15;200 1.10;190 1.05;180 1.00;170 0.9

12、8;160 0.95;.150 0.92;140 0.89;130 0.86;120 0.82;110 0.78;100 0.73;90 0.68; for ii=1:13if 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*vA(-0.09)-k2/dd1-k3*2)*v;if i=1.8ki=1.1202;只供学习与交流此文档仅供收集于网络，如有侵权请联系网站删除elseif i=2ki=1.1372;endm=0.06 0.1 0.17;pp0=kb*n*(1-1/ki)

13、;z=ceil(pd/(p0+pp0)/kl/ka);if z=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=);a0=);disp(a2);a0=input(已知中心距a1=a0=a2请输入a0的值(尽量为整数)。 while a0a2disp(

14、wrong! 您输入的数值不在 a1-a2 之间，请重新输入 ); a0=input( 请重新输入 a0 的值(尽量为整数) 。a0=);endld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2F2/4/a0;kk=400 0.87 0 0;450 0.89 0 0;500 0.91 0 0;560 0.94 0 0;630 0.96.0.81 0;710 0.9 0.83 0;800 1.00 0.85 0.82;900 1.03 0.87 0.84;.1000 1.06 0.89 0.86;1120 1.08 0.91 0.88;1250 1.10 0.93 0.90;.140

15、0 1.14 0.96 0.92;1600 1.16 0.99 0.95;1800 1.18 1.01 0.98;.2000 0 1.03 1.00;2240 0 1.06 1.03;2500 0 1.09 1.05;2800 0 .1.11 1.07;3150 0 1.13 1.09;3550 0 1.17 1.13;4000 0 1.19 1.15;.4500 0 0 1.18;for g=1:22if ld=kk(g,1)&ld=(kk(g+1,1)-ld)ld1=kk(g+1,1);elseld1=kk(g,1);endbreakendendkl=kk(g,x+1);aa=round(

16、a0+(ld-ld1)/2);r=180-(dd2-dd1)/aa*57.3;rr=220 1.20;210 1.15;200 1.10;190 1.05;180 1.00;170 0.98;160 0.95;.150 0.92;140 0.89;130 0.86;120 0.82;110 0.78;100 0.73;90 0.68;for ii=1:13只供学习与交流此文档仅供收集于网络，如有侵权请联系网站删除if 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*vA(-0.0

17、9)-k2/dd1-k3*2)*v;if i=1.8ki=1.1202;elseif i=2ki=1.1372;endm=0.06 0.1 0.17;pp0=kb*n*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);if z=600r/Min的內燧机口类原动机包括交流电动机氏笼型、滑环式、单相、大转差辜），直流电动机（亘数、串數），单虹发动机，n=500r/iftin机请选铎原动机的类型，输人1或2。请输入：1载荷粪型：我側平稳却鮎我荷叢动小i 3、载荷娈动较:切 I载荷变动很長。请选握载荷类黒请输入：1银攥廳的埶据掏您选择的电幼机芮Y132M-8V 帯帯 S3： 1 Z

18、Sl： ddlwiin=50wun! 2、A 型：3、吕型：ddlmin=】25mn请输入 3）来选择帯型，请逖2优选带轮直径系列；5056371309010Q1121251401501601S0200224250280315355400425450500560600630710800请孝考ddlmin以踐优选系別，输入小带轮基淮直径环】ddl=125262.50Q0a2=760已知中右庾耳ISaOSaZ请输入aCi的値（尽塑为整数）。a0=300计算下一种带轮直径界面星否说算下一种带轮盲径辛1 xyes； 2 . nQo 请迭挥：1优选帝轮育檯系列：505663718090100112125

19、1401501601S0200224250203153554Q042545050050600030710800洁養考优选系列，更新输入小帝轮基准直鱼利）ddl=100 al=210a2=600已知中心距310“込请飾入説的值（尽盟药整数）。a0=300A型带计算结果一1只供学习与交流A型带计算结果一2所选原动机种类；I类原动机所选帝型揃：A2JV 帝小帝轮冒径(rnn.)dd 1 -100大帝轮 Hg(n.)dd2=200实际中右距(jmiJaC=280小蒂轮包角(角度) a =159. 5357V带抿镇上站带的度(:num)Ld=1.0796e+003初拉力(N)F0=133.3595作用在轴上的压力W) F41.5749e+003帯轮轮绦宽度(泗B=95虑 是否计单下一沖带轮直径？ 1、鬼刖请迭释乂 1A型带计算结果一3Z型带计算结果一1Z型带计算结果一2Z 型带计算结果 3jfijMATLAB 7.LL0 R2010bFile Edit Debug Parallel Desktop Window Help目吕* 勺e|掷曲越|Current Folder CAUseAdminirtratorXDesktop所选原动机种兗:类原动机 所选帯型芮： 型蒂小带轮育径（呗）ddi=大帯轮盲径（血）224dd2=实际中心距（nun）3的a0=小帯乾哲角(ft