哈工大機械設(shè)計電算實驗(matlab2010)

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

2、 n5工作機載荷特性載荷類型6原動機類型原動機類型7工作年限a年b班8帶型號V帶帶型9小帶輪基準(zhǔn)直徑dd1dd1mm10大帶論基準(zhǔn)直徑dd2dd2mm11帶速vvm/s12最大帶速Vmaxvmaxm/s13預(yù)估中心距a0aOmm14基準(zhǔn)長度LdIdmm15實際中心距aaamm16小帶輪包角a 1r度17V帶根數(shù)Zz18基本額定功率Popokw19功率增量 Poppokw20傳動比系數(shù)Kki21長度系數(shù)Klkl22包角系數(shù)Kaka23彎曲影響系數(shù)Kbkb24初拉力F。fON25壓軸力QfqN26輪緣寬度Bbbmm三、程序框圖四、源程序與其說明 程序說明：本程序用Matlab2010b軟件編制，主

3、要針對機械設(shè)計大作業(yè)上的題型設(shè)計。使用時只要打開m文件，并點擊運行，按照提示進(jìn)行即可。首先輸入原始數(shù)據(jù)，然后根據(jù)自己的需要選擇帶型，中心距 即可得到設(shè)計結(jié)果，無需再查找資料，方便高效，計算過程如有錯誤會進(jìn)行提示，并返回到輸入處進(jìn)行改正。而且該程序可以直接計算下一帶輪直徑或者計算下一帶型，比較方便。源程序如下（先復(fù)制到記事本，再新建一個 m文件，粘貼）clear all;disp（'歡迎使用本程序，請輸入 V帶傳動設(shè)計的原始數(shù)據(jù)'）;p=i nput('電動機工作功率（kw）P=');n=in put('電動機滿載轉(zhuǎn)速（r/min）nm 二')；i

4、=i nput('第一級傳動比i1=');a=in put('請輸入最短工作工作年限a 年 b 班 a=');b=in put('b=');disp（'是否反復(fù)起動、正反轉(zhuǎn)頻繁或工作條件惡劣'）;ka仁input（'是請輸入1，否請輸入0。請輸入：）；disp（'原動機類型:'）;disp（'I類原動機包括普通籠型交流電動機，同步電動機，'）;disp（' 直流電動機（并激），n>=600r/min的內(nèi)燃機'）disp（'II類原動機包括交流電動機（雙籠型、滑環(huán)

5、式、單相、大轉(zhuǎn)差率），）；disp（' 直流電動機（復(fù)激、串激），單缸發(fā)動機，*=600r/min的內(nèi)燃機'） d1=input（'請選擇原動機的類型，輸入1或2。請輸入:'）;disp（'載荷類型：'）;disp（'1 、載荷平穩(wěn)；2、載荷變動?。?、載荷變動較大；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（&#

6、39;根據(jù)您的數(shù)據(jù)為您選擇的電動機為 丫132M-8'）;elseif p=2.2&&n=940d=28;e=60;disp（'根據(jù)您的數(shù)據(jù)為您選擇的電動機為 丫112M-6'）;elseif p=3&&n=960d=38;e=80;disp（'根據(jù)您的數(shù)據(jù)為您選擇的電動機為 丫132S-6'）;elseif p=4&&n=960d=38;e=80;disp（'根據(jù)您的數(shù)據(jù)為您選擇的電動機為 丫132M1-8'）;elsedisp（'歡迎繼續(xù)使用本程序'）;endka2=1.

7、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<=1k=ka2;elsek=ka3;endif ka1>=1kka=1.1*k(e1,b);elsekka=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=inpu

