V带电算程序设计简介

1、一、 程序设计简介本程序采用Matlab语言编程，用Matlab中的GUI图形界面来实现程序的界面显示输入输出结果一目了然，简单实用。本程序实现的是V带传动中的小带轮设计，能满足正常情况下所有种类的V带的自动计算。本程序集成了V带设计过程中所有需要的用到的图表，既不用查取任何书籍即可完成计算，并且可同时显示九种输出结果，便于比较各种不同选择之间的差别，从中选择最好的结果。程序界面如下： 图1 二 、V带程序框图 下图为V带程序的框图，它按照普通V带的程序设计计算过程以及程序语言的特点编写而成，通过框图能直观的了解到程序的工作过程，同时也为程序的编制带来很大方便。程序框图如下： 开始输入P，n1

2、，i的值选择工作载荷情况，原动机类型，及一天工作的时间得到KA的值计算Pd，并根据型图选型根据带型，输入最小带轮直径dd1dd2=i*dd1选取标准直径确定dd2V=？输入初估中心距a0计算基本带长Ld1，查取基准长度Ld，计算实际中心距a，小轮包角查取k1,k2,k3,ki,kb,ka,kl,计算的P0，P0Z=Z10计算F0，FQ，输出Ld，Z，a,dd1,dd2,F0,FQ计算下一种直径？结束A AB减小直径NYBYNYN三程序的运行过程 首先要运行本程序，需要Matlab的运行环境，而且由于版本的更新与Matlab语言的不断完善，本程序需要Matlab 2009a以上的版本才能够正确运

3、行，版本过低导致有的函数软件不能识别，会报告错误。有了Matlab的运行环境之后，双击“.m”的程序源文件进入文件编辑器中，单击菜单栏中的绿色三角形既运行按钮，或者在当前界面下直接按“F5” 即可运行本程序，成功后将会弹出如图1的界面。1.输入原始数据包括，功率P，转速n1，传动比i，输入完成后点击确定，则提示框显示下一步应该进行的操作，如下图所示： 图22.按照提示的信息，进行接来下的操作，选择带轮的工作情况条件，如下图： 图33.选择完工作条件之后，程序会显示选择V带型号的图表如图3，根据提示栏提示的信息选择V带型号，本图所示数据选择A型带，如下图： 图44根据提示信息，选择小带轮直径，并

4、单击确定，如下图： 图55点击确定后，程序自动算出中心距范围。并显示在提示栏中，从中初选中心距，输入完成后点击“计算”，如下图： 图6 6. 点击“计算”后，输出数据就显示在界面上，包括带型，基准长度，V带根数，中心距，大小带轮直径，初压力，压轴力。如果要进行下一组数据的计算，点击“计算下一组数据”，程序自动将输入数据清空，进行下一轮计算，如下图： 图7 7.从新按照上述步骤从新输入数据，输入完成后，点击“计算”，输出数据将显示在计算结果的第2行里。计算超过九组数据时，计算结果列表将自动增加行来满足显示输入，如下图： 图8 8本程序还能提示数据选择不当而产生的错误，如下图，提示V带根数大于10

5、时，需要从新选择数据。 图9四 、程序原代码、 %本程序运行需要在matlab2008b及以上版本中才能正确运行，如果运行出错，请老师升级matlab版本即可%H=figure(position,100,50,1100,700,name,V带设计,menubar,none);b=1axes(position,0.28,0.48,0.45,0.55)xy=imread(jin.jpg)imshow(xy)a1=0,0,0,0;0,1.0,1.1,1.2;0,1.1,1.2,1.3;0,1.2,1.3,1.4;0,1.3,1.4,1.5;a2=0,0,0,0;0,1.1,1.2,1.3;0,1.2

6、,1.3,1.4;0,1.4,1.5,1.6;0,1.5,1.6,1.8;dd=0,20,50,75,125,200,355,500;v=0,25,25,25,25,25,30,30;ld=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;DD=0,0,0,0;20,28,35.5,40;50,63,71,80;75,90,100,125;125,140,160,180;200,2

7、50,315,400;355,400,450,500;500,560,630,710DD2=20,28,35.5,40,50,63,71,75,80,90,100,125,140,160,180,200,250,315,355,400,450,500,560,630,710k=0,0,0.264,0.449,0.794,1.48,3.15,4.57;0,0,7.44,19.02,50.6,143.2,507.3,951.5;0,0,0.441,0.765,1.31,2.34,4.77,7.06;kb=0,0,0.2925,0.7725,1.9875,5.625,19.95,37.35;ki=1

