哈工大机械设计电算实验(matlab2010)

哈工大机械设计电算实验(matlab2010)

机械设计电算实验

一：普通V带传动设计内容和任务

1、普通V带传动设计内容

给定原始数据：传递的功率P，小带轮转速n，传动比i及工作条件。

设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0，和压轴力FQ。

2、CAD任务：

（1）编制V带传动设计程序框图。

（2）编制V带传动设计原程序。

（3）按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果。

二、变量标识符

kka

3 工作情况系数K

A

n r/min

4 小带轮转速n

1

5 工作机载荷特性载荷类型

6 原动机类型原动机类型

7 工作年限a年b班

8 带型号V带带型

dd1 mm

9 小带轮基准直径d

d1

dd2 mm

10 大带论基准直径d

d2

11 带速v v m/s

vmax m/s

12 最大带速v

max

a0 mm

13 预估中心距a

ld mm

14 基准长度L

d

15 实际中心距 a aa mm

r 度

16 小带轮包角α

1

17 V带根数Z z

18 基本额定功率P

po kw

pp0 kw

19 功率增量ΔP

ki

20 传动比系数K

i

三、程序框图

四、源程序与其说明

程序说明：

本程序用Matlab2010b软件编制，主要针对机械设计大作业上的题型设计。使用时只要打开m 文件，并点击运行，按照提示进行即可。首先输入原始数据，然后根据自己的需要选择带型，中心距即可得到设计结果，无需再查找资料，方便高效,计算过程如有错误会进行提示，并返回到输入处进行改正。而且该程序可以直接计算下一带轮直径或者计算下一带型，比较方便。源程序如下(先复制到记事本，再新建一个m文件，粘贴)

clear all;

disp('欢迎使用本程序，请输入V带传动设计的原始数据');

p=input('电动机工作功率(kw) P=');

n=input('电动机满载转速(r/min) nm=');

i=input('第一级传动比 i1=');

a=input('请输入最短工作工作年限 a年b班 a=');

b=input(' b=');

disp('是否反复起动、正反转频繁或工作条件恶劣');

ka1=input('是请输入1，否请输入0。请输入：');

disp('原动机类型:');

disp('I类原动机包括普通笼型交流电动机，同步电动机，');

disp(' 直流电动机（并激），n>=600r/min的内燃机')

disp('II类原动机包括交流电动机(双笼型、滑环式、单相、大转差率)，');

disp(' 直流电动机（复激、串激），单缸发动机，n<=600r/min的内燃机')

d1=input('请选择原动机的类型，输入1或2。请输入:');

disp('载荷类型：');

disp('1、载荷平稳；2、载荷变动小；3、载荷变动较大；4、载荷变动很大。');

e1=input('请选择载荷类型请输入:');

c=[3 710 38 80;2.2 940 28 60;3 960 38 80;4 960 38 80];

if p==3&&n==710

d=38;

e=80;

disp('根据您的数据为您选择的电动机为 Y132M-8'); elseif p==2.2&&n==940

d=28;

e=60;

disp('根据您的数据为您选择的电动机为 Y112M-6'); elseif p==3&&n==960

d=38;

e=80;

disp('根据您的数据为您选择的电动机为 Y132S-6'); elseif p==4&&n==960

d=38;

e=80;

disp('根据您的数据为您选择的电动机为 Y132M1-8'); else

disp('欢迎继续使用本程序');

end

ka2=[1.0 1.1 1.2;1.1 1.2 1.3;1.2 1.3 1.4;1.3 1.4 1.5]; ka3=[1.1 1.2 1.3;1.2 1.3 1.4;1.4 1.5 1.6;1.5 1.6 1.8]; if d1<=1

k=ka2;

else

k=ka3;

end

if ka1>=1

kka=1.1*k(e1,b);

else

kka=k(e1,b);

end

pd=kka*p;

t2=1;

while t2==1

z=10;

while z>=10

disp('V带带型：1、Z型:dd1min=50mm；2、A型:dd1min=75mm；3、B型:dd1min=125mm'); x=input('请输入（1、2、3）来选择带型。请选择：');

x1=[0.246 0.449 0.794;7.44 19.02 50.6;0.441 0.765 1.31;0.2925 0.7725 1.9875]; k1=x1(1,x);

k2=x1(2,x);

k3=(10^(-4))*x1(3,x);

kb=10^(-3)*x1(4,x);

vmax=25;

disp('优选带轮直径系列： 50 56 63 71 80 90 100')

disp(' 112 125 140 150 160 180 200')

disp(' 224 250 280 315 355 400 425')

disp(' 450 500 560 600 630 710 800')

dd1=input('请参考dd1min以及优选系列，输入小带轮基准直径(mm) dd1=');

v=pi*dd1*n/60/1000;

while v>=vmax

disp('请减小小带轮基准直径dd1');

dd1=input('请参考dd1min,重新输入小带轮基准直径(mm) dd1=');

v=pi*dd1*n/60/1000;

end

dd2=round(i*dd1);

a1=0.7*(dd1+dd2);

a2=2*(dd1+dd2);

disp('a1=');

disp(a1);

disp('a2=');

disp(a2);

a0=input('已知中心距a1<=a0<=a2,请输入a0的值（尽量为整数）。 a0=');

while a0a2

disp('wrong!您输入的数值不在a1-a2之间，请重新输入');