哈工大带传动电算程序高分matab版本

1、Harbin Institute of Technology哈尔滨工业大学 机械设计作业设计计算说明书课程名称： 机械设计 设计题目： V带传动设计 院 系： 机电工程学院 班 级： 设 计 者： 学 号： 指导教师： 设计时间： 2014.11.25 哈尔滨工业大学18 / 18文档可自由编辑打印一、程序框图a1=0.7(dd1+dd2)，a2=2(dd1+dd2)输入初估中心距a0,计算 Ld0Add2= 查标准带轮直径表确定dd2YV<Vmax ?根据型号确定最大带速Vmax，额定功率P0中系数K1,K2,K3，弯曲影响系数KbV=输出该型号带轮系列直径，选择输入小带轮基准直径dd

2、1输入带型号查表求传动比系数Ki查KA, 计算Pd，选型查表求KA, 计算Pd输入P, n1, i输入各原始数据开始减小直径图1 V带设计程序框图B查标准长度确定Ld，同时查取KL，计算实际中心距aA计算小带轮包角查表确定包角系数计算Po，Z<10 ?计算Fo, Q,B ( 取整)输出结果计算下一型号带 ？结束计算下一种带轮直径？YYYNNNNB二、V带设计程序disp(' 您好，请输入V带传动设计的原始数据 ');p=input(' 电动机工作功率 (kw) P=');while (isempty(p)|p=0) p=input('p='

3、);endn1=input(' 电动机满载转速 (r/min) n1=');while (isempty(n1) n1=input('n1=');endi1=input(' 第一级传动比 i1=');while (isempty(i1) i1=input('i1=');enda=input(' 请输入最短工作年限 a年 b班 a=');while (isempty(a) a=input('a=');endb=input(' b=');while (isempty(b)|b=1&

4、;&b=2&&b=3) b=input('b=');enddisp(' 是否反复起动 、正反转频繁或工作条件恶劣 ');KA1=input(' 是请输入 1，否请输入 0。 请输入： ');while (isempty(KA1)| KA1=1 && KA1=0); KA1=input('KA1=');enddisp(' 原动机类型 :');disp('I 类原动机包括普通笼型交流电， 同步电动机，直流电动机（并激）， n>=600r/min 的内燃机 '

5、);disp('II 类原动机 包括交流电动机(双笼型、滑环式单相大转差率 )，直流电动机（复激、串），单缸发动机， n<=600r/min 的内燃机');YDJ=input(' 请选择原动机的类型，输入 1或 2。请输 入:');while (isempty(YDJ)| YDJ=1 && YDJ=2); YDJ=input('YDJ=');enddisp(' 选择载荷类型： ');disp('1 、载荷平稳； 2、载荷变动小； 3、载荷变动较大； 4、载荷变动很大。 ');GZJ=input

6、('请输入载荷类型 请输入：');while (isempty(GZJ)| GZJ=1 && GZJ=2 &&GZJ=3 &&GZJ=4); GZJ=input('GZJ=');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 YDJ=1 KA=KA2;else KA=KA3;endif KA1=1 KKA=KA(GZJ,b)*1.1;else K

7、KA=KA(GZJ,b);endif i1>=1&&i1<=1.01 Ki=1;elseif i1>=1.02&&i1<=1.04 Ki=1.0136; elseif i1>=1.05&&i1<=1.08 Ki=1.0276; elseif i1>=1.09&&i1<=1.12 Ki=1.0276; elseif i1>=1.05&&i1<=1.08 Ki=1.0419; elseif i1>=1.13&&i1<=1.18 Ki

8、=1.0567; elseif i1>=1.19&&i1<=1.24 Ki=1.0719; elseif i1>=1.25&&i1<=1.34 Ki=1.0875; elseif i1>=1.35&&i1<=1.51 Ki=1.1036; elseif i1>=1.52&&i1<=1.99 Ki=1.1202; elseif i1>=2 Ki=1.1373; enddisp('根据查表得到传动比系数Ki=');disp(Ki);pd=KKA*p;Z=abs(11

9、31.57*pd-n1-414.5)/1331.57);A=abs(266.7*pd-n1-133.6)/266.7);B=abs(88.9*pd-n1-211.25)/88.9);C=abs(19*pd-n1-130)/19);D=abs(6.85*pd-n1-116.5)/6.92);E=abs(3.2*pd-n1-100)/3.35);disp(E);% 选择带型，K123b %if (Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E) disp('选择带型为Z'); K