8、,1.0136,1.0276,1.0419,1.0567,1.0719,1.0875,1.1036,1.1202,1.1373;alf=90,100,110,120,130,140,150,160,170,180,190,200,210,220;ka=0.68,0.73,0.78,0.82,0.86,0.89,0.92,0.95,0.98,1.00,1.05,1.10,1.15,1.20;m1=0,0.02,0.06,0.1,0.17,0.3,0.6,0.9kl=0,0.81,0,0,0,0,0,0;0,0.82,0,0,0,0,0,0;. 0,0.84,0,0,0,0,0,0;0,0.870

9、,0,0,0,0,0,0;. 0,0.9,0,0,0,0,0,0;0,0.92,0,0,0,0,0,0;. 0,0.96,0.87,0,0,0,0,0;0,1,0.89000,0,0,0,0,0;. 0,1.0200,0.9100,0,0,0,0,0;0,0,0.0000,0,0,0,0,0;. 0,0,0.96000,0.81000,0,0,0,0;0,0,0.0000,0.0000,0,0,0,0;. 0,0,1,0.8500,0.,0,0,0;0,0,1.000,0.0000,0.0000,0.0000,0,0;. 0,0,1.06000,0.89000,0.0000,0.0000,0.

10、0000,0;. 0,0,1.08000,0.,0.0000,0.0000,0.0000,0;. 0,0,1.10,0.,0.0000,0.0000,0.0000,0;. 0,0,1.14000,0.96000,0.0000,0.0000,0.0000,0;. 0,0,1.,0.99000,0.0000,0.0000,0.0000,0;. 0,0,1.18000,1.010,0.0000,0.0000,0.0000,0;. 0,0,0,1.0300,1,0.9000,0.0000,0;0,0,0,1.000,1.000,1.000,1,0;. 0,0,0,1.,1.,1.000,1.000,0

