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

1、机械设计电算大作业 题 目 V带传动电算设计 专 业 学 号 学 生 指 导 教 师 一、V带传动设计程序框图a1=0.7(dd1+dd2)，a2=2(dd1+dd2)输入初估中心距a0,计算 Ld0Add2= 查标准带轮直径表确定dd2YVVmax ?根据型号确定最大带速Vmax，额定功率P0中系数K1,K2,K3，弯曲影响系数KbV=输出该型号带轮系列直径，选择输入小带轮基准直径dd1输入带型号查表求传动比系数Ki查KA, 计算Pd，选型查表求KA, 计算Pd输入P, n1, i输入各原始数据减小直径B查标准长度确定Ld，同时查取KL，计算实际中心距aA计算小带轮包角查表确定包角系数计算P

2、o，Z10 ?计算Fo, Q,B ( 取整)输出结果计算下一型号带 ？结束计算下一种带轮直径？YYYNNNNB2、 V带设计传动设计源程序 见报告后附：V带设计源程序3、 数据计算及结果示例 1、方案5.1.12、方案5.1.24、 结果分析 方案5.1.2：A型，大带轮200mm、小带轮100mm，带轮直径小，占用空间少，带根数为5较少，经济性好，初拉力116N，较为合适，且带轮基准长度Ld为1120mm较短，故为9种方案中的最佳方案。V带设计源程序1、模块程序% 选择vmaxfunction vmax=csvmax(type)if(type5&type=7) vmax=30;endEnd%

3、 选择mfunction 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;endEnd% 选择Ldfunction 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

4、= 5000;for i=1:29 Dv=abs(l0(i)-Ld0); if Dv1.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; endEnd% 选择Kbfun

5、ction Kb=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_alpfunction K_alp=csK_alp(alp)alp=250alp1=220,210,200,190,180,170,160,150,140,130,120,110,100,90K_alp1=1.2,1.15,

6、1.1,1.05,1,0.98,0.95,0.92,0.89,0.86,0.82,0.78,0.73,0.68L_DV=500;for i=1:14 Dv=abs(alp1(i)-alp); if Dv=L_DV K_alp=K_alp1(i); end L_DV=Dv;endEnd% 选择KLfunction KL=csKL(Ld,type)switch type case 2 %Z型带 switch Ld case 400 KL=0.87; case 450 KL=0.89; case 500 KL=0.91; case 560 KL=0.94; case 630 KL=0.96; cas

7、e 710 KL=0.99; case 800 KL=1.00; case 900 KL=1.03; case 1000 KL=1.06; case 1120 KL=1.08; case 1250 KL=1.10; case 1400 KL=1.14; case 1600 KL=1.16; case 1800 KL=1.18; end if Ld1800 KL=0; end case 3 %A型带 switch Ld case 630 KL=0.81; case 710 KL=0.83; case 800 KL=0.85; case 900 KL=0.87; case 1000 KL=0.89

8、; case 1120 KL=0.91; case 1250 KL=0.93; case 1400 KL=0.96; case 1600 KL=0.99; case 1800 KL=1.01; case 2000 KL=1.03; case 2240 KL=1.06; case 2500 KL=1.09; case 2800 KL=1.11; case 3150 KL=1.13; case 3550 KL=1.17; case 4000 KL=1.19; end if Ld4000 KL=0; end case 4 %B型带 switch Ld case 800 KL=0.82; case 9

9、00 KL=0.84; case 1000 KL=0.86; case 1120 KL=0.88; case 1250 KL=0.90; case 1400 KL=0.92; case 1600 KL=0.95; case 1800 KL=0.98; case 2000 KL=1.00; case 2240 KL=1.03; case 2500 KL=1.05; case 2800 KL=1.07; case 3150 KL=1.09; case 3550 KL=1.13; case 4000 KL=1.15; case 4500 KL=1.18; end if Ld4500 KL=0; en

10、d case 5 %C型带 switch Ld case 900 KL=0.83; case 1000 KL=0.86; case 1120 KL=0.88; case 1250 KL=0.91; case 1400 KL=0.93; case 1600 KL=0.95; case 1800 KL=0.97; case 2000 KL=0.99; case 2240 KL=1.02; case 2500 KL=1.04; case 2800 KL=1.07; case 3150 KL=1.09; case 3550 KL=1.12; case 4000 KL=1.15; case 4500 K

11、L=1.18; case 5000 KL=1.21; end if Ld900 KL=0; end case 6 %D型带 switch Ld case 1000 KL=0.83; case 1120 KL=0.86; case 1250 KL=0.89; case 1400 KL=0.91; case 1600 KL=0.93; case 1800 KL=0.96; case 2000 KL=0.98; case 2240 KL=1.00; case 2500 KL=1.03; case 2800 KL=1.06; case 3150 KL=1.08; case 3550 KL=1.11;

12、case 4000 KL=1.14; case 4500 KL=1.17; case 5000 KL=1.20; end if Ld=vmax errordlg(小带轮直径过大，请重新输入,Error); set(handles.edit7, String, );else dd2,a1,a2=ccdd2(i,dd1); set(handles.edit12,String,a1); set(handles.edit13,String,a2);Endfunction pushbutton4_Callback(hObject, eventdata, handles)global t t=t+1; s

13、et(handles.edit7, String,); set(handles.edit10, String,); set(handles.edit12, String,);set(handles.edit13, String,);function popupmenu7_Callback(hObject, eventdata, handles);global typetype = get(hObject,Value);function popupmenu7_CreateFcn(hObject, eventdata, handles)if ispc & isequal(get(hObject,B

14、ackgroundColor), get(0,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);end function edit10_Callback(hObject, eventdata, handles)global a0a0 = str2double(get(hObject,String);function edit10_CreateFcn(hObject, eventdata, handles)if ispc & isequal(get(hObject,BackgroundColor), get(0

15、,defaultUicontrolBackgroundColor) set(hObject,BackgroundColor,white);Endfunction pushbutton8_Callback(hObject, eventdata, handles)global dd1 global dd2 global a0 global Ld global KL global type global a global alp global K_alp global P0 global derP0 global K1 global K2global K3 global v global Kb gl

16、obal n global Ki global Z global Pd global FQ global F0 global B global m global t global op global q global TypeLd0=ccLd0(dd1,dd2,a0);Ld=csLd(Ld0);KL=csKL(Ld,type);a=cca(a0,Ld,Ld0);alp=ccalp(dd2,dd1,a);K_alp=csK_alp(alp);P0,derP0=ccP0derP0(K1,K2,K3,dd1,v,Kb,n,Ki);Z=ccZ(Pd,P0,derP0,KL,K_alp);Type=ou

17、tputType(type); if Z=10 errordlg(V带根数过多，请重新选择带型号,Error); set(handles.edit7, String,); set(handles.edit10, String,); set(handles.edit9, String,); set(handles.edit12, String,); set(handles.edit13, String,); t=1; op=zeros(3,8); else m=csm(type); F0,FQ,B=cclast(Pd,K_alp,m,v,Z,alp,type); op=output(Ld,Z,a

18、,dd1,dd2,B,F0,FQ,t,op); if q=1 set(handles.uitable1,Data,op); set(handles.edit14,String,Type); endif q=2 set(handles.uitable5,Data,op); set(handles.edit16,String,Type);endif q=3 set(handles.uitable6,Data,op); set(handles.edit17,String,Type);endend function pushbutton9_Callback(hObject, eventdata, handles)global q global op global t t=1;q=q+1; set(handles.edit7, String,); set(handles.edit10, String,); set(handles.edit9, String,); set(handles.edit12, String,); set(handles.edit13, String,);op=zer