10、1=0.246; disp('K1=0.246'); K2=7.44; disp('K2=7.44'); K3=0.441/104; disp('K3=0.441/104'); Kb=0.2925/103; disp('Kb=0.2925/103'); elseif (A<=Z&&A<=B&&A<=C&&A<=D&&A<=E) disp('选择带型为A'); K1=0.449; disp('K1=0.449'

11、;); K2=19.02; disp('K2=19.02'); K3=0.765/104; disp('K3=0.765/104'); Kb=0.7725/103; disp('Kb=0.7725/103'); elseif (B<=A&&B<=Z&&B<=C&&B<=D&&B<=E) disp('选择带型为B'); K1=0.794; disp('K1=0.794'); K2=50.6; disp('K2=50.

12、6'); K3=1.31/104; disp('K3=1.31/104'); Kb=1.9875/103; disp('Kb=1.9875/103'); elseif (C<=A&&C<=Z&&C<=B&&C<=D&&C<=E) disp('选择带型为C'); K1=1.48; disp('K1=1.48'); K2=143.2; disp('K2=143.2'); K3=2.34/104; disp('K

13、3=2.34/104'); Kb=5.625/103; disp('Kb=5.625/103'); elseif (D<=A&&D<=Z&&D<=B&&D<=C&&D<=E) disp('选择带型为D'); K1=3.15; disp('K1=3.15'); K2=507.3; disp('K2=507.3'); K3=4.77/104; disp('K3=4.77/104'); Kb=19.95/103; dis

14、p('Kb=19.95/103'); elseif (E<=A&&E<=Z&&E<=B&&E<=C&&E<=D) disp('选择带型为E'); K1=4.57; disp('K1=4.57'); K2=951.5; disp('K2=951.5'); K3=7.06/104; disp('K3=7.06/104'); Kb=19.95/103; disp('Kb=19.95/103');end % 带型选

15、择结束 % % 选择大小带轮的直径 %if (Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E) disp(' 优选带轮直径系列 50 63 71 80 90 100 112 125 132 140 150 160 180 200 224 250 280 315'); dd1=input('dd1='); while (dd1=50&&dd1=63&&dd1=71&&dd1=80&&dd1=90&a

16、mp;&dd1=100&&dd1=112&&dd1=125&&dd1=132&&dd1=140&&dd1=150&&dd1=160&&dd1=180&&dd1=200&&dd1=224&&dd1=250&&dd1=280&&dd1=315) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; while V>25 disp('请减小

17、小带轮的直径dd1'); disp(' 优选带轮直径系列 50 63 71 80 90 100 112 125 132 140 150 160 180 200 224 250 280 315'); dd1=input('dd1='); while (dd1=50&&dd1=63&&dd1=71&&dd1=80&&dd1=90&&dd1=100&&dd1=112&&dd1=125&&dd1=132&&dd1=140

18、&&dd1=150&&dd1=160&&dd1=180&&dd1=200&&dd1=224&&dd1=250&&dd1=280&&dd1=315) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; enddd2=i1*dd1;disp('计算得到的dd2=');disp(dd2);dd2=input('从优选带轮直径中选择与计算结果相近的值 dd2=');while (dd2=50&

19、amp;&dd2=63&&dd2=71&&dd2=80&&dd2=90&&dd2=100&&dd2=112&&dd2=125&&dd2=132&&dd2=140&&dd2=150&&dd2=160&&dd2=180&&dd2=200&&dd2=224&&dd2=250&&dd2=280&&dd2=315) dd2=input('

20、;dd2='); endi2=(dd2/dd1-i1)/i1;if i2>=0.05 disp('请重新输入dd2'); dd2=input('dd2='); while (dd2=50&&dd2=63&&dd2=71&&dd2=80&&dd2=90&&dd2=100&&dd2=112&&dd2=125&&dd2=132&&dd2=140&&dd2=150&&dd2=160&

21、amp;&dd2=180&&dd2=200&&dd2=224&&dd2=250&&dd2=280&&dd2=315) dd2=input('dd2='); end i2=(dd2/dd1-i1)/i1;end%elseif (A<=Z&&A<=B&&A<=C&&A<=D&&A<=E)disp(' 优选带轮直径系列为 75 80 85 90 100 106 112 118 125 132 14

22、0 150 160 180 200 224 250 280 315'); dd1=input('dd1='); while (dd1=75&&dd1=80&&dd1=85&&dd1=106&&dd1=90&&dd1=100&&dd1=112&&dd1=118&&dd1=125&&dd1=132&&dd1=140&&dd1=150&&dd1=160&&dd1=180&

23、amp;&dd1=200&&dd1=224&&dd1=250&&dd1=280&&dd1=315) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; while V>25 disp('请减小小带轮的直径dd1'); disp(' 优选带轮直径系列为 75 80 85 90 100 106 112 118 125 132 140 150 160 180 200 224 250 280 315'); dd1=input('dd1

24、='); while(dd1=75&&dd1=80&&dd1=85&&dd1=106&&dd1=90&&dd1=100&&dd1=112&&dd1=118&&dd1=125&&dd1=132&&dd1=140&&dd1=150&&dd1=160&&dd1=180&&dd1=200&&dd1=224&&dd1=250&&

25、dd1=280&&dd1=315) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; enddisp(V);dd2=i1*dd1;disp('计算得到的dd2=');disp(dd2);dd2=input('从优选带轮直径中选择与计算结果相近的值 dd2=');while (dd2=75&&dd2=80&&dd2=85&&dd2=106&&dd2=90&&dd2=100&&dd2=112&&

26、amp;dd2=118&&dd2=125&&dd2=132&&dd2=140&&dd2=150&&dd2=160&&dd2=180&&dd2=200&&dd2=224&&dd2=250&&dd2=280&&dd2=315) dd2=input('dd2='); endi2=(dd2/dd1-i1)/i1;if i2>=0.05 disp('请重新输入dd2'); dd2=input(

27、'dd2='); while (dd2=75&&dd2=80&&dd2=85&&dd2=106&&dd2=90&&dd2=100&&dd2=112&&dd2=118&&dd2=125&&dd2=132&&dd2=140&&dd2=150&&dd2=160&&dd2=180&&dd2=200&&dd2=224&&dd2=250&

28、amp;&dd2=280&&dd2=315) dd2=input('dd2='); end i2=(dd2/dd1-i1)/i1;end%elseif (B<=A&&B<=Z&&B<=C&&B<=D&&B<=E) disp('优选带轮直径系列 C为200 212 224 236 250 265 280 315 355 400 450 500'); dd1=input('dd1='); while (dd1=200&&

29、;dd1=212&&dd1=224&&dd1=236&&dd1=250&&dd1=265&&dd1=280&&dd1=315&&dd1=355&&dd1=400&&dd1=450&&dd1=500) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; while V>25 disp('请减小小带轮的直径dd1'); disp('优选带轮直径系列 C为200

30、 212 224 236 250 265 280 315 355 400 450 500'); dd1=input('dd1='); while (dd1=200&&dd1=212&&dd1=224&&dd1=236&&dd1=250&&dd1=265&&dd1=280&&dd1=315&&dd1=355&&dd1=400&&dd1=450&&dd1=500) dd1=input('dd1

31、='); end V=pi*dd1*n1/60/1000; enddisp(V);dd2=i1*dd1;disp('计算得到的dd2=');disp(dd2);dd2=input('从优选带轮直径中选择与计算结果相近的值 dd2='); while (dd2=200&&dd2=212&&dd2=224&&dd2=236&&dd2=250&&dd2=265&&dd2=280&&dd2=315&&dd2=355&&d

32、d2=400&&dd2=450&&dd2=500) dd2=input('dd2='); endi2=(dd2/dd1-i1)/i1;if i2>=0.05 disp('请重新输入dd2'); dd2=input('dd2='); while (dd2=200&&dd2=212&&dd2=224&&dd2=236&&dd2=250&&dd2=265&&dd2=280&&dd2=315&&am

33、p;dd2=355&&dd2=400&&dd2=450&&dd2=500) dd2=input('dd2='); end i2=(dd2/dd1-i1)/i1;enddisp('dd2');%elseif (C<=A&&C<=Z&&C<=B&&C<=D&&C<=E) disp('优选带轮直径系列 C为200 212 224 236 250 265 280 315 355 400 450 500'); dd1

34、=input('dd1='); while (dd1=200&&dd1=212&&dd1=224&&dd1=236&&dd1=250&&dd1=265&&dd1=280&&dd1=315&&dd1=355&&dd1=400&&dd1=450&&dd1=500) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; while V>25 disp(&#

35、39;请减小小带轮的直径dd1'); disp('优选带轮直径系列 C为200 212 224 236 250 265 280 315 355 400 450 500'); dd1=input('dd1='); while (dd1=200&&dd1=212&&dd1=224&&dd1=236&&dd1=250&&dd1=265&&dd1=280&&dd1=315&&dd1=355&&dd1=400&&a

36、mp;dd1=450&&dd1=500) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; enddisp(V);dd2=i1*dd1;disp('计算得到的dd2=');disp(dd2);dd2=input('从优选带轮直径中选择与计算结果相近的值 dd2='); while (dd2=200&&dd2=212&&dd2=224&&dd2=236&&dd2=250&&dd2=265&&dd2=2

37、80&&dd2=315&&dd2=355&&dd2=400&&dd2=450&&dd2=500) dd2=input('dd2='); endi2=(dd2/dd1-i1)/i1;if i2>=0.05 disp('请重新输入dd2'); dd2=input('dd2='); while (dd2=200&&dd2=212&&dd2=224&&dd2=236&&dd2=250&&dd

38、2=265&&dd2=280&&dd2=315&&dd2=355&&dd2=400&&dd2=450&&dd2=500) dd2=input('dd2='); end i2=(dd2/dd1-i1)/i1;enddisp('dd2');%elseif (D<=A&&D<=Z&&D<=B&&D<=C&&D<=E) disp('优选带轮直径系列 D为355 375 400

39、 425 450 475 500 530 600'); dd1=input('dd1='); while (dd1=355&&dd1=375&&dd1=400&&dd1=425&&dd1=450&&dd1=475&&dd1=500&&dd1=530&&dd1=600) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; while V>25 disp('请减小小带轮的直径dd1&

40、#39;); disp('优选带轮直径系列 D为355 375 400 425 450 475 500 530 600'); dd1=input('dd1='); while (dd1=355&&dd1=375&&dd1=400&&dd1=425&&dd1=450&&dd1=475&&dd1=500&&dd1=530&&dd1=600) dd1=input('dd1='); end V=pi*dd1*n1/60/1000

41、; enddisp(V);dd2=i1*dd1;disp('计算得到的dd2=');disp(dd2);dd2=input('从优选带轮直径中选择与计算结果相近的值 dd2=');while (dd2=355&&dd2=375&&dd2=400&&dd2=425&&dd2=450&&dd2=475&&dd2=500&&dd2=530&&dd2=600) dd2=input('dd2='); endi2=(dd2/dd1-

42、i1)/i1;if i2>=0.05 disp('请重新输入dd2'); dd2=input('dd2='); while (dd2=355&&dd2=375&&dd2=400&&dd2=425&&dd2=450&&dd2=475&&dd2=500&&dd2=530&&dd2=600) dd2=input('dd2='); end i2=(dd2/dd1-i1)/i1;enddisp('dd2');

43、%elseif (E<=A&&E<=Z&&E<=B&&E<=C&&E<=D) disp('优选带轮直径系列 E为500 530 560 600 630 710'); dd1=input('dd1='); while (dd1=630&&dd1=710&&dd1=500&&dd1=530&&dd1=600) dd1=input('dd1='); end V=pi*dd1*n1/60/1000;

44、 while V>25 disp('请减小小带轮的直径dd1'); disp('优选带轮直径系列 E为500 530 560 600 630 710'); dd1=input('dd1='); while (dd1=630&&dd1=710&&dd1=500&&dd1=530&&dd1=600) dd1=input('dd1='); end V=pi*dd1*n1/60/1000; enddisp(V);dd2=i1*dd1;disp('计算得到的dd2

45、=');disp(dd2);dd2=input('从优选带轮直径中选择与计算结果相近的值 dd2=');while (dd2=630&&dd2=710&&dd2=500&&dd2=530&&dd2=600) dd2=input('dd2='); endi2=(dd2/dd1-i1)/i1;if i2>=0.05 disp('请重新输入dd2'); dd2=input('dd2='); while (dd2=630&&dd2=710&

46、;&dd2=500&&dd2=530&&dd2=600) dd2=input('dd2='); end i2=(dd2/dd1-i1)/i1;enddisp('dd2');end% 带轮直径选择结束 %a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);disp('中心距的左极限如下');disp(a1);disp('中心距的右极限如下');disp(a2);disp('初选a0，');a0=input('初选a0 选择的标准为a1<=a0<=

47、a2,请输入a0=');while (a0<a1|a0>a2) a0=input('a0=');endLd0=2*a0+pi/2*(dd1+dd2)+(dd1-dd2)2/4/a0;% right %KL=400 0.87 0 0 0 0 0; 450 0.89 0 0 0 0 0; 500 0.91 0 0 0 0 0; 560 0.94 0 0 0 0 0; 630 0.96 0.81 0 0 0 0; 710 0.99 0.83 0 0 0 0; 800 1.00 0.85 0.82 0 0 0; 900 1.03 0.87 0.84 0.83 0 0

48、; 1000 1.06 0.89 0.86 0.86 0.8 0; 1120 1.08 0.91 0.88 0.88 0.86 0; 1250 1.1 0.93 0.9 0.91 0.89 0; 1400 1.14 0.96 0.92 0.93 0.91 0; 1600 1.16 0.99 0.95 0.95 0.93 0; 1800 1.18 1.01 0.98 0.97 0.96 0; 2000 0 1.03 1 0.99 0.98 0; 2240 0 1.06 1.03 1.02 1 0; 2500 0 1.09 1.05 1.04 1.03 0; 2800 0 1.11 1.07 1.

49、07 1.06 0; 3150 0 1.13 1.09 1.09 1.08 0; 3500 0 1.17 1.13 1.12 1.11 0; 4000 0 1.19 1.15 1.15 1.14 0; 4500 0 0 1.18 1.18 1.17 0; 5000 0 0 0 1.21 1.2 0;for k=1:22 if KL(k,1)<=Ld0&&Ld0<=KL(k+1,1) s=Ld0-KL(k,1); t=KL(k+1,1)-Ld0; if s<=t Ld=KL(k,1); else Ld=KL(k+1,1); end disp('根据表格选

50、择的带的标准基准长度Ld='); disp(Ld); if (Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E) KL=KL(k,2); elseif (A<=Z&&A<=B&&A<=C&&A<=D&&A<=E) KL=KL(k,3); elseif (B<=A&&B<=Z&&B<=C&&B<=D&&B&l

51、t;=E) KL=KL(k,4); elseif (C<=A&&C<=Z&&C<=B&&C<=D&&C<=E) KL=KL(k,5); elseif (D<=A&&D<=Z&&D<=B&&D<=C&&D<=E) KL=KL(k,6); elseif (E<=A&&E<=Z&&E<=B&&E<=C&&E<=D) KL=

52、KL(k,7); end disp('输出KL，KL='); disp(KL); break endenda=a0+(Ld-Ld0)/2;ALF1=180-(dd2-dd1)/a*57.3;c=220 210 200 190 180 170 160 150 140 130 120 110 100 90; 1.20 1.15 1.10 1.05 1.00 0.98 0.95 0.92 0.89 0.86 0.82 0.78 0.73 0.68;for u=1:13 if ALF1<=c(1,u)&&ALF1<=c(1,u+1) if ALF1-c(1,

53、u+1)<=c(1,u)-ALF1 ALF1=c(1,u+1); KALF=c(2,u+1); else ALF1=c(1,u); KALF=c(2,u); end disp('据表查出的ALF1'); disp(ALF1); disp('根据查表得到的KALF='); disp(KALF); break endendP0=(K1/(V0.09)-K2/dd1-K3*V2/(104)*V;DIFP0=Kb/(103)*n1*(1-1/Ki);Z1=pd/(P0+DIFP0)/KL/KALF;Z2=Z1+0.5;Z=round(Z2);disp('输出带的根数Z=');disp(Z);if Z<10 if (Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E) m=0.1; F0=500*pd*(2.5-KALF)/KALF/V/Z+m*V2; Q=2*Z*F0*sin(ALF1/2*pi)/180); e=15; f=10; B=(Z-1)*e+2*f; disp(&