1、機(jī)械設(shè)計(jì)電算實(shí)驗(yàn)一：普通V帶傳動(dòng)設(shè)計(jì)內(nèi)容和任務(wù)1、普通V帶傳動(dòng)設(shè)計(jì)內(nèi)容給定原始數(shù)據(jù)：傳遞的功率P，小帶輪轉(zhuǎn)速n，傳動(dòng)比i及工作條件。設(shè)計(jì)內(nèi)容：帶型號(hào)，基準(zhǔn)長(zhǎng)度Ld，根數(shù)Z，傳動(dòng)中心距a，帶輪基準(zhǔn)直徑dd1、dd2，帶輪輪緣寬度B，初拉力F0，和壓軸力FQ。2、CAD任務(wù)： 1編制V帶傳動(dòng)設(shè)計(jì)程序框圖。2編制V帶傳動(dòng)設(shè)計(jì)原程序。3按習(xí)題或作業(yè)中數(shù)據(jù)運(yùn)行程序，要求對(duì)每一組數(shù)據(jù)各按三種V帶型號(hào)計(jì)算，對(duì)每一種帶型號(hào)選三種小帶輪直徑進(jìn)行計(jì)算并輸出所有結(jié)果。二、變量標(biāo)識(shí)符序號(hào)名稱代號(hào)程序符號(hào)單位1名義功率Ppkw2設(shè)計(jì)功率Pdpdkw3工作情況系數(shù)KAkka4小帶輪轉(zhuǎn)速n1nr/min5工作機(jī)載荷特性載荷

2、類型6原動(dòng)機(jī)類型原動(dòng)機(jī)類型7工作年限a年b班8帶型號(hào)V帶帶型9小帶輪基準(zhǔn)直徑dd1dd1mm10大帶論基準(zhǔn)直徑dd2dd2mm11帶速vvm/s12最大帶速vmaxvmaxm/s13預(yù)估中心距a0a0mm14基準(zhǔn)長(zhǎng)度Ldldmm15實(shí)際中心距aaamm16小帶輪包角1r度17V帶根數(shù)Zz18根本額定功率P0pokw19功率增量P0pp0kw20傳動(dòng)比系數(shù)Kiki21長(zhǎng)度系數(shù)KLkl22包角系數(shù)Kka23彎曲影響系數(shù)Kbkb24初拉力F0f0N25壓軸力QfqN26輪緣寬度Bbbmm 三、程序框圖開始輸入原始數(shù)據(jù)P,n,i并選擇電機(jī)計(jì)算設(shè)計(jì)功率由帶型號(hào)確定最大帶速，小帶輪直徑系，帶的相關(guān)參數(shù)m，

3、f，e 相關(guān)系數(shù)Kb確定帶型號(hào)選擇小帶輪直徑驗(yàn)算帶速vvmax?計(jì)算大帶輪直徑給定范圍，預(yù)估中心距AA計(jì)算Ld并取標(biāo)準(zhǔn)值，計(jì)算實(shí)際中心距并圓整計(jì)算小帶輪包角計(jì)算選擇相關(guān)系數(shù)：K， Ki 。插值計(jì)算P0 ，計(jì)算P0計(jì)算帶根數(shù)ZZ=600r/min的內(nèi)燃機(jī))disp(II類原動(dòng)機(jī)包括交流電動(dòng)機(jī)(雙籠型、滑環(huán)式、單相、大轉(zhuǎn)差率)，);disp( 直流電動(dòng)機(jī)復(fù)激、串激，單缸發(fā)動(dòng)機(jī)，n=600r/min的內(nèi)燃機(jī))d1=input(請(qǐng)選擇原動(dòng)機(jī)的類型，輸入1或2。請(qǐng)輸入:);disp(載荷類型：);disp(1、載荷平穩(wěn)；2、載荷變動(dòng)小；3、載荷變動(dòng)較大；4、載荷變動(dòng)很大。);e1=input(請(qǐng)選擇載荷

4、類型 請(qǐng)輸入:);c=3 710 38 80;2.2 940 28 60;3 960 38 80;4 960 38 80;if p=3&n=710 d=38; e=80; disp(根據(jù)您的數(shù)據(jù)為您選擇的電動(dòng)機(jī)為 Y132M-8);elseif p=2.2&n=940 d=28; e=60; disp(根據(jù)您的數(shù)據(jù)為您選擇的電動(dòng)機(jī)為 Y112M-6);elseif p=3&n=960 d=38; e=80; disp(根據(jù)您的數(shù)據(jù)為您選擇的電動(dòng)機(jī)為 Y132S-6);elseif p=4&n=960 d=38; e=80; disp(根據(jù)您的數(shù)據(jù)為您選擇的電動(dòng)機(jī)為 Y132M1-8);else

