哈工大—V带传动电算说明书

1、Harbin Institute of Technology课程设计说明书（论文）课程名称： 机械设计电算大作业 设计题目： V带传动电子计算器 院 系： 机电工程学院 班 级： 1508502 设 计 者： 于豪 学 号： 1150850206 指导教师： 曲建俊 设计时间： 2017.10,11 哈尔滨工业大学一、 电算流程图二、 用户界面三、 操作说明（一） 求设计功率和带轮转速：在左侧输入框中依次输入电机功率、电机转速、第一级传动比，并选择工作载荷情况、原动机类型、工作时间，最后勾选特殊工作需求，就可以按“计算设计功率Pd、带轮转速n1”键进行一次计算。（二） 确定V带类型：根据所求的

2、设计功率和转速，在中央的表中找到对应的V带类型，并勾选对应类型的带轮。这时会出现对应的带轮系列直径。（三） 确定小带轮和大带轮直径：在带轮系列中选择一个小带轮直径填入右侧输入框。若V带速度合理，则在下方结果处输出大轮小轮直径；若V带速度大于最大V带速度，则在提示栏提示“choose dd1 again”。（四） 确定中心距和实际基准长度：利用上一步中得出的中心距范围，在输入框中填入初步中心间距，求出初步基准长度。查书上实际基准长度表，获得实际基准长度和对应的带长修正系数，填入右下的输入框中。（五） 输出剩余结果：按下输出结果按钮，计算器自动输出V带设计中需要的所有参数到下方的结果显示表中，完成

