(完整word版)机械设计普通V带设计电算程序(word文档良心出品)

1、普通 V 带传动 GUI 设计说明书 题目 V带传动GUI设计 系别： 机电工程学院 班号： 1008102 学号： 1100800418 姓名： 陈丁 日期： 2012 年 10 月 16 一、 普通 V带传动设计内容和任务 1、 普通V带传动设计内容 给定原始数据：传递的功率P,小带轮转速n1，传动比i，工作条件。 设计内容：带型号，基准长度Ld，根数Z,传动中心距a,小带轮基准直径ddl、 大带轮基准直径dd2，初拉力F0，和压轴力Q,带轮轮缘宽度B。 2、 电算的任务： （1） 编制V带传动设计程序框图。 （2） 编制V带传动设计原程序。 （3） 按习题或作业中数据运行程序，进行计算并

2、输出所有结果。 二、 变量标识符 序号 名称 代号 标识符 单位 1 P 名义功率 P P kw 2 设计功率 Pd Pd kw 3 工作情况系数 KA KA 4 小带轮转速 n1 n1 r/mi n 5 工作机载荷特性 GZJ 6 原动机类型 YDJ 7 P 工作时间 TMIE 8 带型号 Z、AE TYPE 9 小带轮基准直径 dd1 dd1 mm 10 大带论基准直径 dd2 dd2 mm 11 带速 v V m/s 12 最大带速 Vmax VMAX m/s 13 预估中心距 a0 a0 mm 14 实际中心距 a a mm 15 基准长度 Ld Ld mm 16 小带轮包角 a1 A

3、LF1 度 17 V带根数 Z Z 18 基本额定功率 P0 P0 kw 19 功率增量 P DIFP0 kw 20 传动比系数 Ki Ki 21 长度系数 KL KL 22 包角系数 Ka KALF 23 弯曲影响系数 Kb Kb 24 初拉力 F0 F0 N 25 压轴力 Q Q N 26 轮缘宽度 B B mm 27 圆周率 n PAI 28 环境判断 X X 29 功能变量 C、E C、E 三、程序框图 开始 输入原始数据 P,n,i并选择电 计算设计功率 确定带型 由带型号确定最大带 速，小带轮直径系，带 的相关参数m，f, e相 计算带根数 选择小带轮直 径 计算相关1 结束k 本

4、程序应该在 matlab2012Ra 中运行 本程序使用很简单，可以对普通v带进行简单的设计，实现了自动化，使用 者只需根据用户界面提示信息进行数据输入后按确定键就可进行相应的 V带设 计。根据计算，程序会提醒用户在若干推荐值中选取小带轮直径， 并自动提示用 户获取与理论大带轮值接近的值， 提供中心距初始范围，即可算出所需结果，若 不合格则可进行重复计算，也可进行在相同初始条件下地带轮重新计算。 特殊功能：界面简洁，不用频繁切换即可完成，所有参数均显示在界面上， 可以清楚的显示计算结果的，自动查找各种必要的修正系数。 五、结果比较 三种带型各三种直径共九个计算结果如下: 根据计算结果可以看到，

5、九组结果中，A型带的F0值偏小，FQ值随型号增加而 减小，Z值也随型号和小带轮直径增加而减小，到 C型带时，Z已接近于1。综 合小带轮大小和受力大小，选择 A型带中小带轮直径为 125mm，中心距为 500mm为设计尺寸。四、使用说明 E VSiiit.lST.tlOOBCOJM 額定W卑苗W 电动机转迥niinj 传动出， 厂 - 选择工作机载商情况 栽荷平稳 ” % / / / / 孑 1 rn 一二二 n 二 Km 噩舉謝鑑覆盟盂益:? E E u ul lu uN Ne e7 7: :itititit窖斗 iHU屮心孫aOsSffi 840 =a0=2400 帯型逸样 匸，十叶 近進擡

