1、机械设计电算实验一：普通 V 带传动设计内容和任务1、普通 V 带传动设计内容给定原始数据：传递的功率 P，小带轮转速 n，传动比 i 及工作条件。设计内容：带型号，基准长度 Ld，根数 Z，传动中心距 a，带轮基准直径 dd1、dd2，带轮轮缘宽度 B，初拉力 F0，和压轴力 FQ。2、CAD 任务： （1）编制 V 带传动设计程序框图。（2）编制 V 带传动设计原程序。（3）按习题或作业中数据运行程序，要求对每一组数据各按三种 V 带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果。- 1 -二、变量标识符序号 名称 代号 程序符号 单位1 名义功率 P p kw2 设计功率
2、 Pd pd kw3 工作情况系数 KA kka4 小带轮转速 n1 n r/min5 工作机载荷特性 载荷类型6 原动机类型 原动机类型7 工作年限 a 年 b 班8 带型号 V 带带型9 小带轮基准直径 dd1 dd1 mm10 大带论基准直径 dd2 dd2 mm11 带速 v v m/s12 最大带速 vmax vmax m/s13 预估中心距 a0 a0 mm14 基准长度 Ld ld mm15 实际中心距 a aa mm16 小带轮包角 1 r 度17 V 带根数 Z z18 基本额定功率 P0 po kw19 功率增量 P 0 pp0 kw20 传动比系数 Ki ki21 长度系
3、数 KL kl22 包角系数 K ka23 弯曲影响系数 Kb kb24 初拉力 F0 f0 N25 压轴力 Q fq N26 轮缘宽度 B bb mm- 2 -三、程序框图开始输入原始数据P,n,i 并选择电机计算设计功率由带型号确定最大带速，小带轮直径系，带的相关参数m，f，e 相关系数 Kb确定带型号选择小带轮直径验算带速v=600r/min 的内燃机)disp(II 类原动机包括交流电动机(双笼型、滑环式、单相、大转差率)，);disp( 直流电动机（复激、串激） ，单缸发动机，n=1kka=1.1*k(e1,b);elsekka=k(e1,b);endpd=kka*p;t2=1;wh
4、ile t2=1z=10;while z=10disp(V 带带型：1、Z 型:dd1min=50mm；2、A 型:dd1min=75mm；3、B 型:dd1min=125mm);x=input(请输入（1、2、3）来选择带型。 请 选择：);- 5 -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)*x1(3,x);kb=10(-3)*x1(4,x);vmax=25;disp(优选带轮直径系列： 50 56 63 71 80 9
5、0 100)disp( 112 125 140 150 160 180 200)disp( 224 250 280 315 355 400 425)disp( 450 500 560 600 630 710 800)dd1=input(请参考 dd1min 以及优选系列，输入小带轮基准直径(mm) dd1=);v=pi*dd1*n/60/1000;while v=vmaxdisp(请减小小带轮基准直径 dd1);dd1=input(请参考 dd1min,重新输入小带轮基准直径(mm) dd1=);v=pi*dd1*n/60/1000;enddd2=round(i*dd1);a1=0.7*(dd
6、1+dd2);a2=2*(dd1+dd2);disp(a1=);disp(a1);disp(a2=);disp(a2);a0=input(已知中心距 a1a2disp(wrong!您输入的数值不在 a1-a2 之间，请重新输入);a0=input(请重新输入 a0 的值（尽量为整数） 。 a0=);endld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2)2/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
7、 1.03 0.87 0.84;.- 6 -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 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,
8、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.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:13if r=rr(ii+1,1)ka=rr(ii+1,2)+(r-rr(ii+1,1)/10*(rr(ii,2)-rr(ii+1,2);
9、breakendendp0=(k1*v(-0.09)-k2/dd1-k3*v2)*v;if i=1.8ki=1.1202;elseif i=2ki=1.1372;end- 7 -m=0.06 0.1 0.17;pp0=kb*n*(1-1/ki);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
10、=);disp(a1);disp(a2=);disp(a2);a0=input(已知中心距 a1a2disp(wrong!您输入的数值不在 a1-a2 之间， 请重新输入);- 9 -a0=input(请重新输入 a0 的值（尽量为整数） 。 a0=);endld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2)2/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
11、.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 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)elseld1=kk(g,1);endbreaken
12、dendkl=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.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: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*v(-0.09)-k2/dd1-k3*v2)*v;
