哈工大—V帶傳動電算說明書

1、Harbin Institute of Technology課程設(shè)計說明書（論文）課程名稱： 機械設(shè)計電算大作業(yè) 設(shè)計題目： V帶傳動電子計算器 院 系： 機電工程學(xué)院 班 級： 1508502 設(shè) 計 者： 于豪 學(xué) 號： 1150850206 指導(dǎo)教師： 曲建俊 設(shè)計時間： 2017.10,11 哈爾濱工業(yè)大學(xué)一、 電算流程圖二、 用戶界面三、 操作說明（一） 求設(shè)計功率和帶輪轉(zhuǎn)速：在左側(cè)輸入框中依次輸入電機功率、電機轉(zhuǎn)速、第一級傳動比，并選擇工作載荷情況、原動機類型、工作時間，最后勾選特殊工作需求，就可以按“計算設(shè)計功率Pd、帶輪轉(zhuǎn)速n1”鍵進行一次計算。（二） 確定V帶類型：根據(jù)所求的

2、設(shè)計功率和轉(zhuǎn)速，在中央的表中找到對應(yīng)的V帶類型，并勾選對應(yīng)類型的帶輪。這時會出現(xiàn)對應(yīng)的帶輪系列直徑。（三） 確定小帶輪和大帶輪直徑：在帶輪系列中選擇一個小帶輪直徑填入右側(cè)輸入框。若V帶速度合理，則在下方結(jié)果處輸出大輪小輪直徑；若V帶速度大于最大V帶速度，則在提示欄提示“choose dd1 again”。（四） 確定中心距和實際基準長度：利用上一步中得出的中心距范圍，在輸入框中填入初步中心間距，求出初步基準長度。查書上實際基準長度表，獲得實際基準長度和對應(yīng)的帶長修正系數(shù)，填入右下的輸入框中。（五） 輸出剩余結(jié)果：按下輸出結(jié)果按鈕，計算器自動輸出V帶設(shè)計中需要的所有參數(shù)到下方的結(jié)果顯示表中，完成

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);%在窗口打開同時完成下列數(shù)據(jù)輸入global data_KA;%將 KA數(shù)值存入數(shù)組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; %將小帶輪系列直徑存入數(shù)組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數(shù)值存入數(shù)組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、帶輪單位質(zhì)量數(shù)值存入數(shù)組

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;%調(diào)用已經(jīng)存好的全局數(shù)組global Pd KA n1 i;%聲明設(shè)計功率Pd、轉(zhuǎn)速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'); %獲得工作環(huán)境及特殊條件KA = data_KA(workstress,machinekind,worktime);%通過已知工作環(huán)境確定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'); %獲得輸入的電機轉(zhuǎn)速i = str2double(get(handles.edit6,'string'); %獲得輸入的傳動比P

18、d = P * KA; %計算設(shè)計功率set(handles.text14,'String', Pd);set(handles.text16,'String', n1); %輸出設(shè)計功率和帶輪轉(zhuǎn)速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帶類型對應(yīng)的小帶輪系列直徑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);%根據(jù)輸入的初步中心距計算初步基準長度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)%確定帶輪包角修正系數(shù) 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);%確定傳動比修正系數(shù)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