6、顶动机夹型 普通V帝 匕 豆准话安Em 祜电欖 1 中电柜 MHrnrrO 小氓槿曲丄raKliddZ ! 4SKB 加力 F& ( N : 5 庄力 FQ ( N : I Panel I类型冲电兀 原动机日工作时何何天 卜代 頁动机工世场合 KiU- 第=种 带型 IMd g Md 谱 M21 1912J y 12S4J E m m 95 ilMZSSS 1&SS.T W 4 5 m 254 &5 谣耐 13246 Ba* 14M 3 144 刚 S3 21Z4442 1251.2 BS am 2 iH 31S 44 l&H.S 2SM 2 l d u 244

7、1&B1 Cfll1 2m 1 m 妙 u FFOB-1 caw 11 lOU 34 347 25M 63624 5* 5CHM 1 m 334.9311! 计声下一型号帝 荒菲结果 廿算下一帯轮直栓 计算过程截图显示: BJ main 1 CD X KH = V带设计 姓名： 陈丁 学号： 11008004 L 已知誥羞 -工柞 rr 崟 fj LffiP Jy. 选工作机载荷情况 -斤劭 载荷平稳 载荷平稳 确定 载荷变动小 载荷变动较大 载荷变动很大 选选择原动机类型 I类甄电机 - I类型原电机 II类型原电机 ! !_! 原动机日工作时间（M天） -提示隹总 - 请根据设计功

8、率 Pd和带 轮转速n,通过昔通V带 选型图选择V带带型 请合理选择大带轮直径 小带轮直径:dd1二 125 理 i仑大带轮直径 dd2二 250 P現不乞邑 - 初估中心距 a0范围 840 = aOv 二 2400带轮转速n （/min） 960 原动机工作场合 爻复起动 Q请域入 262.5=a00 Ka = 1.1*Ka ; end Pd = Ka*P; set(handl es.Pd,string,num2str(Pd); set(handl es.n1,string,get(handles.n,string);% 显示带轮转速的值 set(handl es.tip,string,请

9、根据设计功率 Pd 和带轮转速 n,通过普通 V 带选型图选择 V 带带 型,Fo ntsize,12); axis(handles.axes1); I=imread( 普通 V 带选型图 .png); else %设计功率 %显示设计功率的值 imshow(l);%显示 V 带选型图 function TYPE_Callback(hObject, eventdata, handl es) global type type1 = get(hObject,Value); TypeStr = get(hObject, string); type = TypeStr(type1);% 工作机类型 s

10、witch(type1) case 1 %Y 型带的小带轮直径 set(handl es.DD1,String,20 28 35.5 40); case 2 %Z 型带的小带轮直径 set(handl es.DD1,String,50 63 71 80); case 3 %A 型带的小带轮直径 set(handl es.DD1,String,75 90 100 125); case 4 %B 型带的小带轮直径 set(handl es.DD1,String,125 140 160 180); case 5 %C 型带的小带轮直径 set(handl es.DD1,String,200 250

11、315 400); case 6 %D 型带的小带轮直径 set(handl es.DD1,String,355 400 450 500); otherwise %E 型带的小带轮直径 set(handl es.DD1,String,500 560 630 710); end function TlME_Callback(hObject, eventdata, handl es) TlME = get(hObject,Value); % 一天的工作时间( h) function YDJ_Callback(hObject, eventdata, handles) YDJ = get(hObjec

12、t,Value); % 原动机类型 function sure2_Callback(hObject, eventdata, handl es) set(handl es.tip,String, 请设置原动机参数 ,Fontsize,12); function sure1_Callback(hObject, eventdata, handl es) set(handl es.tip,String, 请设置工作机参数 ,Fontsize,12); function sure4_Callback(hObject, eventdata, handl es) % 确定键后边运行的代码 global VM

13、AX dd1 i dd2 v m n m = get(handles.TYPE,Value); n = get(handles.DD1,Value); if (m = 6) | (m = 7) VMAX = 30; else VMAX = 25; end all_dd1 = str2num(get(handles.DD1,string); dd1 = all_dd1(n);% 小带轮直径 v = pi*d d1*str2d ouble(get(handles.n1,string)/(60*1000);% 带的速度 if (vVMAX) dd2 = i * dd1; % 计算的大带轮直径 str

14、1 = 请合理选择大带轮直径 ,小带轮直径 :dd1 = num2str(d d1), 理论大带轮直径 = num2str(d d2); set(handl es.tip,String,str1); else errordlg( 减小直径 , 错误 ); end rd2 = 20; 28; 31.5; 35.5; 40; 45; 50; 56; 63; 71; 80; 90; 100; 112; 125; 140; 150; 160; 180; 200; 224; 250; 280; 315; 355; 400; 425; 450; 500; 560; 600; 630; 710; 800;%

15、 标准供选择的大带轮直径 set(handl es.DD2,string,rd2); % 代码 function sure5_Callback(hObject, eventdata, handl es) global dd1 dd2 rdd2 m i n1 Pd n v Ld z a0 B F0 FQ Kl KP0 rdd2_index = get(handles.DD2,value); all_rdd2 = get(handles.DD2,string); b =str2num(all_rdd2); rdd2 = b(rd d2_index);% 大带轮直径 flag = 1; if (ab

16、s(rdd2/dd2-1) 0.05) % 传动比误差不小于 5 ，否则弹出出错对话框 a1 = 0.7*(dd1 + dd2); a2 = 2*(d d1 + dd2); set(handl es.tip,string, 初 估 中 心 距 a0 范 围 , num2str(a1) = a0 num2str(a2),fontsize,12); else errordlg( 传动比误差不小于 5% ，请重新选择 ,错误 ); flag = 0; a1 = 0.7*(dd1 + dd2); a2 = 2*(d d1 + dd2); end if (flag =1) %弹出输入初估的中心距 a0，

17、计算带的基准长度 LdO ;再查表确定 Ld a0= inputdlg( num2str(a1) = a0 = num2str(a2), 请输入初估计的中心距 a0); aO = str2num(aO1);% 初估计的中心距 aO :dd2 =2) flag = 1O; elseif(i=1.52) flag = 9; elseif (i=1.35) flag = 8; elseif(i=1.25) flag = 7; elseif (i=1.19) flag = 6; elseif(i=1.13) flag = 5; elseif (i=1.O9) flag = 4; elseif(i=1.

18、O5) flag = 3; elseif (i=1.O2) flag = 2; else flag =1; end Ki = Ki1(flag);% 传动比系数 DIFP0 = Kb*n1*(1-1/Ki);% 功率增量 HKP0 = 100 200 400 700 800 950 1200 1450 1600 带基 2000 2400 2800 3200 3600 4000 4500 5000 5500 6000; , IDEX = min(abs(HKP0-n1); P0 = KP0(m-1)*4+n+1,IDEX+1);% 实际功率 z1 = Pd/(DIFP0+P0)*KL*Kalf)

19、; % 实际计算带的根数 z = ceil(z1); % 对带的根数向上取整 e = 8 12 15 19 25.5 37 44.5; % 普通 V 带轮槽剖面尺寸 e 数据 f = 7 8 10 12.5 17 23 29; %普通 V 带轮槽剖面尺寸 f 数据 B=(z-1)*e(m)+2*f(m); % 普通 V 带轮缘宽度 M1 = 0.02 0.06 0.1 0.17 0.3 0.6 0.9;% 普通 V 单位质量数据 M = M1(m); %V 带单位质量 if (z 10) F0 = 500*Pd/(z*v*Kalf)*(2.5-Kalf) +M*v.A2;% 初拉力 FQ = 2*z*F0*sin( ALF1/360*pi);% 轴压力 else errordlg( 带轮的根数不小于 10) sure3_Callback(hObject, eventdata, handles); end end function jsjg_Callback(hObject, eventdata, ha