哈工大机械设计电算实验matlabWord格式.docx
- 文档编号:13521965
- 上传时间:2022-10-11
- 格式:DOCX
- 页数:20
- 大小:482.13KB
哈工大机械设计电算实验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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 哈工大 机械设计 电算 实验 matlab