哈工大带传动电算程序 高分MATLAB版本.docx
- 文档编号:10128611
- 上传时间:2023-02-08
- 格式:DOCX
- 页数:29
- 大小:344.48KB
哈工大带传动电算程序 高分MATLAB版本.docx
《哈工大带传动电算程序 高分MATLAB版本.docx》由会员分享,可在线阅读,更多相关《哈工大带传动电算程序 高分MATLAB版本.docx(29页珍藏版)》请在冰豆网上搜索。
哈工大带传动电算程序高分MATLAB版本
HarbinInstituteofTechnology
哈尔滨工业大学机械设计作业设计计算说明书
课程名称:
机械设计
设计题目:
V带传动设计
院系:
机电工程学院
班级:
设计者:
学号:
指导教师:
设计时间:
2014.11.25
哈尔滨工业大学
一、程序框图
Y
图1V带设计程序框图
N
二、V带设计程序
disp('您好,请输入V带传动设计的原始数据');
p=input('电动机工作功率(kw)P=');
while(isempty(p)||p==0)
p=input('p=');
end
n1=input('电动机满载转速(r/min)n1=');
while(isempty(n1))
n1=input('n1=');
end
i1=input('第一级传动比i1=');
while(isempty(i1))
i1=input('i1=');
end
a=input('请输入最短工作年限a年b班a=');
while(isempty(a))
a=input('a=');
end
b=input('b=');
while(isempty(b)||b~=1&&b~=2&&b~=3)
b=input('b=');
end
disp('是否反复起动、正反转频繁或工作条件恶劣');
KA1=input('是请输入1,否请输入0。
请输入:
');
while(isempty(KA1)||KA1~=1&&KA1~=0);
KA1=input('KA1=');
end
disp('原动机类型:
');
disp('I类原动机包括普通笼型交流电,同步电动机,直流电动机(并激),n>=600r/min的内燃机');
disp('II类原动机包括交流电动机(双笼型、滑环式单相大转差率),直流电动机(复激、串),单缸发动机,n<=600r/min的内燃机');
YDJ=input('请选择原动机的类型,输入1或2。
请输入:
');
while(isempty(YDJ)||YDJ~=1&&YDJ~=2);
YDJ=input('YDJ=');
end
disp('选择载荷类型:
');
disp('1、载荷平稳;2、载荷变动小;3、载荷变动较大;4、载荷变动很大。
');
GZJ=input('请输入载荷类型请输入:
');
while(isempty(GZJ)||GZJ~=1&&GZJ~=2&&GZJ~=3&&GZJ~=4);
GZJ=input('GZJ=');
end
KA2=[1.01.11.2;1.11.21.3;1.21.31.4;1.31.41.5];
KA3=[1.11.21.3;1.21.31.4;1.41.51.6;1.51.61.8];
ifYDJ==1
KA=KA2;
else
KA=KA3;
end
ifKA1==1
KKA=KA(GZJ,b)*1.1;
else
KKA=KA(GZJ,b);
end
ifi1>=1&&i1<=1.01
Ki=1;
elseifi1>=1.02&&i1<=1.04
Ki=1.0136;
elseifi1>=1.05&&i1<=1.08
Ki=1.0276;
elseifi1>=1.09&&i1<=1.12
Ki=1.0276;
elseifi1>=1.05&&i1<=1.08
Ki=1.0419;
elseifi1>=1.13&&i1<=1.18
Ki=1.0567;
elseifi1>=1.19&&i1<=1.24
Ki=1.0719;
elseifi1>=1.25&&i1<=1.34
Ki=1.0875;
elseifi1>=1.35&&i1<=1.51
Ki=1.1036;
elseifi1>=1.52&&i1<=1.99
Ki=1.1202;
elseifi1>=2
Ki=1.1373;
end
disp('根据查表得到传动比系数Ki=');
disp(Ki);
pd=KKA*p;
Z=abs((1131.57*pd-n1-414.5)/1331.57);
A=abs((266.7*pd-n1-133.6)/266.7);
B=abs((88.9*pd-n1-211.25)/88.9);
C=abs((19*pd-n1-130)/19);
D=abs((6.85*pd-n1-116.5)/6.92);
E=abs((3.2*pd-n1-100)/3.35);
disp(E);
%选择带型,K123b%
if(Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E)
disp('选择带型为Z');
K1=0.246;
disp('K1=0.246');
K2=7.44;
disp('K2=7.44');
K3=0.441/10^4;
disp('K3=0.441/10^4');
Kb=0.2925/10^3;
disp('Kb=0.2925/10^3');
elseif(A<=Z&&A<=B&&A<=C&&A<=D&&A<=E)
disp('选择带型为A');
K1=0.449;
disp('K1=0.449');
K2=19.02;
disp('K2=19.02');
K3=0.765/10^4;
disp('K3=0.765/10^4');
Kb=0.7725/10^3;
disp('Kb=0.7725/10^3');
elseif(B<=A&&B<=Z&&B<=C&&B<=D&&B<=E)
disp('选择带型为B');
K1=0.794;
disp('K1=0.794');
K2=50.6;
disp('K2=50.6');
K3=1.31/10^4;
disp('K3=1.31/10^4');
Kb=1.9875/10^3;
disp('Kb=1.9875/10^3');
elseif(C<=A&&C<=Z&&C<=B&&C<=D&&C<=E)
disp('选择带型为C');
K1=1.48;
disp('K1=1.48');
K2=143.2;
disp('K2=143.2');
K3=2.34/10^4;
disp('K3=2.34/10^4');
Kb=5.625/10^3;
disp('Kb=5.625/10^3');
elseif(D<=A&&D<=Z&&D<=B&&D<=C&&D<=E)
disp('选择带型为D');
K1=3.15;
disp('K1=3.15');
K2=507.3;
disp('K2=507.3');
K3=4.77/10^4;
disp('K3=4.77/10^4');
Kb=19.95/10^3;
disp('Kb=19.95/10^3');
elseif(E<=A&&E<=Z&&E<=B&&E<=C&&E<=D)
disp('选择带型为E');
K1=4.57;
disp('K1=4.57');
K2=951.5;
disp('K2=951.5');
K3=7.06/10^4;
disp('K3=7.06/10^4');
Kb=19.95/10^3;
disp('Kb=19.95/10^3');
end
%带型选择结束%
%选择大小带轮的直径%
if(Z<=A&&Z<=B&&Z<=C&&Z<=D&&Z<=E)
disp('优选带轮直径系列5063718090100112125132140150160180200224250280315');
dd1=input('dd1=');
while(dd1~=50&&dd1~=63&&dd1~=71&&dd1~=80&&dd1~=90&&dd1~=100&&dd1~=112&&dd1~=125&&dd1~=132&&dd1~=140&&dd1~=150&&dd1~=160&&dd1~=180&&dd1~=200&&dd1~=224&&dd1~=250&&dd1~=280&&dd1~=315)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
whileV>25
disp('请减小小带轮的直径dd1');
disp('优选带轮直径系列5063718090100112125132140150160180200224250280315');
dd1=input('dd1=');
while(dd1~=50&&dd1~=63&&dd1~=71&&dd1~=80&&dd1~=90&&dd1~=100&&dd1~=112&&dd1~=125&&dd1~=132&&dd1~=140&&dd1~=150&&dd1~=160&&dd1~=180&&dd1~=200&&dd1~=224&&dd1~=250&&dd1~=280&&dd1~=315)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
end
dd2=i1*dd1;
disp('计算得到的dd2=');
disp(dd2);
dd2=input('从优选带轮直径中选择与计算结果相近的值dd2=');
while(dd2~=50&&dd2~=63&&dd2~=71&&dd2~=80&&dd2~=90&&dd2~=100&&dd2~=112&&dd2~=125&&dd2~=132&&dd2~=140&&dd2~=150&&dd2~=160&&dd2~=180&&dd2~=200&&dd2~=224&&dd2~=250&&dd2~=280&&dd2~=315)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
ifi2>=0.05
disp('请重新输入dd2');
dd2=input('dd2=');
while(dd2~=50&&dd2~=63&&dd2~=71&&dd2~=80&&dd2~=90&&dd2~=100&&dd2~=112&&dd2~=125&&dd2~=132&&dd2~=140&&dd2~=150&&dd2~=160&&dd2~=180&&dd2~=200&&dd2~=224&&dd2~=250&&dd2~=280&&dd2~=315)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
elseif(A<=Z&&A<=B&&A<=C&&A<=D&&A<=E)
disp('优选带轮直径系列为75808590100106112118125132140150160180200224250280315');
dd1=input('dd1=');
while(dd1~=75&&dd1~=80&&dd1~=85&&dd1~=106&&dd1~=90&&dd1~=100&&dd1~=112&&dd1~=118&&dd1~=125&&dd1~=132&&dd1~=140&&dd1~=150&&dd1~=160&&dd1~=180&&dd1~=200&&dd1~=224&&dd1~=250&&dd1~=280&&dd1~=315)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
whileV>25
disp('请减小小带轮的直径dd1');
disp('优选带轮直径系列为75808590100106112118125132140150160180200224250280315');
dd1=input('dd1=');
while(dd1~=75&&dd1~=80&&dd1~=85&&dd1~=106&&dd1~=90&&dd1~=100&&dd1~=112&&dd1~=118&&dd1~=125&&dd1~=132&&dd1~=140&&dd1~=150&&dd1~=160&&dd1~=180&&dd1~=200&&dd1~=224&&dd1~=250&&dd1~=280&&dd1~=315)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
end
disp(V);
dd2=i1*dd1;
disp('计算得到的dd2=');
disp(dd2);
dd2=input('从优选带轮直径中选择与计算结果相近的值dd2=');
while(dd2~=75&&dd2~=80&&dd2~=85&&dd2~=106&&dd2~=90&&dd2~=100&&dd2~=112&&dd2~=118&&dd2~=125&&dd2~=132&&dd2~=140&&dd2~=150&&dd2~=160&&dd2~=180&&dd2~=200&&dd2~=224&&dd2~=250&&dd2~=280&&dd2~=315)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
ifi2>=0.05
disp('请重新输入dd2');
dd2=input('dd2=');
while(dd2~=75&&dd2~=80&&dd2~=85&&dd2~=106&&dd2~=90&&dd2~=100&&dd2~=112&&dd2~=118&&dd2~=125&&dd2~=132&&dd2~=140&&dd2~=150&&dd2~=160&&dd2~=180&&dd2~=200&&dd2~=224&&dd2~=250&&dd2~=280&&dd2~=315)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
end
%%%%%%%%%%%%%%%%%%%%%%%%%
elseif(B<=A&&B<=Z&&B<=C&&B<=D&&B<=E)
disp('优选带轮直径系列C为200212224236250265280315355400450500');
dd1=input('dd1=');
while(dd1~=200&&dd1~=212&&dd1~=224&&dd1~=236&&dd1~=250&&dd1~=265&&dd1~=280&&dd1~=315&&dd1~=355&&dd1~=400&&dd1~=450&&dd1~=500)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
whileV>25
disp('请减小小带轮的直径dd1');
disp('优选带轮直径系列C为200212224236250265280315355400450500');
dd1=input('dd1=');
while(dd1~=200&&dd1~=212&&dd1~=224&&dd1~=236&&dd1~=250&&dd1~=265&&dd1~=280&&dd1~=315&&dd1~=355&&dd1~=400&&dd1~=450&&dd1~=500)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
end
disp(V);
dd2=i1*dd1;
disp('计算得到的dd2=');
disp(dd2);
dd2=input('从优选带轮直径中选择与计算结果相近的值dd2=');
while(dd2~=200&&dd2~=212&&dd2~=224&&dd2~=236&&dd2~=250&&dd2~=265&&dd2~=280&&dd2~=315&&dd2~=355&&dd2~=400&&dd2~=450&&dd2~=500)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
ifi2>=0.05
disp('请重新输入dd2');
dd2=input('dd2=');
while(dd2~=200&&dd2~=212&&dd2~=224&&dd2~=236&&dd2~=250&&dd2~=265&&dd2~=280&&dd2~=315&&dd2~=355&&dd2~=400&&dd2~=450&&dd2~=500)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
end
disp('dd2');
%%%%%%%%%%%%%
elseif(C<=A&&C<=Z&&C<=B&&C<=D&&C<=E)
disp('优选带轮直径系列C为200212224236250265280315355400450500');
dd1=input('dd1=');
while(dd1~=200&&dd1~=212&&dd1~=224&&dd1~=236&&dd1~=250&&dd1~=265&&dd1~=280&&dd1~=315&&dd1~=355&&dd1~=400&&dd1~=450&&dd1~=500)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
whileV>25
disp('请减小小带轮的直径dd1');
disp('优选带轮直径系列C为200212224236250265280315355400450500');
dd1=input('dd1=');
while(dd1~=200&&dd1~=212&&dd1~=224&&dd1~=236&&dd1~=250&&dd1~=265&&dd1~=280&&dd1~=315&&dd1~=355&&dd1~=400&&dd1~=450&&dd1~=500)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
end
disp(V);
dd2=i1*dd1;
disp('计算得到的dd2=');
disp(dd2);
dd2=input('从优选带轮直径中选择与计算结果相近的值dd2=');
while(dd2~=200&&dd2~=212&&dd2~=224&&dd2~=236&&dd2~=250&&dd2~=265&&dd2~=280&&dd2~=315&&dd2~=355&&dd2~=400&&dd2~=450&&dd2~=500)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
ifi2>=0.05
disp('请重新输入dd2');
dd2=input('dd2=');
while(dd2~=200&&dd2~=212&&dd2~=224&&dd2~=236&&dd2~=250&&dd2~=265&&dd2~=280&&dd2~=315&&dd2~=355&&dd2~=400&&dd2~=450&&dd2~=500)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
end
disp('dd2');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
elseif(D<=A&&D<=Z&&D<=B&&D<=C&&D<=E)
disp('优选带轮直径系列D为355375400425450475500530600');
dd1=input('dd1=');
while(dd1~=355&&dd1~=375&&dd1~=400&&dd1~=425&&dd1~=450&&dd1~=475&&dd1~=500&&dd1~=530&&dd1~=600)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
whileV>25
disp('请减小小带轮的直径dd1');
disp('优选带轮直径系列D为355375400425450475500530600');
dd1=input('dd1=');
while(dd1~=355&&dd1~=375&&dd1~=400&&dd1~=425&&dd1~=450&&dd1~=475&&dd1~=500&&dd1~=530&&dd1~=600)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
end
disp(V);
dd2=i1*dd1;
disp('计算得到的dd2=');
disp(dd2);
dd2=input('从优选带轮直径中选择与计算结果相近的值dd2=');
while(dd2~=355&&dd2~=375&&dd2~=400&&dd2~=425&&dd2~=450&&dd2~=475&&dd2~=500&&dd2~=530&&dd2~=600)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
ifi2>=0.05
disp('请重新输入dd2');
dd2=input('dd2=');
while(dd2~=355&&dd2~=375&&dd2~=400&&dd2~=425&&dd2~=450&&dd2~=475&&dd2~=500&&dd2~=530&&dd2~=600)
dd2=input('dd2=');
end
i2=(dd2/dd1-i1)/i1;
end
disp('dd2');
%%%%%%%%%%%%%%%%%%%%
elseif(E<=A&&E<=Z&&E<=B&&E<=C&&E<=D)
disp('优选带轮直径系列E为500530560600630710');;
dd1=input('dd1=');
while(dd1~=630&&dd1~=710&&dd1~=500&&dd1~=530&&dd1~=600)
dd1=input('dd1=');
end
V=pi*dd1*n1/60/1000;
whileV>25
disp('请减小小带轮的直径dd1');
disp('优选带轮直径系列E为5005305
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 哈工大带传动电算程序 高分MATLAB版本 哈工大 传动 电算 程序 高分 MATLAB 版本