哈工大机械设计电算实验matlabWord格式.docx
《哈工大机械设计电算实验matlabWord格式.docx》由会员分享，可在线阅读，更多相关《哈工大机械设计电算实验matlabWord格式.docx（20页珍藏版）》请在冰豆网上搜索。
n1
n
r/min
5
工作机载荷特性
载荷类型
6
原动机类型
7
工作年限
a年b班
8
带型号
V带带型
9
小带轮基准直径
dd1
mm
10
大带论基准直径
dd2
11
带速
v
m/s
12
最大带速
vmax
13
预估中心距
a0
14
基准长度
Ld
ld
15
实际中心距
a
aa
16
小带轮包角
α1
r
度
17
V带根数
Z
z
18
基本额定功率
P0
po
19
功率增量
ΔP0
pp0
20
传动比系数
Ki
ki
21
长度系数
KL
kl
22
包角系数
Kα
ka
23
弯曲影响系数
Kb
kb
24
初拉力
F0
f0
N
25
压轴力
Q
fq
26
轮缘宽度
B
bb
三、程序框图
四、源程序与其说明
程序说明：
本程序用Matlab2010b软件编制，主要针对机械设计大作业上的题型设计。
使用时只要打开m文件，并点击运行，按照提示进行即可。
首先输入原始数据，然后根据自己的需要选择带型，中心距即可得到设计结果，无需再查找资料，方便高效,计算过程如有错误会进行提示，并返回到输入处进行改正。
而且该程序可以直接计算下一带轮直径或者计算下一带型，比较方便。
源程序如下（先复制到记事本，再新建一个m文件，粘贴）
clearall;
disp（'
欢迎使用本程序，请输入V带传动设计的原始数据'
）;
p=input（'
电动机工作功率（kw）P='
n=input（'
电动机满载转速（r/min）nm='
i=input（'
第一级传动比i1='
a=input（'
请输入最短工作工作年限a年b班a='
b=input（'
b='
是否反复起动、正反转频繁或工作条件恶劣'
ka1=input（'
是请输入1，否请输入0。
请输入：
'
原动机类型:
I类原动机包括普通笼型交流电动机，同步电动机，'
直流电动机（并激），n>
=600r/min的内燃机'
）
II类原动机包括交流电动机（双笼型、滑环式、单相、大转差率），'
直流电动机（复激、串激），单缸发动机，n<
d1=input（'
请选择原动机的类型，输入1或2。
请输入:
载荷类型：
1、载荷平稳；
2、载荷变动小；
3、载荷变动较大；
4、载荷变动很大。
e1=input（'
请选择载荷类型请输入:
c=[37103880;
2.29402860;
39603880;
49603880];
ifp==3&
&
n==710
d=38;
e=80;
disp（'
根据您的数据为您选择的电动机为Y132M-8'
elseifp==2.2&
n==940
d=28;
e=60;
根据您的数据为您选择的电动机为Y112M-6'
elseifp==3&
n==960
根据您的数据为您选择的电动机为Y132S-6'
elseifp==4&
根据您的数据为您选择的电动机为Y132M1-8'
else
欢迎继续使用本程序'
end
ka2=[1.01.11.2;
1.11.21.3;
1.21.31.4;
1.31.41.5];
ka3=[1.11.21.3;
1.41.51.6;
1.51.61.8];
ifd1<
=1
k=ka2;
k=ka3;
end
ifka1>
kka=1.1*k（e1,b）;
kka=k（e1,b）;
pd=kka*p;
t2=1;
whilet2==1
z=10;
whilez>
=10
V带带型：
1、Z型:
dd1min=50mm；
2、A型:
dd1min=75mm；
3、B型:
dd1min=125mm'
x=input（'
请输入（1、2、3）来选择带型。
请选择：
x1=[0.2460.4490.794;
7.4419.0250.6;
0.4410.7651.31;
0.29250.77251.9875];
k1=x1（1,x）;
k2=x1（2,x）;
k3=（10^（-4））*x1（3,x）;
kb=10^（-3）*x1（4,x）;
vmax=25;
优选带轮直径系列：
505663718090100'
112125140150160180200'
224250280315355400425'
450500560600630710800'
dd1=input（'
请参考dd1min以及优选系列，输入小带轮基准直径（mm）dd1='
v=pi*dd1*n/60/1000;
whilev>
=vmax
请减小小带轮基准直径dd1'
dd1=input（'
请参考dd1min,重新输入小带轮基准直径（mm）dd1='
v=pi*dd1*n/60/1000;
dd2=round（i*dd1）;
a1=0.7*（dd1+dd2）;
a2=2*（dd1+dd2）;
a1='
disp（a1）;
a2='
disp（a2）;
a0=input（'
已知中心距a1<
=a0<
=a2,请输入a0的值（尽量为整数）。
a0='
whilea0<
a1||a0>
a2
wrong!
您输入的数值不在a1-a2之间，请重新输入'
a0=input（'
请重新输入a0的值（尽量为整数）。
ld=2*a0+pi/2*（dd1+dd2）+（dd1-dd2）^2/4/a0;
kk=[4000.8700;
4500.8900;
5000.9100;
5600.9400;
6300.96...
0.810;
7100.90.830;
8001.000.850.82;
9001.030.870.84;
...
10001.060.890.86;
11201.080.910.88;
12501.100.930.90;
14001.140.960.92;
16001.160.990.95;
18001.181.010.98;
200001.031.00;
224001.061.03;
250001.091.05;
28000...
1.111.07;
315001.131.09;
355001.171.13;
400001.191.15;
4500001.18];
forg=1:
ifld>
=kk（g,1）&
ld<
=kk（g+1,1）
if（ld-kk（g,1））>
=（kk（g+1,1）-ld）
ld1=kk（g+1,1）;
else
ld1=kk（g,1）;
end
break
kl=kk（g,x+1）;
aa=round（a0+（ld-ld1）/2）;
r=180-（dd2-dd1）/aa*57.3;
rr=[2201.20;
2101.15;
2001.10;
1901.05;
1801.00;
1700.98;
1600.95;
1500.92;
1400.89;
1300.86;
1200.82;
1100.78;
1000.73;
900.68];
forii=1:
ifr<
=rr（ii,1）&
r>
=rr（ii+1,1）
ka=rr（ii+1,2）+（r-rr（ii+1,1））/10*（rr（ii,2）-rr（ii+1,2））;
p0=（k1*v^（-0.09）-k2/dd1-k3*v^2）*v;
ifi==1.8
ki=1.1202;
elseifi>
=2
ki=1.1372;
m=[0.060.10.17];
pp0=kb*n*（1-1/ki）;
z=ceil（pd/（p0+pp0）/kl/ka）;
ifz<
f0=500*pd/z/v*（2.5-ka）/ka+m（x）*v^2;
fq=2*z*f0*sin（r/2/180*pi）;
bb=round（（z-1）*15+20）;
所选原动机种类：
ifd1==1
I类原动机'
II类原动机'
所选带型为：
ifx==1
Z型V带'
elseifx==2
A型V带'
B型V带'
小带轮直径（mm）dd1='
disp（dd1）;
大带轮直径（mm）dd2='
disp（dd2）;
实际中心距（mm）a0='
disp（aa）;
小带轮包角（角度）α='
disp（r）;
V带根数Z='
disp（z）;
V带的基准长度（mm）Ld='
disp（ld）;
初拉力（N）F0='
disp（f0）;
作用在轴上的压力（N）FQ='
disp（fq）;
带轮轮缘宽度（mm）B='
disp（bb）;
t1=input（'
是否计算下一种带轮直径？
1、yes；
2、no。
whilet1==1
2
升级会员 