哈工大帶傳動電算程序高分matab版本

1、Harbin Institute of Technology哈爾濱工業(yè)大學(xué) 機(jī)械設(shè)計作業(yè)設(shè)計計算說明書課程名稱： 機(jī)械設(shè)計 設(shè)計題目： V帶傳動設(shè)計 院 系： 機(jī)電工程學(xué)院 班 級： 設(shè) 計 者： 學(xué) 號： 指導(dǎo)教師： 設(shè)計時間： 2014.11.25 哈爾濱工業(yè)大學(xué)18 / 18文檔可自由編輯打印一、程序框圖a1=0.7(dd1+dd2)，a2=2(dd1+dd2)輸入初估中心距a0,計算 Ld0Add2= 查標(biāo)準(zhǔn)帶輪直徑表確定dd2YV<Vmax ?根據(jù)型號確定最大帶速Vmax，額定功率P0中系數(shù)K1,K2,K3，彎曲影響系數(shù)KbV=輸出該型號帶輪系列直徑，選擇輸入小帶輪基準(zhǔn)直徑dd

2、1輸入帶型號查表求傳動比系數(shù)Ki查KA, 計算Pd，選型查表求KA, 計算Pd輸入P, n1, i輸入各原始數(shù)據(jù)開始減小直徑圖1 V帶設(shè)計程序框圖B查標(biāo)準(zhǔn)長度確定Ld，同時查取KL，計算實際中心距aA計算小帶輪包角查表確定包角系數(shù)計算Po，Z<10 ?計算Fo, Q,B ( 取整)輸出結(jié)果計算下一型號帶 ？結(jié)束計算下一種帶輪直徑？YYYNNNNB二、V帶設(shè)計程序disp(' 您好，請輸入V帶傳動設(shè)計的原始數(shù)據(jù) ');p=input(' 電動機(jī)工作功率 (kw) P=');while (isempty(p)|p=0) p=input('p='

3、);endn1=input(' 電動機(jī)滿載轉(zhuǎn)速 (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(' 是否反復(fù)起動 、正反轉(zhuǎn)頻繁或工作條件惡劣 ');KA1=input(' 是請輸入 1，否請輸入 0。 請輸入： ');while (isempty(KA1)| KA1=1 && KA1=0); KA1=input('KA1=');enddisp(' 原動機(jī)類型 :');disp('I 類原動機(jī)包括普通籠型交流電， 同步電動機(jī)，直流電動機(jī)（并激）， n>=600r/min 的內(nèi)燃機(jī) '

5、);disp('II 類原動機(jī) 包括交流電動機(jī)(雙籠型、滑環(huán)式單相大轉(zhuǎn)差率 )，直流電動機(jī)（復(fù)激、串），單缸發(fā)動機(jī)， n<=600r/min 的內(nèi)燃機(jī)');YDJ=input(' 請選擇原動機(jī)的類型，輸入 1或 2。請輸 入:');while (isempty(YDJ)| YDJ=1 && YDJ=2); YDJ=input('YDJ=');enddisp(' 選擇載荷類型： ');disp('1 、載荷平穩(wěn)； 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('根據(jù)查表得到傳動比系數(shù)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、擇結(jié)束 % % 選擇大小帶輪的直徑 %if (Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E) disp(' 優(yōu)選帶輪直徑系列 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(' 優(yōu)選帶輪直徑系列 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('從優(yōu)選帶輪直徑中選擇與計算結(jié)果相近的值 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(' 優(yōu)選帶輪直徑系列為 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(' 優(yōu)選帶輪直徑系列為 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('從優(yōu)選帶輪直徑中選擇與計算結(jié)果相近的值 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('優(yōu)選帶輪直徑系列 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('優(yōu)選帶輪直徑系列 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('從優(yōu)選帶輪直徑中選擇與計算結(jié)果相近的值 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('優(yōu)選帶輪直徑系列 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('優(yōu)選帶輪直徑系列 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('從優(yōu)選帶輪直徑中選擇與計算結(jié)果相近的值 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('優(yōu)選帶輪直徑系列 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('優(yōu)選帶輪直徑系列 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('從優(yōu)選帶輪直徑中選擇與計算結(jié)果相近的值 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('優(yōu)選帶輪直徑系列 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('優(yōu)選帶輪直徑系列 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('從優(yōu)選帶輪直徑中選擇與計算結(jié)果相近的值 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% 帶輪直徑選擇結(jié)束 %a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);disp('中心距的左極限如下');disp(a1);disp('中心距的右極限如下');disp(a2);disp('初選a0，');a0=input('初選a0 選擇的標(biāo)準(zhǔn)為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('根據(jù)表格選

50、擇的帶的標(biāo)準(zhǔn)基準(zhǔn)長度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('據(jù)表查出的ALF1'); disp(ALF1); disp('根據(jù)查表得到的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('輸出帶的根數(shù)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(&