11、;. 0,0,0,1.11000,1.07000,1.000,1.000,0;. 0,0,0,1.1300,1.,1.000,1.000,0;. 0,0,0,1.17000,1.130,1.000,1.000,0;. 0,0,0,1.1900,1.1500,1.000,1.000,0;. 0,0,0,0,1.180,1.1800,1.000,0;0,0,0,0,0,1.000,1.000,0;0,0,0,0,0,1.000,1.000,0;xing=0, Y型, Z型, A型, B型, C型, D型, E型edit1=uicontrol(H,style,edit,position,150,58

12、0,100,50,fontname,楷体,fontsize,12,backgroundcolor,w,callback,. P=str2num(get(edit1,string);edit2=uicontrol(H,style,edit,position,150,510,100,50,fontname,楷体,fontsize,12,backgroundcolor,w,callback,. n1=str2num(get(edit2,string);edit3=uicontrol(H,style,edit,position,150,440,100,50,fontname,楷体,fontsize,1

13、2,backgroundcolor,w,callback,. i=str2num(get(edit3,string););edit4=uicontrol(H,style,edit,position,950,530,100,50,fontname,楷体,fontsize,12,backgroundcolor,w,callback,. dd1=str2num(get(edit4,string);,dd2=dd1*i;,V=(pi*dd1*n1)/60000;,. for nn=1:25;,. xx=dd2-DD2(nn);,. if xxDD2(nn)-dd2;,. dd2=DD2(nn);,.

14、else;,. dd2=DD2(nn-1);,. end;);edit5=uicontrol(H,style,edit,position,950,390,100,50,backgroundcolor,w,fontname,楷体,fontsize,12,callback,. a0=str2num(get(edit5,string)text1=uicontrol(H,style,text,position,50,580,100,50,backgroundcolor,w,string,. 传递功率（kw）,fontname,楷体,fontsize,15)text1=uicontrol(H,style

15、,text,position,50,510,100,50,backgroundcolor,w,string,. 电动机转速（r/min）,fontname,楷体,fontsize,15)text3=uicontrol(H,style,text,position,50,440,100,50,backgroundcolor,w,string,. 传动比i,fontname,楷体,fontsize,15)text4=uicontrol(H,style,text,position,830,530,120,50,fontname,楷体,fontsize,15,string,小带轮基准直径dd1,back

16、groundcolor,w);text5=uicontrol(H,style,text,position,830,390,120,50,backgroundcolor,w,fontname,楷体,fontsize,12,string,初选中心距a0（mm）);text6=uicontrol(H,style,text,position,830,600,120,30,backgroundcolor,w,string,V带型号,fontname,楷体,fontsize,13)text7=uicontrol(H,style,text,position,50,160,200,30,backgroundc

17、olor,w,string,一天工作时间/h,fontname,楷体,fontsize,13)text8=uicontrol(H,style,text,position,50,330,200,30,backgroundcolor,w,string,选择工作载荷情况,fontname,楷体,fontsize,13)text9=uicontrol(H,style,text,position,50,260,200,30,backgroundcolor,w,string,选择原动机类型,fontname,楷体,fontsize,13)textt=uicontrol(H,style,text,posit

18、ion,310,50,40,210,backgroundcolor,w,string, 计算结果,fontname,楷体,fontsize,20)texth=uicontrol(H,style,text,position,305,280,500,70,backgroundcolor,w,string,请输入带轮的额定功率P，小带轮转速n1，传动比i,. fontsize,15,fontname,楷体)radio1=uicontrol(H,style,radiobutton,position,50,230,200,30,backgroundcolor,w,string,型系统,fontname,

19、楷体,fontsize,13,. callback,set(radio2,value,0);,w1=get(radio1,value);,set(texth,string,请选择一天工作时间)radio2=uicontrol(H,style,radiobutton,position,50,200,200,30,string,型系统,backgroundcolor,w,fontname,楷体,fontsize,13,. callback,set(radio1,value,0);,w2=get(radio2,value);,set(texth,string,请选择一天工作时间)pop1=uicon

20、trol(H,style,popup,position,50,130,200,30,backgroundcolor,w,string, |16|,fontsize,12,. callback,n=get(pop1,value);,. if w1=1;,. KA=a1(r,n);,. else;,. KA=a2(r,n);,. end;,. PD=KA*P;,. set(texth,string, 设计功率PD为,num2str(PD),KW 小带轮转速n1为,num2str(n1),r/min 根据上图选择V带型号);,. xy=imread(jin1.jpg);,. imshow(xy)po

21、p2=uicontrol(H,style,popup,position,950,600,100,30,backgroundcolor,w,string, |Y型|Z型|A型|B型|C型|D型|E型,. fontsize,12,callback,m=get(pop2,value);,dd1MIN=dd(1,m);,. set(texth,string, 最小带轮直径为,num2str(dd(1,m),mm 请填入小带轮基准直径, 可选带轮直径为,num2str(DD(m,:)pop3=uicontrol(H,style,popup,position,50,300,200,30,backgroun

22、dcolor,w,string, |载荷平稳|载荷变动小|载荷变动较大|载荷变动很大,. fontsize,12,callback,r=get(pop3,value);,set(texth,string,请选择原动机类型)button1=uicontrol(H,style,pushbutton,position,875,330,100,50,string,计算,fontname,楷体,fontsize,13,callback,. LD1=2*a0+(pi*(dd1+dd2)/2+(dd2-dd1)2/(4*a0);,M=m1(1,m);,. for n=1:29;,. x=LD1-ld(n);

23、,. if x=1&i1.015&i1.045&i1.085&i1.125&i1.185&i1.245&i1.345&i1.515&i=1.995;,. z=9;,. else;,. z=10;,. end;,. a=a0+(LD-LD1)/2;,k1=k(1,m);,k2=k(2,m);,k3=k(3,m);,ALF1=180-(dd2-dd1)*57.3)/a;,. P0=(k1*(V(-0.09)-k2/dd1-k3*0.0001*V*V)*V;,Kb=kb(1,m)*10(-3);,Ki=ki(1,z);,. DIFP0=Kb*n1*(1-1/Ki);,. for l=1:14;,.

24、y=ALF1-alf(1,l);,. if y=ALF1-alf(1,l);,. KALF=ka(1,l);,. else;,. KALF=ka(1,l-1);,. end;,KL=kl(n,m);,Z1=PD/(P0+DIFP0)*KALF*KL);,Z=ceil(Z1);,F0=(500*PD*(2.5-KALF)/KALF)/(Z*V)+M*V2;,. FQ=2*Z*F0*sin(ALF1/180)*pi)/2);,dat(b,1)=xing(1,m);,dat(b,2:8)=LD,Z,a,dd1,dd2,F0,FQ;,. if Z=10;,. set(texth,string,带数大于10，请重新选择数据);,. else;,. set(t,Data,dat);,. end;)button2=uicontrol(H,style,pushbutton,position,875,280,100,50,string,计算下一组数据,fontname,楷体,fontsize,9,callback,. b=b+1;,set(pop1,pop2,pop3,value,1)