哈工大 机械设计电算.docx
- 文档编号:2450527
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:14
- 大小:1.04MB
哈工大 机械设计电算.docx
《哈工大 机械设计电算.docx》由会员分享,可在线阅读,更多相关《哈工大 机械设计电算.docx(14页珍藏版)》请在冰豆网上搜索。
哈工大机械设计电算
HarbinInstituteofTechnology
上机电算说明书
课程名称:
机械设计电算
电算题目:
普通V带传动设计
院系:
机电学院
班级:
1208107
设计者:
学号:
指导教师:
设计时间:
2014.12.03
哈尔滨工业大学
目录
一普通V带传动设计内容和任务…………………………………………1
二变量标示符……………………………………………………………………….1
三程序框图…………………………………………………………………………...1
四源程序代码………………………………………………………………………..2
五程序运行结果……………………………………………………………………8
六参考文献………………………………………………………………………….13
一、普通V带传动设计内容和任务
1、普通V带传动设计内容
给定原始数据:
传递的功率P,小带轮转速n1,传动比i,各种必要的修正系数及工作条件。
设计内容:
带型号,基准长度Ld,根数Z,传动中心距a,小带轮基准直径dd1、大带轮基准直径dd2,初拉力F0,和压轴力Q,带轮轮缘宽度B。
2、电算的任务:
(1)编制V带传动设计程序框图。
(2)编制V带传动设计原程序。
(3)按习题或作业中数据运行程序,进行计算并输出所有结果。
二、变量标识符
序号
名称
代号
标识符
单位
1
名义功率
P
P
kw
2
设计功率
Pd
Pd
kw
3
工作情况系数
KA
KA
4
小带轮转速
n1
n1
r/min
5
工作机载荷特性
GZJ
6
原动机类型
YDJ
7
工作时间
TMIE
8
带型号
Z、A…E
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
小带轮包角
α1
ALF1
度
17
V带根数
Z
Z
18
基本额定功率
P0
P0
kw
19
功率增量
ΔP0
DIFP0
kw
20
传动比系数
Ki
Ki
21
长度系数
KL
KL
22
包角系数
Kα
Kalf
23
弯曲影响系数
Kb
Kb
24
初拉力
F0
F0
N
25
压轴力
Q
Q
N
26
轮缘宽度
B
B
mm
27
圆周率
π
PAI
三、程序框图
四、程序源代码(MATLAB语言编写)
源程序所有程序过多,所以只附上主程序代码
i=str2double(get(handles.In_i,'String'));
ifi>=2
Ki=1.1373;
elseifi>=1.52
Ki=1.1202;
elseifi>=1.35
Ki=1.1036;
elseifi>=1.25
Ki=1.0875;
elseifi>=1.19
Ki=1.0719;
elseifi>=1.13
Ki=1.0567;
elseifi>=1.09
Ki=1.0419;
elseifi>=1.05
Ki=1.0276;
elseifi>=1.02
Ki=1.0136;
elseifi>=1
Ki=1.0000;
end
set(handles.Out_Ki,'String',num2str(Ki));
dx=get(hObject,'Value')
ifdx==1
set(handles.Out_Vmax,'String',25);
set(handles.Out_Kb,'String',0.0002925);
set(handles.Out_ddmin,'String',50);
set(handles.Out_m,'String',0.06);
elseifdx==2
set(handles.Out_Vmax,'String',25);
set(handles.Out_Kb,'String',0.0007725);
set(handles.Out_ddmin,'String',75);
set(handles.Out_m,'String',0.1);
elseifdx==3
set(handles.Out_Vmax,'String',25);
set(handles.Out_Kb,'String',0.0019875);
set(handles.Out_ddmin,'String',125);
set(handles.Out_m,'String',0.17);
elseifdx==4
set(handles.Out_Vmax,'String',25);
set(handles.Out_Kb,'String',0.005625);
set(handles.Out_ddmin,'String',200);
set(handles.Out_m,'String',0.3);
elseifdx==5
set(handles.Out_Vmax,'String',30);
set(handles.Out_Kb,'String',0.01995);
set(handles.Out_ddmin,'String',355);
set(handles.Out_m,'String',0.6);
elseifdx==6
set(handles.Out_Vmax,'String',30);
set(handles.Out_Kb,'String',0.03735);
set(handles.Out_ddmin,'String',500);
set(handles.Out_m,'String',0.9);
end
dd1=str2double(get(handles.In_dd1,'String'));
n=str2double(get(handles.In_n,'String'));
Vmax=str2double(get(handles.Out_Vmax,'String'));
v=3.1415*dd1*n/60/1000;
i=str2double(get(handles.In_i,'String'));
ddd2=i*dd1;
set(handles.Out_v,'String',num2str(v));
set(handles.dd2,'String',num2str(ddd2));
ifv>Vmax
set(handles.Attention,'String','“v”istoohuge.Pleasedecreasedd1!
');
else
set(handles.Attention,'String','OK!
Pleasegoon!
');
end
dd1=str2double(get(handles.In_dd1,'String'));
dd2=str2double(get(handles.In_dd2,'String'));
a0=str2double(get(handles.In_a0,'String'));
Ld0=2*a0+3.1415*(dd1+dd2)/2+(dd2-dd1)^2/(4*a0);
set(handles.Out_Ld0,'String',num2str(Ld0));
Ld=str2double(get(handles.In_Ld,'String'));
Ld0=str2double(get(handles.Out_Ld0,'String'));
a0=str2double(get(handles.In_a0,'String'));
dd1=str2double(get(handles.In_dd1,'String'));
dd2=str2double(get(handles.In_dd2,'String'));
a=a0+(Ld-Ld0)/2;
alf1=180-(dd2-dd1)/a*57.3;
set(handles.Out_a,'String',num2str(a));
set(handles.Out_alf1,'String',num2str(alf1));
dx=get(handles.Out_dx,'Value')
Ki=str2double(get(handles.Out_Ki,'String'));
Kb=str2double(get(handles.Out_Kb,'String'));
n=str2double(get(handles.In_n,'String'));
dd1=str2double(get(handles.In_dd1,'String'));
v=str2double(get(handles.Out_v,'String'));
ifdx==1
K1=0.246;
K2=7.44;
K3=0.441/10000;
elseifdx==2
K1=0.449;
K2=19.02;
K3=0.765/10000;
elseifdx==3
K1=0.794;
K2=50.6;
K3=1.31/10000;
elseifdx==4
K1=1.48;
K2=143.2;
K3=2.34/10000;
elseifdx==5
K1=3.15;
K2=507.3;
K3=4.77/10000;
elseifdx==6
K1=4.57;
K2=951.5;
K3=7.06/10000;
end
P0=(K1*v^(-0.09)-K2/dd1-K3*v^2)*v;
set(handles.Out_P0,'String',num2str(P0));
DP0=Kb*n*(1-1/Ki);
set(handles.Out_DP0,'String',num2str(DP0));
functionOut_P0_Callback(hObject,eventdata,handles)
Pd=str2double(get(handles.Out_Pd,'String'));
P0=str2double(get(handles.Out_P0,'String'));
DP0=str2double(get(handles.Out_DP0,'String'));
Kalf=str2double(get(handles.Out_Kalf,'String'));
Kl=str2double(get(handles.Out_Kl,'String'));
v=str2double(get(handles.Out_v,'String'));
m=str2double(get(handles.Out_m,'String'));
alf1=str2double(get(handles.Out_alf1,'String'));
Z1=Pd/((P0+DP0)*Kalf*Kl);
Z=ceil(Z1);
F0=500*P
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 哈工大 机械设计电算 机械设计 电算