3、一次计算。四、 电子计算器代码function varargout = trymechanicaldesign(varargin)gui_Singleton = 1;gui_State = struct('gui_Name', mfilename, . 'gui_Singleton', gui_Singleton, . 'gui_OpeningFcn', trymechanicaldesign_OpeningFcn, . 'gui_OutputFcn', trymechanicaldesign_OutputFcn, . '

4、gui_LayoutFcn', , . 'gui_Callback', );if nargin && ischar(varargin1) gui_State.gui_Callback = str2func(varargin1);endif nargout varargout1:nargout = gui_mainfcn(gui_State, varargin:);else gui_mainfcn(gui_State, varargin:);end% End initialization code - DO NOT EDIT%GUI自动生成的打开窗口准备程

5、序function trymechanicaldesign_OpeningFcn(hObject, eventdata, handles, varargin)handles.output = hObject;guidata(hObject, handles);%在窗口打开同时完成下列数据输入global data_KA;%将 KA数值存入数组for a=1:4for b=1:3for c=1:2 data_KA(a,b,c)=0;endendenddata_KA(:,:,1)=1.0,1.1,1.2;1.1,1.2,1.3;1.2,1.3,1.4;1.3,1.4,1.5;data_KA(:,:

6、,2)=1.1,1.2,1.3;1.2,1.3,1.4;1.4,1.5,1.6;1.5,1.6,1.8;global data_dd1; %将小带轮系列直径存入数组for a = 1:6for b = 1:4 data_dd1(a,b)=0;endenddata_dd1(1,:)=50 63 71 80;data_dd1(2,:)=75 90 100 125;data_dd1(3,:)=125 140 160 180;data_dd1(4,:)=200 250 315 400;data_dd1(5,:)=355 400 450 500;data_dd1(6,:)=500 560 630 710

7、;global data_Kb data_K1 data_K2 data_K3; %将 Kb、K1、K2、K3数值存入数组data_Kb = 0.2925 0.7725 1.9875 5.625 19.95 37.35*10(-3);data_K1 = 0.246 0.449 0.794 1.48 3.15 4.57;data_K2 = 7.44 19.02 50.6 143.2 507.3 951.5;data_K3 = 0.441 0.765 1.31 2.34 4.77 7.06*10(-4);global data_e data_f data_m; 将 e、f、带轮单位质量数值存入数组

8、data_e = 12 15 19 25.5 37 44.5;data_f = 8 10 12.5 17 23 29;data_m = 0.023 0.06 0.105 0.17 0.30 0.63 0.97;function varargout = trymechanicaldesign_OutputFcn(hObject, eventdata, handles) varargout1 = handles.output;function edit1_Callback(hObject, eventdata, handles)function edit1_CreateFcn(hObject, e

9、ventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction edit2_Callback(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundCo

10、lor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction edit2_CreateFcn(hObject, eventdata, handles)function edit6_Callback(hObject, eventdata, handles)function edit6_CreateFcn(hObject, eventdata, handles)if ispc && isequ

11、al(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction edit7_Callback(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBack

12、groundColor') set(hObject,'BackgroundColor','white');endfunction popupmenu1_Callback(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white

13、9;);endfunction popupmenu1_CreateFcn(hObject, eventdata, handles)function popupmenu2_Callback(hObject, eventdata, handles)function popupmenu2_CreateFcn(hObject, eventdata, handles)function popupmenu3_Callback(hObject, eventdata, handles)function popupmenu3_CreateFcn(hObject, eventdata, handles)if is

14、pc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction checkbox1_Callback(hObject, eventdata, handles)function checkbox2_Callback(hObject, eventdata, handles)function checkbox3_

15、Callback(hObject, eventdata, handles)function pushbutton2_Callback(hObject, eventdata, handles)global data_KA;%调用已经存好的全局数组global Pd KA n1 i;%声明设计功率Pd、转速n1、传动i、KA为全局变量workstress = get(handles.popupmenu1,'value');machinekind = get(handles.popupmenu2,'value');worktime = get(handles.popu

16、pmenu3,'value'); specialcondition1 = get(handles.checkbox1,'value');specialcondition2 = get(handles.checkbox2,'value');specialcondition3 = get(handles.checkbox3,'value'); %获得工作环境及特殊条件KA = data_KA(workstress,machinekind,worktime);%通过已知工作环境确定KAif specialcondition1 = 1%如

17、果有特殊工作要求则KA乘上1.1。 KA = 1.1*KA;elseif specialcondition2 = 1 KA = 1.1*KA;elseif specialcondition3 =1 KA = 1.1*KA;endP = str2double(get(handles.edit1,'string');%获得输入的电机功率n1 = str2double(get(handles.edit2,'string'); %获得输入的电机转速i = str2double(get(handles.edit6,'string'); %获得输入的传动比P

18、d = P * KA; %计算设计功率set(handles.text14,'String', Pd);set(handles.text16,'String', n1); %输出设计功率和带轮转速function uibuttongroup1_SelectionChangedFcn(hObject, eventdata, handles)global data_dd1;global vmax;global beltkind;%声明或定义新的全局变量switch get(hObject,'tag') %获得选择的V带种类并确定最大速度限制 case

19、 'radiobutton1' beltkind = 1; vmax = 25; set(handles.text53,'string','Z') case 'radiobutton2' beltkind = 2; vmax = 25; set(handles.text53,'string','A') case 'radiobutton3' beltkind = 3; vmax = 25; set(handles.text53,'string','B'

20、) case 'radiobutton4' beltkind = 4; vmax = 25; set(handles.text53,'string','C') case 'radiobutton5' beltkind = 5; vmax = 30; set(handles.text53,'string','D') case 'radiobutton6' beltkind = 6; vmax = 30; set(handles.text53,'string','

21、E')endset(handles.text19,'string',data_dd1(beltkind,:);%输出所选V带类型对应的小带轮系列直径function edit9_Callback(hObject, eventdata, handles)function edit9_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor

22、') set(hObject,'BackgroundColor','white');endfunction pushbutton4_Callback(hObject, eventdata, handles)global dd1 dd2 n1 i v vmax;dd1 = str2double(get(handles.edit9,'string');%得到所选的小带轮直径dd2 = i * dd1;%计算得到大带轮直径v = pi * dd1 * n1 / 60 /1000;%计算速度if v>vmax%检验带轮速度 set(hand

23、les.text33,'string','choose dd1 again');else dd2 = round(dd2); set(handles.text25,'string',dd1); set(handles.text27,'string',dd2); amax = 2* (dd1 + dd2); amin = 0.7* (dd1 + dd2); set(handles.text36,'string',amax); set(handles.text34,'string',amin);endf

24、unction edit10_Callback(hObject, eventdata, handles)function edit10_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfunction edit10_KeyP

25、ressFcn(hObject, eventdata, handles)function edit11_Callback(hObject, eventdata, handles)function edit11_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor',

26、9;white');endfunction edit12_Callback(hObject, eventdata, handles)function edit12_CreateFcn(hObject, eventdata, handles)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor') set(hObject,'BackgroundColor','white');endfu

27、nction pushbutton6_Callback(hObject, eventdata, handles)global dd1 dd2 ;a0 = str2double(get(handles.edit10,'string');Ld0 = 2*a0 +pi*(dd1+dd2)/2+(dd1-dd2)2/4/a0;set(handles.text38,'string',Ld0);%根据输入的初步中心距计算初步基准长度function pushbutton5_Callback(hObject, eventdata, handles)global dd1 dd2

28、 n1 i v Pd data_m;global beltkind data_Kb data_K1 data_K2 data_K3 ;global data_e data_f;Ld = str2double(get(handles.edit11,'string');%获得实际基准长度a = round(2*Ld - pi*(dd1+dd2) + (2*Ld-pi*(dd1+dd2)2-8*(dd2-dd1)2)(1/2)/8);set(handles.text29,'string',a);set(handles.text31,'string',L

29、d);%输出实际基准长度和中心距ALF1 =180 - (dd2-dd1)*57.3/a;%计算小带轮包角set(handles.text42,'string',ALF1);%输出小带轮包角switch round(ALF1/10)%确定带轮包角修正系数 case 22 KALF = 1.2; case 21 KALF = 1.15; case 20 KALF = 1.10; case 19 KALF = 1.05; case 18 KALF = 1; case 17 KALF = 0.98; case 16 KALF = 0.95; case 15 KALF = 0.92;

30、case 14 KALF = 0.89; case 13 KALF = 0.86; case 12 KALF = 0.82; case 11 KALF = 0.78; case 10 KALF = 0.74; case 9 KALF = 0.69; endi = round(i,2);%确定传动比修正系数if i <=1.01&& i >=1 Ki = 1;elseif i <=1.04&& i >=1.02 Ki = 1.0136;elseif i <=1.08&& i >=1.05 Ki = 1.0276;elseif i <=1.12&& i >=1.09 Ki = 1.0419;elsei