5、 disp(歡送繼續(xù)使用本程序);end ka2=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=1 kka=1.1*k(e1,b);else kka=k(e1,b);endpd=kka*p;t2=1;while t2=1z=10;while z=10disp(V帶帶型：1、Z型:dd1min=50mm；2、A型:dd1min=75mm；3、B型:dd1min=125mm);x=input(請(qǐng)輸入1、2、3來(lái)選擇帶型。 請(qǐng)選擇：);

6、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(優(yōu)選帶輪直徑系列： 50 56 63 71 80 90 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(請(qǐng)參考dd1min

7、以及優(yōu)選系列，輸入小帶輪基準(zhǔn)直徑(mm) dd1=);v=pi*dd1*n/60/1000;while v=vmax disp(請(qǐng)減小小帶輪基準(zhǔn)直徑dd1); dd1=input(請(qǐng)參考dd1min,重新輸入小帶輪基準(zhǔn)直徑(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,請(qǐng)輸入a0的值盡量為整數(shù)。 a0=);while a0a2 disp(wrong!您輸入的數(shù)值

8、不在a1-a2之間，請(qǐng)重新輸入); a0=input(請(qǐng)重新輸入a0的值盡量為整數(shù)。 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.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;1

9、600 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:22 if ld=kk(g,1)&ld=(kk(g+1,1)-ld) ld1=kk(g+1,1); else ld1=kk(g,1); end break endendkl=kk(g,x+1);aa=round(a0+(ld-l

10、d1)/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); break endendp0=(k1*v(-0.09)-k2/dd1-k3*v2)*v;if i=1.8 ki=1.

11、1202;elseif i=2 ki=1.1372;endm=0.06 0.1 0.17;pp0=kb*n*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);if z=vmax disp(請(qǐng)減小小帶輪基準(zhǔn)直徑dd1); dd1=input(請(qǐng)參考dd1min,重新輸入小帶輪基準(zhǔn)直徑(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,請(qǐng)輸入a0的值

12、盡量為整數(shù)。 a0=);while a0a2 disp(wrong!您輸入的數(shù)值不在a1-a2之間，請(qǐng)重新輸入); a0=input(請(qǐng)重新輸入a0的值盡量為整數(shù)。 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.06 0.89 0.86;1120 1.08 0.91 0.88;125

13、0 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:22 if ld=kk(g,1)&ld=(kk(g+1,1)-ld) ld1=kk(g+1,1); else ld1=kk(g,1); end br

14、eak endendkl=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: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); break endendp0=(k1

15、*v(-0.09)-k2/dd1-k3*v2)*v;if i=1.8 ki=1.1202;elseif i=2 ki=1.1372;endm=0.06 0.1 0.17;pp0=kb*n*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);if z10 f0=500*pd/z/v*(2.5-ka)/ka+m(x)*v2; fq=2*z*f0*sin(r/2/180*pi); bb=round(z-1)*15+20); disp(所選原動(dòng)機(jī)種類：) if d1=1 disp(I類原動(dòng)機(jī)); else disp(II類原動(dòng)機(jī)); end disp(所選帶型為：); if x=1

16、disp(Z型V帶); elseif x=2 disp(A型V帶); else disp(B型V帶); end disp(小帶輪直徑(mm) dd1=) disp(dd1); disp(大帶輪直徑(mm) dd2=) disp(dd2); disp(實(shí)際中心距(mm) a0=); disp(aa); disp(小帶輪包角角度 =); disp(r); disp(V帶根數(shù) Z=); disp(z); disp(V帶的基準(zhǔn)長(zhǎng)度(mm) Ld=); disp(ld); disp(初拉力(N) F0=); disp(f0); disp(作用在軸上的壓力(N) FQ=); disp(fq); disp(帶輪輪緣寬度(mm) B=); disp(bb);endt1=input(是否計(jì)算下一種帶輪直徑？ 1、yes；2、no。 請(qǐng)選擇：);endt2=input(是否計(jì)算下一型號(hào)帶？ 1、yes；2、no。 請(qǐng)選擇：);if t2=2 disp(歡送下次使用本程序)endendclear all;五、運(yùn)算例如5.1.5方案方案電動(dòng)機(jī)工作功率Pd/kW電動(dòng)機(jī)滿載轉(zhuǎn)速nm/(r/min)工作機(jī)的轉(zhuǎn)速nw/(r/min)第一級(jí)傳動(dòng)比軸承座中心高H/mm最短工作年限工作環(huán)境5.1.537108021703年3班室內(nèi)、清潔運(yùn)算結(jié)果截圖：假設(shè)選擇A帶