哈工大机械设计电算大作业-V带

1机械设计电算大作业题目V带传动电算设计专业学号学生指导教师2一、V带传动设计程序框图N输入P,n1,i输入各原始数据查表求传动比系数Ki查KA,计算Pd，选型查表求KA,计算Pd输入带型号输出该型号带轮系列直径，选择输入小带轮基准直径dd1V=10006011ndd根据型号确定最大带速Vmax，额定功率P0中系数K1,K2,K3，弯曲影响系数KbVVmax?Ydd2=1ddi查标准带轮直径表确定dd2a1=0.7(dd1+dd2)，a2=2(dd1+dd2)输入初估中心距a0,计算Ld0A减小直径BB查标准长度确定Ld，同时查取KL，计算实际中心距aA计算小带轮包角1查表确定包角系数K计算Po，PoKKPoPoPdZLZ10?计算Fo,Q,B(取整)输出结果计算下一型号带？结束计算下一种带轮直径？YYYNNN3二、V带设计传动设计源程序见报告后附：V带设计源程序三、数据计算及结果示例1、方案5.1.142、方案5.1.2四、结果分析方案5.1.2：A型，大带轮200mm、小带轮100mm，带轮直径小，占用空间少，带根数为5较少，经济性好，初拉力116N，较为合适，且带轮基准长度Ld为1120mm较短，故为9种方案中的最佳方案。5V带设计源程序1、模块程序%选择vmaxfunctionvmax=csvmax(type)if(type=5)vmax=25;endif(type5&&type=7)vmax=30;endEnd%选择mfunctionm=csm(type)switchtypecase2m=0.06;case3m=0.10;case4m=0.17;case5m=0.30;case6m=0.60;case7m=0.90;endEnd%选择LdfunctionLd=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;fori=1:29Dv=abs(l0(i)-Ld0);ifDv=last_DvLd=l0(i);endlast_Dv=Dv;endEnd%选择KafunctionKA=csKA(G,Y,T,S)if(Y==2)k2=[1.01.11.2;1.11.21.3;1.21.31.4;1.31.41.5];KA0=k2(G-1,T-1);elsek3=[1.11.21.3;1.21.31.4;1.41.51.6;1.51.61.8];KA0=k3(G-1,T-1);endif(S==2)KA=1.1*KA0;elseKA=KA0;endEnd%选择KifunctionKi=csKi(i)if(i1.00)Ki=1.0000;endif(i1.02)Ki=1.0136;endif(i1.05)6Ki=1.0276;endif(i1.09)Ki=1.0419;endif(i1.13)Ki=1.0567;endif(i1.19)Ki=1.0719;endif(i1.25)Ki=1.0875;endif(i1.35)Ki=1.1036;endif(i1.52)Ki=1.1202;endif(i=2.00)Ki=1.1373;endEnd%选择KbfunctionKb=csKb(type)if(type=2)Kb0=0.2925;endif(type=3)Kb0=0.7725;endif(type=4)Kb0=1.9875;endif(type=5)Kb0=5.625;endif(type=6)Kb0=19.95;endif(type=7)Kb0=37.35;endKb=0.001*Kb0;End%选择K_alpfunctionK_alp=csK_alp(alp)alp=250alp1=[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=500;fori=1:14Dv=abs(alp1(i)-alp);ifDv=L_DVK_alp=K_alp1(i);endL_DV=Dv;endEnd%选择KLfunctionKL=csKL(Ld,type)switchtypecase2%Z型带switchLdcase400KL=0.87;case450KL=0.89;case500KL=0.91;case5607KL=0.94;case630KL=0.96;case710KL=0.99;case800KL=1.00;case900KL=1.03;case1000KL=1.06;case1120KL=1.08;case1250KL=1.10;case1400KL=1.14;case1600KL=1.16;case1800KL=1.18;endifLd400||Ld1800KL=0;endcase3%A型带switchLdcase630KL=0.81;case710KL=0.83;case800KL=0.85;case900KL=0.87;case1000KL=0.89;case1120KL=0.91;case1250KL=0.93;case1400KL=0.96;case1600KL=0.99;case1800KL=1.01;case2000KL=1.03;case2240KL=1.06;case2500KL=1.09;case2800KL=1.11;case3150KL=1.13;case3550KL=1.17;case4000KL=1.19;endifLd630||Ld4000KL=0;endcase4%B型带switchLdcase800KL=0.82;case900KL=0.84;case1000KL=0.86;case1120KL=0.88;case1250KL=0.90;case14008KL=0.92;case1600KL=0.95;case1800KL=0.98;case2000KL=1.00;case2240KL=1.03;case2500KL=1.05;case2800KL=1.07;case3150KL=1.09;case3550KL=1.13;case4000KL=1.15;case4500KL=1.18;endifLd800||Ld4500KL=0;endcase5%C型带switchLdcase900KL=0.83;case1000KL=0.86;case1120KL=0.88;case1250KL=0.91;case1400KL=0.93;case1600KL=0.95;case1800KL=0.97;case2000KL=0.99;case2240KL=1.02;case2500KL=1.04;case2800KL=1.07;case3150KL=1.09;case3550KL=1.12;case4000KL=1.15;case4500KL=1.18;case5000KL=1.21;endifLd900KL=0;endcase6%D型带switchLdcase1000KL=0.83;case1120KL=0.86;case1250KL=0.89;case1400KL=0.91;case1600KL=0.93;case1800KL=0.96;9case2000KL=0.98;case2240KL=1.00;case2500KL=1.03;case2800KL=1.06;case3150KL=1.08;case3550KL=1.11;case4000KL=1.14;case4500KL=1.17;case5000KL=1.20;endifLd1000KL=0;endcase7%E型带KL=1.00;End%选择K1、K2、K3function[K1,K2,K3]=csK(type)kk=[0.246,7.44,0.441;0.449,19.02,0.765;0.794,50.6,1.31;1.48,143.2,2.34;3.15,507.3,4.77;4.57,951.5,7.06];K1=kk(type,1)K2=kk(type,2)K3=kk(type,3)*10^(-4)end%选择dd1functiondd10=csdd10(type)d=[0000];switchtypecase2d=[50,63,71,80];case3d=[75,90,100,125];case4d=[125,140,160,180];case5d=[200,250,315,400];case6d=[355,400,450,500];case7d=[500,560,630,710];enddd10=d;end%计算ZfunctionZ=ccZ(Pd,P0,derP0,KL,K_alp)Z0=Pd/((P0+derP0)*K_alp*KL);Z=ceil(Z0);end%计算vfunctionv=ccv(dd1,n)v=pi*dd1*n/(60*1000);end%计算PdfunctionPd=ccPd(KA,p)Pd=KA*p;end%计算P0、derP0function[P0,derP0]=ccP0derP0(K1,K2,K3,dd1,v,Kb,n,Ki)10P0=(K1*v^(-0.09)-K2/dd1-K3*v*v)*v;derP0=Kb*n*(1-1/Ki);End%计算Ld0functionLd0=ccLd0(dd1,dd2,a0)Ld0=2*a0+(dd1+dd2)*pi/2+(dd2-dd1)^2/(4*a0)End%计算F0、FQ、Bfunction[F0,FQ,B]=cclast(Pd,K_alp,m,v,Z,alp,type)e=[12,15,19,25.5,37,44.5]f=[8,10,12.5,17,23,29]F0=500*Pd*(2.5-K_alp)/(v*Z*K_alp)+m*v*v;FQ=2*F0*Z*sin(alp*pi/180*0.5);B0=(Z-1)*e(type-1)+2*f(type-1);B=round(B0);end%计算dd2、a1、a2function[dd2,a1,a2]=ccdd2(i,dd1)dd2=i*dd1a1=0.7*(dd1+dd2)a2=2*(dd1+dd2)End%计算alpfunctionalp=ccalp(dd2,dd1,a)alp=180-(dd2-dd1)*57.3/a;end%计算afunctiona=cca(a0,Ld,Ld0)a=a0+(Ld-Ld0)/2;end%输出结果functionop=output(Ld,Z,a,dd1,dd2,B,F0,FQ,t,op)op0=zeros(3,8);op0(t,:)=[Ld,Z,a,dd1,dd2,B,F0,FQ];op=op+op0;end%输出typefunctionType=outputType(type)switchtypecase2Type='Z型';case3Type='A型';case4Type='B型';case5Type='C型';case6Type='D型';case7Type='E型';endEnd112、主程序functionvarargout=lsy(varargin)gui_Singleton=1;gui_State=struct('gui_Name',mfilename,...'gui_Singleton',gui_Singleton,...'gui_OpeningFcn',@lsy_OpeningFcn,