8、t('請輸入(1、2、3)來選擇帶型。 請選擇：)；x仁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=(10A(-4)*x1(3,x);kb=10A(-3)*x1(4,x);vmax=25;disp('disp('disp('disp('優(yōu)選帶輪直徑系列： 50 56 63 71 80 90 100')112 125 140 150 160 180 200') 224 250 280 315

9、355 400 425') 450 500 560 600 630 710 800')dd仁input('請參考dd1min以及優(yōu)選系列，輸入小帶輪基準(zhǔn)直徑 (mm) dd1='); v=pi*dd1* n/60/1000;while v>=vmaxdisp(' 請減小小帶輪基準(zhǔn)直徑 dd1');dd1=input(' 請參考dd1min,重新輸入小帶輪基準(zhǔn)直徑(mm) dd1='); v=pi*dd1* n/60/1000;enddd2=rou nd(i*dd1);a仁 0.7*(dd1+dd2);a2=2*(dd1+dd

10、2);disp('a 仁');disp(a1);disp('a2=');disp(a2);a0=input('已知中心距a1<=a0<=a2請輸入a0的值(盡量為整數(shù))。a0=');while a0<a1|a0>a2disp('wrong!您輸入的數(shù)值不在a1-a2之間，請重新輸入');a0=input('請重新輸入a0的值(盡量為整數(shù))。a0=');end ld=2*a0+pi/2*(dd1+dd2)+(dd1-dd2F2/4/a0;kk=400 0.87 0 0;450 0.89 0 0

11、;500 0.91 0 0;560 0.94 0 0;630 0.960.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 0 1.09 1.05;2800 0 .1.11 1.07;3150 0 1.13 1

12、.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)if (ld-kk(g,1)>=(kk(g+1,1)-ld)ld1= kk(g+1,1);elseld 1=kk(g,1);endbreakendendkl=kk(g,x+1);aa=rou nd(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

13、.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)&&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*vA2)*v;if i=1.8ki=1.1202;elseif i>=2ki=1.1372;endm=0.06 0.1 0.17;pp0=kb* n

14、*(1-1/ki);z=ceil(pd/(p0+pp0)/kl/ka);if z<10f0=500*pd/z/v*(2.5-ka)/ka+m(x)*vA2;fq=2*z*f0*si n( r/2/180*pi);bb=rou nd(z-1)*15+20);disp('所選原動機種類：')if d1=1disp('I類原動機');elsedisp('ll類原動機');enddisp(' 所選帶型為：');if x=1disp('Z 型 V帶');elseif x=2disp('A型 V帶');e

15、lsedisp('B型 V帶');enddisp('小帶輪直徑(mm)dd1=')disp(ddl);disp('大帶輪直徑(mm)dd2=')disp(dd2);disp('實際中心距(mm)a0=');disp(aa);disp('小帶輪包角(角度) a =');disp(r);disp('V 帶根數(shù)Z=');disp(z);disp('V帶的基準(zhǔn)長度(mm) Ld=');disp(ld);disp（' 初拉力（N）F0=');disp(f0);disp('

16、; 作用在軸上的壓力(N) FQ=');disp(fq);disp(' 帶輪輪緣寬度(mm) B=');disp(bb);endendt1=input('是否計算下一種帶輪直徑？1、yes; 2、no。請選擇：)；while t仁=1disp('優(yōu)選帶輪直徑系列：50 56 63 71 80 90 100')disp('112 125140150 160 180200')disp('224 250280315 355 400425')disp('450 500560600 630 710800')d

17、d仁input('請參考dd1min以及優(yōu)選系列，重新輸入小帶輪基準(zhǔn)直徑 (mm) dd1='); v=pi*dd1* n/60/1000;while v>=vmaxdisp('請減小小帶輪基準(zhǔn)直徑 dd1');dd1=input(' 請參考dd1min,重新輸入小帶輪基準(zhǔn)直徑(mm) dd1=');v=pi*dd1* n/60/1000;enddd2=rou nd(i*dd1);a仁 0.7*(dd1+dd2); a2=2*(dd1+dd2);disp('a 仁');disp(al);disp('a2=')

