哈工大机械设计电算大作业-V带精选.doc

机械设计电算大作业 题 目 V带传动设计 专 业 学　　 号 学 生 　　　指 导 教 师 　　 V带设计传动设计源程序 见报告后附：V带设计源程序 数据计算及结果示例 1、方案5.1.1 2、方案5.1.2 结果分析 方案5.1.2： A型，大带轮200mm、小带轮100mm，带轮直径小，占用空间少，带根数为5较少，经济性好，初拉力116N，较为合适，且带轮基准长度Ld为1120mm较短，故为9种方案中的最佳方案。 V带设计源程序 1、模块程序 % 选择vmax function vmax=csvmax(type) if(type=5) vmax=25; end if(type5type=7) vmax=30; end End % 选择m function m=csm(type) switch type case 2 m=0.06; case 3 m=0.10; case 4 m=0.17; case 5 m=0.30; case 6 m=0.60; case 7 m=0.90; end End % 选择Ld function Ld=csLd(Ld0) l0=[200,224,250,280,315,355,400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,2240,2500,2800,3150,3550,4000,4500,5000]; last_Dv = 5000; for i=1:29 Dv=abs(l0(i)-Ld0); if Dv=last_Dv Ld=l0(i); end last_Dv =Dv; end End % 选择Ka function KA=csKA(G,Y,T,S) if(Y==2) k2=[1.0 1.1 1.2;1.1 1.2 1.3;1.2 1.3 1.4;1.3 1.4 1.5]; KA0=k2(G-1,T-1); else k3=[1.1 1.2 1.3;1.2 1.3 1.4;1.4 1.5 1.6;1.5 1.6 1.8]; KA0=k3(G-1,T-1); end if(S==2) KA=1.1*KA0; else KA=KA0; end End % 选择Ki function Ki=csKi(i) if(i1.00) Ki=1.0000; end if(i1.02) Ki=1.0136; end if(i1.05) Ki=1.0276; end if(i1.09) Ki=1.0419; end if(i1.13) Ki=1.0567; end if(i1.19) Ki=1.0719; end if(i1.25) Ki=1.0875; end if(i1.35) Ki=1.1036; end if(i1.52) Ki=1.1202; end if(i=2.00) Ki=1.1373; end End % 选择Kb function Kb=csKb(type) if(type=2) Kb0=0.2925; end if(type=3) Kb0=0.7725; end if(type=4) Kb0=1.9875; end if(type=5) Kb0=5.625; end if(type=6) Kb0=19.95; end if(type=7) Kb0=37.35; end Kb=0.001*Kb0; End % 选择K_alp function K_alp=csK_alp(alp) alp=250 alp1=[220,210,200,190,180,170,160,150,140,130,120,110,100,90] K_alp1=[1.2,1.15,1.1,1.05,1,0.98,0.95,0.92,0.89,0.86,0.82,0.78,0.73,0.68] L_DV=50