18、;disp(a2);a0=');a0=input('已知中心距a1<=a0<=a2請輸入a0的值(盡量為整數(shù)) while a0<a1|a0>a2disp('wrong!您輸入的數(shù)值不在a1-a2之間，請重新輸入');a0=input(' 請重新輸入a0的值(盡量為整數(shù))。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.960.81 0;710 0.9 0

19、.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 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.1

20、8;for g=1:22if ld>=kk(g,1)&&ld<=kk(g+1,1)if (ld-kk(g,1)>=(kk(g+1,1)-ld)ld1= kk(g+1,1);elseId 仁kk(g,1);endbreakendendkl=kk(g,x+1);aa=rou nd(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;11

21、0 0.78;100 0.73;90 0.68;for ii=1:13if r<=rr(ii,1)&&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*vA2)*v;if i=1.8ki=1.1202;elseif i>=2ki=1.1372;end m=0.06 0.1 0.17;ppO=kb* n*(1-1/ki);z=ceil(pd/(pO+ppO)/kl/ka);if z<10f0=500*

22、pd/z/v*(2.5-ka)/ka+m(x)*vA2;fq=2*z*f0*si n( r/2/180*pi);bb=rou nd(z-1)*15+20);disp('所選原動機種類：')if d1=1disp('I類原動機');elsedisp('II類原動機');enddisp(' 所選帶型為：');if x=1disp('Z 型 V帶');elseif x=2disp('A型 V帶');elsedisp('B型 V帶');enddisp('小帶輪直徑(mm)dd1=&#

23、39;)disp(dd1);disp('大帶輪直徑(mm)dd2=')disp(dd2);disp('實際中心距(mm)a0=');disp(aa);disp('小帶輪包角(角度) a =');disp(r);disp('V 帶根數(shù)Z=');disp(z);disp('V 帶的基準(zhǔn)長度(mm) Ld=');disp(ld);disp(' 初拉力(N)F0=');disp(f0);disp('作用在軸上的壓力(N) FQ=');disp(fq);disp('帶輪輪緣寬度(mm)

24、 B=');disp(bb);end請選擇：);請選擇：);t1=input('是否計算下一種帶輪直徑？1、yes ； 2、no。endt2=input('是否計算下一型號帶？1、yes ； 2、no。if t2=2disp('歡迎下次使用本程序')end endclear all;五、運算示例方案萬案電動機工 作功率Pd/kW電動機滿載 轉(zhuǎn)速n n/(r/mi n)工作機的轉(zhuǎn)速n «/(r/mi n)第一級傳動比h軸承座中心高H/mm取短工 作 年限工作環(huán)境5.1.537108021703年3班室內(nèi)、清潔運算結(jié)果截圖:若選擇A帶，第一次計算帶

25、輪直徑界面File Edit Debug Parallel Deslrtop /indow Help°*1 門 |町 O1 | 禪呼畫 | Current Folder | C:UserAAdminirtratorDe5ktop歡皿使用本程隔，請輸入V帯傳動設(shè)計的原始數(shù)據(jù) 電動機工作功率任SP=3nnt=7 10il=2第一織傳動比 請輸入最短工作工作年限玄年b班 a=3b=3是舌反復(fù)起功，正反轉(zhuǎn)頻繁或工作祭件惡劣是情輸入1，否請犒入0。請輸入：0原動機類型：I冀原動機包括普通籠型交濟(jì)電動機，同步電動機，直流電動機（井邈），n>=600r/jninK內(nèi)撚機口類原動機包括交謊電動

26、機（裁寵型、滑壞式、里相、犬轉(zhuǎn)差率）， 直疣電動機I夏毅、串離），單缸發(fā)動機，n<=600r/min的內(nèi)廳機 請選擇原動機的類型，輸入1或2。請輸入；1載荷類型；1、載荷平穩(wěn)；2、載荷變動小i 3、載荷變動較大；4、載荷賁動很丸-清選攝載荷婁型清輸入,：1幄據(jù)您的埶據(jù)為您選釋的電動機為Y132M-SV帯帝型：1、2型；ddliniri=£Onm； 2 A型；ddlvaih5mjn ； 30型：比11“沖12張魚 請輸入<1> 2, 3）來選擇帶型*請選擇：2優(yōu)選帶鞄盲徑系亂505S6371SO9Q1001121251401501601802002242502B031

27、5355400425450500560600030710300請參考ddlAin以及優(yōu)選系列，輸入小帶輪基準(zhǔn)直徑（mon） ddl=125 al=262,5000A已卻中心距11<=10<=12,入?yún)?的值（盡重為整數(shù)）。a0=30C計算下一種帶輪直徑界面是香計算下一種帶輪直徑V 1、y«?s:? 2、no ©i青選擇:優(yōu)選芾輪直徑至列：50556371E0go100112125140150L6018020022425023 j3153554004254505005輛600530710800i青參考ddlnin以及優(yōu)選系列，重新輸入小帶輪基準(zhǔn)直徑'jo）

28、 ddl=100210已知申心距al*=aCl ： = a= i音輸入M的值（盡里為整數(shù)）°ajQ=300A型帶計算結(jié)果一1(R20File Edrt Debug Parallel Desktop Window Help已1船專0 | S也昌七Current FolderCAUsers' Ad ministrato rDesktop 1 二所選原動機種類： 1類原動機 所選帶型為：小帶輪直徑泗）125ddl=大帶輪直徑（皿）250dd2=頭際中心距（nun!276a0=小帯輪包甬（角度）154.0499c 二¥帶根數(shù)4Z=¥帶的基準(zhǔn)-RJ1 (nun

29、9;1.2021e+003Ld=初拉力【皿165.0390F0=作用在袖上的壓力（N）1. 2866e-K103FQ=帶輪輪絳寬度（幀）65B=fx是否計茸下一種帶輪盲徑？ 1 yes 5 2、no（* Strt Waiting for inputA清選擇:1A型帶計算結(jié)果一2所選原動機種類：I類原動機所選帯型為：應(yīng)型¥芾小帯輪育徑(皿n)ddl=100大帶輪盲徑(他) dd2=200實際中心距(jhm)a0=280小帶輪包角(角度) a =159.5357V帯根數(shù)Z=6V吊的基準(zhǔn)長度nn)L d-1.0796e+003初拉力(If)F0=133.3595作用在軸上的壓力(JO FQ

30、=U5749e+003帯輪輪燼寬度(mm)B=95J*是否計算下一種帶輪直徑？ lyess 2>no請選擇：1A型帶計算結(jié)果一3File Edit Debug Parallel Desktop Window Help頁|薩唔今小|去幀目也 Current Folder C:UsersAdministratorDesktop訂口所迭原動機種類： I類原動機 所迭帯型為：A型廿帶小帶輪直徑（顧）112ddl =大帶輪直徑（頑）224dd2=實際中t?距1 nm 1309a0=小帯輪包甬（甬度159.2311cc-確根敎5I-V帯的基:隹長度1.1382e+003Ld-初拉力（們143.357

31、7F0=作用在軸上的壓力（N）L 4101e+003FQ 二帯輪輪緣寬度（価）80B 二fx杲否計茸下一種帯輪盲徑¥ Is yes； 2no。 請選擇：|桑 Start Waiting for inputT.11.0 iR2010b：Z型帶計算結(jié)果一1File Edit Debug Parallel Desktop Window Help冴晶勺砂釦9Current FolderC:Users'.AdministratorYDesktcipH所選原動機種類： I類原動機 所選帶型為：Z型V帶小帝輪肓徑皿|100ddl=大帯輪直徑皿）200dd2=頭際中心距1 JHBL 12S0

32、a0=小帝輪包甬（角度）159.5357cc =¥帶根數(shù)Z=¥帯的基準(zhǔn)長度,頑）L0796e+003Ld=初拉力(M)113,9527F0=作用在軸上的壓力（即L 5700e+003FQ二帶輪輪煤竟度加E11QE 二fx計算下一種蒂輪直：g? i.yes? 2，noo 請選擇：|d Start Waiting for inputZ型帶計算結(jié)果一2/ MATLAB ZH,0 （R2010biFile Edrt Debug Parallel Desktop Window Help固I %專e |國回|所選原動機種類：1類原動機所選帝型為：zaiv小帶輪貫徑（顧）ddl =Cur

33、rent Folder C:User5' Admini&tratorDesktop大帶輪宜徑（幀）dd2=250實際中心距（顧a0=276小帶輪包角（甬度）154.0489V帶根數(shù)¥帯的基準(zhǔn)長度Inuiii Ld=1. 2021e+003初拉力（N）F0=131.5993作用在舫上的壓力（N） FQ=L2824e+003帯輪輪壕寬度（迪）E=SO公是否計算下一種帶輪盲徑¥ Kyes? 2，noo 請選擇:* Start Waiting for inputZ型帶計算結(jié)果一3File Edit Debug Parallel Desktop Window Help

34、Q（辭 廿 芻 Current Folder: C:UsersAdministratorDesktop匚所選原動機種類：I類原動機所選帶型藥：小帝輪盲徑（頑）ddl=112犬帶輪盲徑血u224dd：=實際中 i?3Pnun）a0=309小希輪包角（角度）159.2311V帶根數(shù)V帯的草準(zhǔn)長席（mn）Ld=1.1382e+003初拉力何）FX119.0603作用在軸上的壓力（N） FQ=1,4053e+003帀輪輪緣寬度（nuii.iB=95扛建否計算下一種帯輪直徑？ I、燼即Cnx 請選擇:« Start Waiting for inputB型帶計算結(jié)果一1MATLAB 7.LimR2010b)&File Edit Debug Parallel Desktop Window Help所選原動機種類：I類原動機 所選帶型為：E型端小帯輪盲徑（nml125e m