哈尔滨工业大学机械设计大作业_带传动电算

哈尔滨工业大学机械设计大作业设计计算说明书题目: V带传动设计系别:班号:姓名:学号:日期: 2012年10月28日目录(一)选择电动机—————————————————————————————4(二)确定设计功率dP———————————————————————————4 (三)选择带的型号————————————————————————————4(四)确定带轮的基准直径dd1和dd2——————————————————————4(五)验算带的速度————————————————————————————4(六)确定中心距a和V带基准长dL—————————————————————4(七)计算小轮包角1———————————————————————————5(八)确定V带根数Z————————————————————————————5(九)确定初拉力F————————————————————————————5 (十)计算作用在轴上的压力————————————————————————6 (十一)带轮结构设计————————————————————————————6 (十二)参考文献——————————————————————————————7哈尔滨工业大学机械设计作业任务书题目: 设计绞车（带棘轮制动器）中的V带传动结构简图见下图:。

原始数据如下：室内工作、工作平稳、机器成批生产方案电动机功率P/kW电动机满载转速n m/(r/min)工作机的转速n w/(r/min)第一级传动比1i轴承座中心高H/mm最短工作年限FC5.3.1 3.7 912 60 3.2 200 10年2班40%一 选择电动机由方案图表中的数据要求，查《机械设计课程设计指导书》表14-1 Y 系列三相异步电动机的型号及相关数据选择可选择Y132M1-6。

可查《机械设计课程设计指导书》表14-2得轴径为38mm,长为76mm.二 确定设计功率d P 由题目条件给出P d =K A P d =1.3*3.7=4.81Kw 。

如有你有帮助，请购买下载，谢谢！H a r b i n I n s t i t u t e o f T e c h n o l o g y哈尔滨工业大学机械设计作业设计计算说明书课程名称：机械设计设计题目：V带传动设计院系：机电工程学院班级：设计者：学号：指导教师：设计时间：哈尔滨工业大学一、程序框图二、V带设计程序disp(' 您好，请输入V带传动设计的原始数据');p=input(' 电动机工作功率(kw) P=');while (isempty(p)||p==0)p=input('p=');endn1=input(' 电动机满载转速(r/min) n1=');while (isempty(n1))n1=input('n1=');endi1=input(' 第一级传动比i1=');while (isempty(i1))i1=input('i1=');enda=input(' 请输入最短工作年限a年b班a=');while (isempty(a))a=input('a=');endb=input(' b=');while (isempty(b)||b~=1&&b~=2&&b~=3)b=input('b=');enddisp(' 是否反复起动、正反转频繁或工作条件恶劣');KA1=input(' 是请输入1，否请输入0。

请输入：');while (isempty(KA1)|| KA1~=1 && KA1~=0);KA1=input('KA1=');enddisp(' 原动机类型:');disp('I 类原动机包括普通笼型交流电，同步电动机，直流电动机（并激），n>=600r/min 的内燃机');disp('II 类原动机包括交流电动机(双笼型、滑环式单相大转差率)，直流电动机（复激、串），单缸发动机，n<=600r/min 的内燃机');YDJ=input(' 请选择原动机的类型，输入1或2。

哈工大机械设计大作业——带式运输机V带传动设计(总7页) --本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--Harbin Institute of Technology机械设计大作业说明书设计题目：带式运输机中的V带传动院系：能源科学与工程学院班级： 1302404设计者：朱明磊学号： 22指导教师：张锋设计时间：目录一．设计任务书........................................................................................... 错误!未定义书签。

二．电动机的选择....................................................................................... 错误!未定义书签。

三．确定设计功率P d.................................................................................. 错误!未定义书签。

四．选择带的型号....................................................................................... 错误!未定义书签。

五．确定带轮的基准直径d d1和d d2........................................................... 错误!未定义书签。

六．验算带的速度....................................................................................... 错误!未定义书签。

七．确定中心距a和V带的基准长度Ld ................................................. 错误!未定义书签。

Harbin Institute of Technology大作业设计说明书课程名称：机械设计设计题目：V带传动电算院系：机电学院班级：11208108设计者：石茜学号：1120810812指导教师：古乐设计时间：2014.11.11哈尔滨工业大学目录一、设计方案1、普通V带传动已知条件题目原始数据：传递的功率P，小带轮转速 n1，一级传动比i，工作状况及工作时间程序设计需要计算的内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q。

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

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

（3）运行程序进行相应计算。

3、设计思路按照程序设计框图所需数据依次定义相应数据，按照流程图的数据依次进行程序的编写，在相应地方加入数据判据使输入数据及结果满足题目要求条件。

4、设计方案在起始时提示相应语句，要求用户输入相应原始数据，在需要进一步选择参数时提示相应语句并给出判断语句以防用户输入的数据不在所要求范围内，确定相应数据后依照流程图编写相应公式进行数据计算，判断结果是否符合条件，若符合询问是否继续进行计算，不符合要求其重新输入数据。

5、程序流程框图二、主程序clear all;disp('设计：机电工程学院 1120810812 石茜')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。

目录一.选择齿轮材料、热处理方式、精度等级 (02)二.初步计算传动主要尺寸 (02)1)小齿轮传递的转矩T (03)12)齿数的初步确定 (03)3)齿宽系数φ的确定 (04)d4)载荷系数K的确定 (04)5)齿形系数Y和应力修正系数s Y (04)F的确定 (04)6)重合度系数Yε7)许用弯曲应力的确定 (04)8)初算模数 (05)三.计算传动尺寸 (05)1)计算载荷系数K (05)2)圆整m (06)3)计算传动尺寸 (06)四.齿面接触疲劳强度的校核 (06)五.大齿轮结构尺寸的确定 (07)1）齿轮结构型式的确定 (07)2）轮毂孔径的确定 (07)3）齿轮结构尺寸的确定 (08)参考文献： (08)题目:设计带式运输机中的齿轮传动带式运输机的传动方案如图1所示，机器工作平稳、单向回转、成批生产，其他数据见表1。

图1表1 带式运输机中V 带传动的已知数据方案电动机工作功率电动机满载转速工作机的转速第一级传动比 轴承座中 心高最短工作年限 工作环境5.1.1 3960901.81508年1班室外、有尘一.选择齿轮材料、热处理方式、精度等级由于运输机的大齿轮结构为对称式，齿宽系数d φ仅能取到1.左右。

由指导手册可知，本装置的齿轮传动为开式齿轮传动，导致在齿面解除疲劳强度校核时，对接触疲劳极限要求很高，故在本设计中采用硬齿面，大小齿轮均选用40Cr ，表面淬火处理。

由参考文献1表8.2查得齿面硬度为4855HRC 。

由参考文献2表16.1查得，齿轮可选用8级精度。

二.初步计算传动主要尺寸因为齿轮采用软齿面开式传动，齿面磨损是其主要失效形式。

由于目前对于齿面磨损还无完善的计算方法，因此通常按齿根疲劳强度进行设计，然后考虑磨损的影响，一般将算的模数增大10%-15%之后再取标准值。

下面初步确定按齿根弯曲疲劳强度设计齿轮传动主要参数和尺寸。

齿根弯曲疲劳强度设计公式13212[]F s Fd Y Y Y KT m z εσφ≥⋅式中：F Y ——齿形系数，反映了轮齿几何形状对齿根弯曲应力F σ的影响；s Y ——应力修正系数，用以考虑齿根过度圆角处的应力集中和除弯曲应力以外的其它应力对齿根应力的影响；Y ε——重合度系数，是将全部载荷作用于齿顶时的齿根应力折算为载荷作用于单对齿啮合区上界点时的齿根应力系数； []F σ——许用齿根弯曲应。

哈尔滨工业大学机械设计作业任务书题目设计带式传动机中的V带传动设计原始数据：电动机工作功率：P d = 2.2 k W电动机满载转速：n m=940 r/min工作机的转速：n w=80 r/min第一级传动比：i1=2.1轴承座中心高：H=170 mm最短工作年限：5年2班工作环境：室内、清洁V带传动设计一、设计题目带式运输机的传动方案如下图所示，机器工作平稳、单向回转、成批生产。

电动机工作功率为2.2kW，电动机满载转速为940r/min，工作机的转速为80r/min，第一级传动比2.1，轴承座中心高为160 mm，最短工作年限为5年2班，工作环境为室内、清洁。

二、确定电动机类型根据参考文献[2]表 15.1，当额定功率为2.2 kW，同步转速为940 r/min，选取电动机型号Y112M-6。

三、V带设计1.确定设计功率由题目所给已知条件可知P d/kW=2.22.选取带型根据P d、n1,由参考文献[1]图 7.11查取，选A型带。

3.确定带轮的基准直径根据参考文献[1]表 7.7荐用最小基准直径，可选小带轮直径d d1=125 mm，则大带轮直径为d d2/mm=i·d d1=2.1×125=262.5由参考文献[1]表7.3查得取d d2=250 mm，其传动比△i<5%4.验算带的速度v /(m/s)=πd d1∙n160×1000=π×125×94060×1000=6.15<25 = v max/(m/s)故可用。

5.确定V带长度和中心距根据0.7(d d1+d d2)≤a0≤2(d d1+d d2),初步确定中心距0.7×(125+250)=262.5≤a0≤2×(125+250)=750因结构要求不高，故取中间值a0=500 mm。

根据参考文献[1]式 (7.4)计算V带基准长度L d’/mm=2a0 +π2(d d1+d d2)+(dd1+dd2)24a0=1596.56由参考文献[1]表 7.2选V带基准长度L d=1600 mm。

Harbin Institute of Technology哈尔滨工业大学机械设计作业设计计算说明书课程名称：机械设计设计题目：带式运输机中的V带轮部件电算设计院系：能源科学与工程学院班级： 1602404班设计者：钟学号： 11602004指导教师：王黎钦设计时间： 2019.4.22哈尔滨工业大学哈尔滨工业大学机械设计作业任务书题目：带式运输机中的V带轮部件电算设计题号：5.1.5设计原始数据：机器工作平稳、单向回转、成批生产，其他数据如下表所示。

方案电动机工作功率Pd/kW电动机满载转速n m/(r/min)工作机的转速n w/(r/min)第一级传动比i1轴承座中心高度H/mm最短工作年限工作环境5.1.5 3 710 80 2 1703年3班室内清洁目录一、电算设计思路 (4)二、标量标识符 (4)三、V带设计程序框图 (5)四、设计源程序 (6)五、计算结果及分析 (16)一、电算设计思路本次V带电算采用C语言进行设计计算。

通过输入小带轮转速n1，名义功率P 以及传动比i，再按照一定的顺序，便可以计算出多种直径和型号的V带轮设计结果。

二、标量标识符为了使程序具有较好的可读性、易用性，先将变量标识符规定列表如表2-1所示：三、V带设计程序框图在编写代码前，编写程序框图如图3-1所示。

图3-1 V带设计程序框图四、设计源程序#include<stdio.h>#include<string.h>#include<math.h>#include<stdlib.h>#include<ctype.h>#include "process.h"#define Pi 3.1415926doubleP,Pd,n1,aMIN,aMAX,V,a,a0,Ld0,ALF1,z,P0,DIFP0,Kb,Ki,KL,KALF,F0,Q,j,m0,K1,K2,K3,e, fB,Bl;char TYPE,q;int Ld,dd1,dd20,dd2,i,reply,w,f,g,a2,a3,a4,VMAX,s,s1;char Z,A,B,C,D,E;char c[9];float DD2[]= {50,56,63,71,75,80,90,100,112,125,140,150,160,180,200,224,250,280,315,355,400,425,450,500,560,600,630,710,800};float LD[33][7]= {{400,0.87},{450,0.89},{500,0.91},{560,0.94},{630,0.96,0.81},{710,0.99,0.83},{800,1.00,0.85},{900,1.03,0.87,0. 82},{1000,1.06,0.89,0.84},{1120,1.08,0.91,0.86},{1250,1.10,0.93,0.88},{1400,1.14,0.96,0.90},{1600,1.16 ,0.99,0.92,0.83},{1800,1.18,1.01,0.95,0.86},{2000,0,1.03,0.98,0.88},{2240,0,1.06,1.00,0.91},{ 2500,0,1.09,1.03,0.93},{2800,0,1.11,1.05,0.95,0.83},{3150,0,1.13,1.07,0.97,0.86},{3550,0,1.17,1.09, 0.99,0.89},{4000,0,1.19,1.13,1.02,0.91},{4500,0,0,1.15,1.04,0.93,0.90},{5000,0,0 ,1.18,1.07,0.96,0.92},{5600,0,0,0,1.09,0.98,0.95},{6300,0,0,0,1.12,1.00,0.97},{7100,0,0,0,1.15,1.0 3,1.00},{8000,0,0,0,1.18,1.06,1.02},{9000,0,0,0,1.21,1.08,1.05},{10000,0,0,0,1.2 3,1.11,1.07},{11200,0,0,0,0,1.14,1.10},{12500,0,0,0,0,1.17,1.12},{14000,0,0,0,0,1.20,1.15},{16000,0,0,0,0,1.22,1.18} };float ka1[4][3]= {{1.0,1.1,1.2},{1.1,1.2,1.3},{1.2,1.3,1.4},{1.3,1.4,1.5}};float ka2[4][3]= {{1.1,1.2,1.3},{1.2,1.3,1.4},{1.4,1.5,1.6},{1.5,1.6,1.8}};float jg[9][7];float temp1,t1,temp2,t2,KA;int jd=0,jk=0;main(){printf("请输入传递功率P<单位kW>：");scanf("%lf",&P);printf("小带轮转速n1<单位r/min>：");scanf("%lf",&n1);printf("传动比i：");scanf("%d",&i);printf("请输入原动机类型YDJ<Ⅰ或Ⅱ>：");scanf("%d",&w);printf("载荷类型：\n");printf("1:载荷平稳\n");printf("2:载荷变动小\n");printf("3:载荷变动大\n");printf("4:载荷变动很大\n");scanf("%d",&f);printf("请输入每天的工作时间：\n");printf("0：<10h\n");printf("1：<10h~16h\n");printf("2：>16h\n");scanf("%d",&g);if(w==1){if(g==0)KA=ka1[f-1][0];else if(g==2)KA=ka1[f-1][2];elseKA=ka1[f-1][1];}if(w==2){if(g==0)KA=ka2[f-1][0];else if(g==2)KA=ka2[f-1][2];elseKA=ka2[f-1][1];}printf("是否在启动频繁、经常正反转、工作环境恶劣等场合运转？n/y\n"); scanf(" %c",&q);switch(q){case 'n':Pd=P*KA;printf("名义功率Pd为：%.3fkW\n",Pd);break;case 'y':Pd=P*1.2*KA;printf("名义功率Pd为：%.3fkW\n",Pd);break;}if((i>=1.00)&&(i<=1.01)) {Ki=1.0000;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.02)&&(i<=1.04)) {Ki=1.0136;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.05)&&(i<=1.08)) {Ki=1.0276;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.09)&&(i<=1.12)) {Ki=1.0419;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.13)&&(i<=1.18)) {Ki=1.0567;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.19)&&(i<=1.24)) {Ki=1.0719;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.25)&&(i<=1.34)) {Ki=1.0875;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.35)&&(i<=1.51)) {Ki=1.1036;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.52)&&(i<=1.99)) {Ki=1.1202;printf("传动比系数Ki=");printf("%lf\n",Ki);}if(i>=2) {Ki=1.1373;printf("传动比系数Ki=");printf("%lf\n",Ki);}s=0;do{printf("\n输入带型号：");scanf(" %c",&TYPE);switch(TYPE){case 'Z':printf("带轮最小基准直径是50mm\n");Kb=0.0002925;VMAX=25;K1=0.246;K2=7.44;K3=0.441*pow(10,-4);m0=0.06;e=12;fB=8;printf("Z型带轮基准直径分别是50、56、63、71、75、80mm\n");break;case 'A':printf("带轮最小基准直径是75mm\n");Kb=0.0007725;VMAX=25;K1=0.449;K2=19.02;K3=0.765*pow(10,-4);m0=0.1;e=15;fB=10;printf("A型带轮基准直径分别是75、80、90、100、112、125mm\n");break;case 'B':printf("带轮最小基准直径是125mm\n");Kb=0.0019875;VMAX=25;K1=0.794;K2=50.6;K3=1.31*pow(10,-4);m0=0.17;e=19;fB=12.5;printf("B型带轮基准直径分别是125、140、150、160、180mm\n");break;case 'C':printf("带轮最小基准直径是200mm\n");Kb=0.005625;VMAX=25;K1=1.48;K2=143.2;K3=2.34*pow(10,-4);m0=0.3;e=25.5;fB=17;printf("C型带轮基准直径分别是200、224、250、280、315、400mm\n");break;case 'D':printf("带轮最小基准直径是355mm\n");Kb=0.01995;VMAX=30;K1=3.15;K2=507.3;K3=4.77*pow(10,-4);m0=0.6;e=37;fB=23;printf("D型带轮基准直径分别是355、400、425、450、500mm\n");break;case 'E':printf("带轮最小基准直径是500mm\n");Kb=0.03735;VMAX=30;K1=4.57;K2=951.5;K3=7.06*pow(10,-4);m0=0.8;e=44.5;fB=29;printf("E型带轮基准直径分别是500、560、600、630、710mm\n");break;}do {printf("请选择合适小带轮直径dd1(mm)：");begin1:scanf("%d",&dd1);V=Pi*dd1*n1/60000;if(V>VMAX){printf("带速过大，请重新选择更小的小带轮直径:");goto begin1; /*判断带速是否超过最大带速*/}printf("小带轮直径dd1(mm)：%d",dd1);temp1=i*dd1;for(jd=0; jd<29; jd++){t1=temp1-DD2[jd];if(t1<=0)break; /*判断大带轮直径*/}if((DD2[jd]-temp1)<(temp1-DD2[jd-1]))dd2=DD2[jd];elsedd2=DD2[jd-1]; /*选择大带轮直径为接近的那个优选数*/ printf("大带轮直径dd2(mm)：%d",dd2);if (fabs((dd2/dd1-i)/i)>=0.05)printf("传动比误差过大,不可用！请重新选择小带轮直径:"); goto begin1;}printf("\n传动比误差小于0.05,可用\n");aMIN=0.7*(dd1+dd2);aMAX=2*(dd1+dd2);printf("请初步确定中心距(mm)，并使%.3fmm<a0<%.3fmm：",aMIN,aMAX);scanf("%lf",&a0);Ld0=2*a0+Pi/2*(dd1+dd2)+pow(dd2-dd1,2)/(4*a);switch(TYPE) {case 'Z':a4=1;break;case 'A':a4=2;break;case 'B':a4=3;break;case 'C':a4=4;break;case 'D':a4=5;break;case 'E':a4=6;}for(jk=0; jk<33; jk++){temp2=Ld0-LD[jk][0];if(temp2<=0)break;}if((Ld0-LD[jk-1][0])>(LD[jk][0]-Ld0)){Ld=LD[jk][0];KL=LD[jk][a4];Ld=LD[jk-1][0];KL=LD[jk-1][a4];} /*选择合适的带基准长度*/ a=a0+(Ld-Ld0)/2;ALF1=180-(dd2-dd1)/a*57.3;printf("小带轮包角为α1=%.5f°\n",ALF1);if(ALF1<=90){KALF=0.69;printf("包角修正系数KALF为：");printf("%lf\n",KALF);}if((ALF1>90)&&(ALF1<=100)){KALF=(0.74-0.69)/10*(ALF1-90)+0.69;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>100)&&(ALF1<=110)){KALF=(0.78-0.74)/10*(ALF1-100)+0.74;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>110)&&(ALF1<=120)){KALF=(0.82-0.78)/10*(ALF1-110)+0.78;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>120)&&(ALF1<=130)){KALF=(0.86-0.82)/10*(ALF1-120)+0.82;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>130)&&(ALF1<=140)){KALF=(0.89-0.86)/10*(ALF1-130)+0.86;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>140)&&(ALF1<=150)){KALF=(0.92-0.89)/10*(ALF1-140)+0.89;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>150)&&(ALF1<=160)){KALF=(0.95-0.92)/10*(ALF1-150)+0.92;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>160)&&(ALF1<=170)){KALF=(0.98-0.95)/10*(ALF1-160)+0.95;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>170)&&(ALF1<=180)){KALF=(1.00-0.98)/10*(ALF1-170)+0.98;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>180)&&(ALF1<=190)){KALF=(1.05-1.00)/10*(ALF1-180)+1.00;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>190)&&(ALF1<=200)){KALF=(1.10-1.05)/10*(ALF1-190)+1.05;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>200)&&(ALF1<=210)){KALF=(1.15-1.10)/10*(ALF1-200)+1.10;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>210)&&(ALF1<=220)){KALF=(1.20-1.15)/10*(ALF1-210)+1.15;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if(ALF1>200){KALF=1.20;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}P0=V*(K1*pow(V,-0.09)-K2/dd1-K3*pow(V,2));printf("单根带的基本额定功率P0：%.3fkW\n",P0);printf("%c",TYPE);printf("型带的弯曲影响系数Kb=");printf("%lf\n",Kb);DIFP0=Kb*n1*(1-1/Ki);printf("功率增量△P0= %lf\n",DIFP0);printf("V带基准长度为%.3dmm\n",Ld);//**************************z=Pd/((P0+DIFP0)*KALF*KL);printf("V带的根数为：%.2f ,圆整后的结果为：z=%d\n",z,(int)z+1);if((int)z+1>=10){printf("带数过多，请重新选择小带轮直径："); goto begin1;}printf("单位长度所选带的质量(kg/m)：");printf("%lf",m0);F0=500*Pd/z/V*(2.5-KALF)/KALF+m0*V*V;Q=2*z*F0*sin(ALF1/2*Pi/180);Bl=(int)z*e+2*fB;printf("\n下面是计算的最后结果：\n");printf("带型为%c\n设计功率Pd=%.3fkW\n小带轮直径dd1=%dmm\n大带轮直径dd2=%dmm\nV带基准长度Ld=%.3dmm\n实际轴间距a=%.3fmm\n单根V带额定功率P0=%.3fkW\n 额定功率增量DIFPP0=%.3fkW\n",TYPE,Pd,dd1,dd2,Ld,a,P0,DIFP0);printf("带速V=%.3fm/s\n小带轮包角ALF1=%.5f°\nV带根数z=%d\nV带单位长度的质量m0=%.3fkg/m\n单根V带的预紧力F0=%.3fN\n作用在轴上的力FQ=%.3fN\n轮缘宽度B=%d\n",V,ALF1,(int)z+1,m0,F0,Q,(int)Bl+1);c[s]=TYPE;jg[s][0]=dd1;jg[s][1]=dd2;jg[s][2]=a;jg[s][3]=(int)z+1;jg[s][4]=F0;jg[s][5]= Q;jg[s][6]=(int)Bl+1;s=s+1;printf("\n是否计算下一种带轮直径？0(no)/1(yes)\n");scanf("%d",&a2);} while(a2==1&&s<=8);printf("\n计算下一型号带？0(no)/1(yes)\n");scanf("%d",&a3);} while(a3==1&&s<=8);printf("程序最多储存9次运算数据，运算结束。

Harbin Institute of Technology大作业设计说明书课程名称：机械设计设计题目：齿轮传动设计院系：机电工程学院班级：设计者：学号：指导教师：张锋设计时间：2013-10-25哈尔滨工业大学目录一、设计任务 (1)二、选择齿轮材料、热处理方式、精度等级 (2)三、初步计算传动主要尺寸 (2)四、计算传动尺寸 (2)五、大齿轮结构尺寸的确定 (2)参考文献 (7)一、设计任务书题目:带式运输机结构简图见下图:原始数据如下：机器工作平稳，单向回转，成批生产二、选择齿轮材料、热处理方式、精度等级带式输送机为一般机械，并且在开式环境下，润滑较差，主要失效形式为齿面的磨粒磨损，应采用耐磨性好的材料，在速度不高的情况下，大小齿轮均选用球墨铸铁材料，大齿轮为QT600-2，小齿轮为QT700-2，并采用硬齿面。

由参考文献2表6.2查得：小齿轮大齿轮均表面淬火处理，小齿轮齿面平均硬度265HBW ；大齿轮齿面平均硬度为230HBW 。

大小齿轮表面硬度差为35HBW ，选用8级精度。

由V 型传送带设计可知总传动比第一级传动比1 1.8i =； 则第二级传动比 5.93i =第二级转速为2960/1.8533.3/m i n n r == 三、初步计算传动主要尺寸因为齿轮采用硬齿面开式传动，，因此初步确定按齿根弯曲疲劳强度设计齿轮传动主要参数和尺寸。

齿根弯曲疲劳强度设计公式式中F Y ——齿形系数，反映了轮齿几何形状对齿根弯曲应力F σ的影响s Y ——应力修正系数，用以考虑齿根过度圆角处的应力集中和除弯曲应力以外的其它应力对齿根应力的影响。

Y ε——重合度系数，是将全部载荷作用于齿顶时的齿根应力折算为载荷作用于单对齿啮合区上界点时的齿根应力系数[]F σ——许用齿根弯曲应1.小齿轮传递的转矩I T由V 带传动设计大作业，知I =51.5T N m ⋅2.载荷系数K 的确定初选载荷系数t K = 1.43.齿宽系数d φ的确定由参考文献2表6.6，由于小齿轮为悬臂齿硬齿面所以选取齿宽系数0.2~0.25d φ=，故选为0.25d φ=4.齿数的初步确定初选小齿轮1z =18设计要求中齿轮传动比 5.93i =，故21 5.9318106.74z iz ==⨯= 圆整后，取2z =107，此时传动比误差5.齿形系数F Y 和应力修正系数s Y由参考文献2图6.20查得齿形系数1 2.9F Y =，2 2.2F Y =由参考文献2图6.21查得应力修正系数1 1.53s Y =，21.82s Y = 6.重合度系数Y ε的确定对于标准外啮合齿轮传动，端面重合度式中1z 、2z ——把1z = 18 ，2z = 107，代入上式得根据经验公式，确定7.许用弯曲应力的确定式中lim F σ——计入了齿根应力修正系数之后,试验齿轮的齿根弯曲疲劳极限应力；当齿轮双侧工作时图中时值乘以0.7F S ——安全系数；与疲劳点蚀相比，断齿的后果更为严重。

Harbin Institute of Technology机械设计大作业说明书大作业名称：v带传动设计设计题目： 5.1.2班级：1202201设计者：*****学号：*******指导教师：**设计时间：2014.10.27-2014.10.31哈尔滨工业大学目录1任务书 (1)2 选择电动机 (2)3 选择带的型号 (2)4确定带轮的基准直12d d d d 和 (2)5 验算带的速度 (2)6 确定中心距a 和V 带基准长d L (2)7 计算小轮包1 (3)8 确定 V 带Z (3)9 确定初拉0F (4)10 计算作用在轴上的压Q (4)11 带轮结构计 (5)12 参考文献 (5)机械设计作业任务书题目:带式运输机结构简图见下图:原始数据如下：机器工作平稳，单向回转，成批生产2 选择电动机 2.1选择电动机类型 由方案图表中的数据表示的工作要求和工作条件，选用Y 系列三相鼠笼型异步电动机，其结构为全封闭式自扇冷式结构，电压为380v 。

2.2选择电动机的容量与转速电动机工作功率P d =4KW,则电动机额定功率大于等于该值，又由满载转速要求，查阅参考文献[2]表15.1得到选择电动机类型为Y132M1-6,查阅参考文献[2]表15.2得到外形尺寸和结构尺寸，可查得轴径为38mm,长为80mm 。

3 选择带的型号查看教材图7.11可选取A 型带。

4确定带轮的基准直径12d d d d 和查参考文献[1]表7.7有， V 带带轮最小基准直径min d d 知A 型带min d d =75mm,又由教材表7.3选取小带轮基准直径：1100d d mm =；大带轮基准直径：d d2=i 1×d d1=2×100=200mm 查教材表7.3选取大带轮基准直径d d2=200mm; 其传动比误差Δi =200100−22=0<5%，故可用。

5 验算带的速度v/(m ∙s −1)=πd d1∙n160×1000=5.024m ∙s −1式中 1n --电动机转速；1d d ——小带轮基准直径；即v=5.024m/s< max v =25m/s,符合要求。

哈工大机械设计带传动设计电算大作业vb和c语言程序代码课程名称, 机械设计电算题目, V带传动设计院系, 机电控制学院班级, 1308102班设计者, 尤开灵学号, 1130810222 设计时间, 2015.10.17 部分变量说明(所有说明见程序部分变量定义)ka 工作情况系数 p 输入功率 kwpd 工作功率 kw i 传动比n1 输入小轮转速 r/min d1 小带轮直径 mmd2 大带轮直径 mm v 皮带速度 m/sjiao 输出包容角度 ? ff0 初拉力 Nff1 轴间力 N ld 带的长度 mmz 皮带代数根 m 质量 kg程序运行截图判断语句:包括速度判断选择小轮直径，输入数据判断小轮直径输出结果及其函数界面'运行程序程序代码Private Sub Command5_Click() '条件输入确定 Dim ka1 As Double '工作情况系数变量 Call f0Dim ka As Double '工作情况系数 Call f1Dim p As Double '输入功率 Text5.Text = n1 & "r/min" Dim pi As Double 'pi的定义 Text4.Text = pd & "kw" Dim pd As Double '工作功率 End Sub Dim i As Double '传动比 Private Sub Command2_Click() '小轮直径选择与确定 Dim n1 As Double '输入小轮转速 d1 = Val(Text7.Text) Dim d1 As Double '小带轮直径 Call f2Dim d2 As Double '大带轮直径 Call f3Dim k As Double '循环变量 Call f4Dim a() As Variant '小轮直径选择序列 End SubDim b() As Variant '皮带的长度选择序列 Private Sub Command3_Click() '中心距离输入 Dim nn() As Variant '转速的选择序列 aa = Val(Text16.Text) Dim mm() As Variant '包容修正系数列表 Call f5Dim v As Double '皮带速度 End SubDim aa As Double '输入中心距离 Private Sub Command4_Click() '计算Dim aaa As Double '输出实际中心距 Call f6Dim jiao As Double '输出包容角度 Call f7Dim ff0 As Double '初拉力 Call f8Dim ff1 As Double '轴间力 Text6.Text = d1 & "mm" Dim ld As Double '带的长度 Text9.Text = d2 & "mm" Dim shunxu As Double '基本额定功率顺序Text10.Text = z & "根"Dim shunxu1 As Double '长度顺序 Text12.Text = aaa & "mm" Dim pnum() As Variant '基本功率序列 Text11.Text = jiao & "度" Dim lxishu() As Variant 'c长度系数 Text13.Text = ff0 & "N" Dim p0 As Double '基本功率Text14.Text = ff1 & "N" Dim dp0 As Double '增加功率 End SubDim z As Double '皮带数 Private Sub Command1_Click() Dim kaa As Double '包容修正系数 EndDim kl As Double '长度系数 End SubDim ki As Double '传动比系数 Private Sub f0() '参数赋值函数 Dim kbAs Double '弯曲系数 pi = 3.14159Dim m As Double '质量 p = Val(Text1.Text)i = Val(Text2.Text)n1 = Val(Text3.Text) If dianjileixing.Text = "I类" And zaihe.Text = "a() = Array(20, 28, 31.5, 35.5, 40, 45, 50, 56, 63, 载荷变动较大" And workhour.Text = "10-16h/天" Then 71, 75, 80, 90, 100, 112, 125, 140, 150, 160, 180, ka1 = 1.3200, 224, 250, 280, 315, 355, 400, 425, 450, 500, Ifdianjileixing.Text = "I类" And zaihe.Text = "560, 600, 630, 710, 800, 0) 载荷变动较大" And workhour.Text = ">16h/天" Then b() = Array(200, 224, 250, 280, 315, 355, 400, 450, ka1 = 1.4500, 560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, Ifdianjileixing.Text = "I类" And zaihe.Text = "1600, 1800, 2000, 2240, 2500, 2800, 3150, 3550, 4000, 载荷变动很大" And workhour.Text = "<10h/天" Then 4500, 5000, 0) ka1 = 1.3nn() = Array(100, 200, 400, 700, 800, 950, 1200, 1450, If dianjileixing.Text = "I类" And zaihe.Text = "1600, 2000, 2400, 2800, 3200, 3600, 4000, 4500, 5000, 载荷变动很大" And workhour.Text = "10-16h/天" Then 5500, 6000, 0) ka1 = 1.4mm() = Array(0.68, 0.73, 0.78, 0.82, 0.86, 0.89, Ifdianjileixing.Text = "I类" And zaihe.Text = "0.92, 0.95, 0.98, 1, 1.05, 1.1, 1.15, 1.2, 0) 载荷变动很大" And workhour.Text = ">16h/天" Then End Sub ka1 = 1.5Private Sub f1() '选择ka1 计算pd If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷平稳" And workhour.Text = "<10h/天" Then ka1 = 载荷平稳" And workhour.Text = "<10h/天" Then ka1 = 1.11 If dianjileixing.Text = "II类" And zaihe.Text = "Ifdianjileixing.Text = "I类" And zaihe.Text = "载荷平稳" Andworkhour.Text = "10-16h/天" Then ka1 载荷平稳" And workhour.Text = "10-16h/天" Then ka1 = 1.2= 1.1 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷平稳" Andworkhour.Text = ">16h/天" Then ka1 = 载荷平稳" And workhour.Text =">16h/天" Then ka1 = 1.31.2 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动小" And workhour.Text = "<10h/天" Then ka1 载荷变动小" And workhour.Text ="<10h/天" Then ka1 = 1.2= 1.1 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动小" And workhour.Text = "10-16h/天" Then 载荷变动小" And workhour.Text = "10-16h/天" Then ka1 = 1.3ka1 = 1.2 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动小" And workhour.Text = ">16h/天" Then ka1 载荷变动小" And workhour.Text =">16h/天" Then ka1 = 1.4= 1.3 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动较大" And workhour.Text = "<10h/天" Then 载荷变动较大" And workhour.Text = "<10h/天" Then ka1 = 1.4ka1 = 1.2 If dianjileixing.Text = "II类" And zaihe.Text = "载荷变动较大" And workhour.Text = "10-16h/天" Then Exit Subka1 = 1.5 End IfIf dianjileixing.Text = "II类 " And zaihe.Text = "载荷变动较大" And workhour.Text = ">16h/天" Then End Subka1 = 1.6 Private Sub f3() '判断速度If dianjileixing.Text = "II类" And zaihe.Text = "v = pi * d1 * n1 / 60 / 1000 载荷变动很大" And workhour.Text = "<10h/天" Thenka1 = 1.5 If v > 20 Then If dianjileixing.Text = "II类 " And zaihe.Text = "MsgBox "小带轮直径过大～，重新输入直径" 载荷变动很大" And workhour.Text = "10-16h/天" Then Exit Subka1 = 1.6 End IfIf dianjileixing.Text = "II类" And zaihe.Text = "载荷变动很大" And workhour.Text = ">16h/天" Then If v < 5 Thenka1 = 1.8 MsgBox "小带轮直径过小～，重新输入直径" If Check1.Value = 0 Then ka = ka1 Exit SubIf Check1.Value = 1 Then ka = ka1 * 1.1 End Ifpd = p * kaEnd Sub End SubPrivate Sub f2() '计算带轮直径 Private Sub f4() '估计中心距离 d1 =Val(Text7.Text)d2 = 0 Dim aa0 As DoubleDim aa1 As Double For k = 0 To 50 Step 1If a(k) = 0 Then aa0 = 0.7 * (d1 + d2)Exit For aa1 = 2 * (d1 + d2)End If Text15.Text = aa0 & "-" & aa1If Abs((a(k) / d1 - i) / i) <= 0.05 Then End Subd2 = a(k) Private Sub f5() '确定带长和中心距和角度Exit For Dim ll As DoubleEnd If Dim c1 As DoubleDim c2 As Double Next kIf Text8.Text = "Y" Then lxishu = Array(0.81, 0.82,If d2 = 0 Then 0.84, 0.87, 0.9, 0.92, 0.96, 1, 1.02, 0, 0, 0, 0,MsgBox "小带轮直径和带型选择不合适～，重新输入0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,直径" 0, 0, 0, 0, 0, 0, 0, 0, 0)If Text8.Text = "Z" Then lxishu = Array(0, 0, 0, 0,0, 0, 0.87, 0.89, 0.91, 0.94, 0.96, 0.99, 1, 1.03, If b(k) = 0 Then1.06, 1.08, 1.1, 1.14, 1.16, 1.18, 0, 0, 0, 0, 0, Exit For0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) End IfIf Text8.Text = "A" Then lxishu = Array(0, 0, 0, 0, Next k0, 0, 0, 0, 0, 0, 0.81, 0.83, 0.85, 0.87, 0.89, 0.91,0.93, 0.96, 0.99, 1.01, 1.03, 1.06, 1.09, 1.11, 1.13, kl =lxishu(shunxu1)1.17, 1.19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) aaa = aa + (ld - ll) / 2If Text8.Text = "B" Then lxishu = Array(0, 0, 0, 0, jiao = 180 -((d2 - d1) / aaa * 57.3) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.82, 0.84, 0.86,0.88, End Sub0.9, 0.92, 0.95, 0.98, 1, 1.03, 1.05, 1.07, 1.09,1.13, 1.15, 1.18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) Private Sub f6() '确定根数If Text8.Text = "C" Then lxishu = Array(0, 0, 0, 0, Dim c1 As Double 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.83, 0.86, Dim c2 As Double0.88, 0.91, 0.93, 0.95, 0.97, 0.99, 1.02, 1.04, 1.07, c2 = 50001.09, 1.12, 1.15, 1.18, 1.21, 1.23, 0, 0, 0, 0)If Text8.Text = "D" Then lxishu = Array(0, 0, 0, 0, If Text8.Text = "Y" And Text7.Text = "20" Then pnum 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, = Array(0, 0, 0, 0, 0, 0.01, 0.02, 0.02, 0.03, 0.03, 0, 0, 0.83, 0.86, 0.89, 0.91, 0.93, 0.96, 0.98, 1, 0.04, 0.04, 0.06, 0.06,0.07, 0.08, 0.09, 0.1) 1.03, 1.06, 1.08, 1.11, 1.14, 1.17, 1.2, 1.22) If Text8.Text = "Y" And Text7.Text = "28" Then pnum If Text8.Text = "E" Then lxishu = Array(0, 0, 0, 0, = Array(0, 0, 0, 0, 0.03, 0.04, 0.04,0.05, 0.05, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.06,0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0, 0, 0, 0, 0, 0, 0.9,0.92, 0.96, 0.97, 1, 1.02, 0.15)1.05, 1.07, 1.1, 1.12, 1.15, 1.18) If Text8.Text = "Y" AndText7.Text = "35.5" Then pnum= Array(0, 0, 0, 0.04, 0.05, 0.05, 0.06, 0.06, 0.07, ll = 2 * aa +pi / 2 * (d1 + d2) + (d1 - d2) ^ 2 / 0.08, 0.09, 0.11, 0.12, 0.13, 0.14, 0.16, 0.18, 0.19, (4 * aa) 0.2)c2 = 5000 If Text8.Text = "Y" And Text7.Text = "40" Then pnum= Array(0, 0, 0, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, For k = 0 To 100 Step 1 0.11, 0.12, 0.14, 0.15, 0.16, 0.18, 0.19, 0.2, 0.22, c1 = Abs(b(k) - ll) 0.24)If c1 < c2 Then If Text8.Text = "Z" And Text7.Text = "50" Then pnum c2 = c1 = Array(0, 0.04, 0.06, 0.09, 0.1, 0.12, 0.14, 0.16,ld = b(k) 0.17, 0.2, 0.22, 0.26, 0.28, 0.3, 0.32, 0.33, 0.34,shunxu1 = k 0.33, 0.31)End If If Text8.Text = "Z" And Text7.Text = "63" Then pnum= Array(0, 0.05, 0.08, 0.13, 0.15, 0.18, 0.22, 0.25, If Text8.Text = "B" And Text7.Text = "180" Then pnum 0.27, 0.32, 0.37, 0.41, 0.45, 0.47, 0.49, 0.5, 0.5, = Array(0, 0.88, 1.59, 2.53, 2.81, 3.22, 3.85, 4.39,0.49, 0.48) 4.68, 5.3, 5.67, 0, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "Z" And Text7.Text = "71" Then pnum= Array(0, 0.06, 0.09, 0.17, 0.2, 0.23, 0.27, 0.3, If Text8.Text = "C" And Text7.Text = "200" Then pnum 0.33, 0.39, 0.46, 0.5, 0.54, 0.58,0.61, 0.62, 0.62, = Array(0, 1.39, 2.41, 3.69, 4.07, 4.58, 5.29, 5.84, 0.61, 0.58) 6.07, 6.34, 6.02, 0, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "Z" And Text7.Text = "80" Then pnum If Text8.Text = "C" And Text7.Text = "250" Then pnum = Array(0, 0.1, 0.14, 0.2, 0.22, 0.26, 0.3, 0.35, =Array(0, 2.03, 3.62, 5.64, 6.23, 7.04, 8.21, 9.04, 0.39, 0.44, 0.5, 0.56, 0.61, 0.64, 0.67, 0.67, 0.66, 9.38, 9.62, 0, 0, 0, 0, 0, 0, 0, 0, 0)0.64, 0) If Text8.Text = "C" And Text7.Text = "315" Then pnum= Array(0, 2.84, 5.14, 8.09, 8.92, 10.05, 11.53, If Text8.Text = "A" And Text7.Text = "75" Then pnum 12.46, 12.72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) = Array(0, 0.15, 0.26, 0.4, 0.45, 0.51, 0.6, 0.68, If Text8.Text = "C" And Text7.Text = "400" Then pnum 0.73, 0.84, 0.92, 1, 1.04, 1.08,1.09, 1.07, 1.02, = Array(0, 3.91, 7.06, 11.02, 12.1, 13.48, 15.04, 0.96, 0.8) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)If Text8.Text = "A" And Text7.Text = "90" Then pnum= Array(0, 0.22, 0.39, 0.61, 0.68, 0.77, 0.93, 1.07, If Text8.Text = "D" And Text7.Text = "355" Then pnum 1.15, 1.34, 1.5, 1.64, 1.73, 1.83, 1.87, 1.88, 1.82, = Array(3.01, 5.31, 9.24, 13.7, 14.83, 16.15, 17.25, 0, 0) 16.77, 15.63, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "A" And Text7.Text = "100" Then pnum If Text8.Text = "D" And Text7.Text = "400" Then pnum = Array(0, 0.26, 0.47, 0.74, 0.83, 0.95, 1.14, 1.32, =Array(3.66, 6.52, 11.45, 17.07, 18.46, 20.06, 21.2, 1.42, 1.66, 1.87,2.05, 2.19, 2.28, 2.34, 2.33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)0, 0) If Text8.Text = "D" And Text7.Text = "450" Then pnum IfText8.Text = "A" And Text7.Text = "125" Then pnum = Array(4.37, 7.9,13.85, 20.63, 22.25, 24.01, 24.84, = Array(0, 0.37, 0.67, 1.07, 1.19,1.37, 1.66, 1.92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)2.07, 2.44, 2.74, 2.98,3.16, 3.26, 0, 0, 0, 0, 0) If Text8.Text = "D" And Text7.Text = "500" Then pnum= Array(5.08, 9.21, 16.2, 23#, 25.76, 27.5, 0, 0, If Text8.Text = "B" And Text7.Text = "125" Then pnum 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) = Array(0, 0.48, 0.84, 1.3, 1.44, 1.64, 1.93, 2.19,2.33, 2.64, 2.85, 2.96, 2.94, 2.8, 0, 0, 0, 0, 0) If Text8.Text = "E" And Text7.Text = "500" Then pnum If Text8.Text = "B" And Text7.Text = "140" Then pnum = Array(6.21, 10.86, 18.55, 26.21, 27.57, 28.32, 0, = Array(0, 0.59, 1.05, 1.64, 1.82, 2.08, 2.47, 2.82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)3, 3.42, 3.7, 3.85, 3.83, 0, 0, 0, 0, 0, 0) If Text8.Text = "E" And Text7.Text = "560" Then pnum If Text8.Text = "B" And Text7.Text = "160" Then pnum = Array(7.32, 13.09, 22.49, 31.59, 33.03, 33.4, 0, = Array(0, 0.74, 1.32, 2.09, 2.32, 2.66, 3.17, 3.62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)3.86,4.4, 4.75, 4.89, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "E" And Text7.Text = "630" Then pnum= Array(8.75, 15.65, 26.95, 37.26, 38.62, 0, 0, 0, ElseIf i >= 1.05 And i <= 1.08 Then 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) ki = 1.0276 If Text8.Text = "E" And Text7.Text = "710" Then pnum ElseIf i >=1.09 And i <= 1.12 Then = Array(10.31, 18.52, 31.83, 42.87, 43.52, 0, 0, 0, ki = 1.04190, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) ElseIf i >= 1.13 And i <= 1.18 Then ki = 1.0567For k = 0 To 20 Step 1 ElseIf i >= 1.19 And i <= 1.24 Thenc1 = Abs(nn(k) - n1) ki = 1.0719If c1 < c2 Then ElseIf i >= 1.25 And i <= 1.34 Thenc2 = c1 ki = 1.0875shunxu = k ElseIf i >= 1.35 And i <= 1.51 ThenEnd If ki = 1.1036If nn(k) = 0 Then ElseIf i >= 1.52 And i <= 1.99 ThenExit For ki = 1.1202End If ElseIf i >= 2 ThenNext k ki = 1.1373End Ifp0 = pnum(shunxu)For k = 0 To 21 Step 1If Text8.Text = "Z" Then jiao) c1 = Abs(100 + k * 10 - kb =0.0002925 If c1 <= 5 ThenElseIf Text8.Text = "A" Then kaa = mm(k)kb = 0.0007725 End IfElseIf Text8.Text = "B" Then Next kkb = 0.0019785ElseIf Text8.Text = "C" Then dp0 = kb * n1 * (1 - 1 / ki) kb =0.005625 z = pd / (p0 + dp0) / kaa / kl ElseIf Text8.Text = "D" Then z = Round(z, 0)kb = 0.01995ElseIf Text8.Text = "E" Then If z >= 10 Thenkb = 0.03735 MsgBox "小带轮直径和带型选择不合适～,重新输入End If 直径和选择带型"Exit SubIf i >= 1 And i <= 1.01 Then End Ifki = 1 End SubElseIf i >= 1.02 And i <= 1.04 Then Private Sub f7() '选择质量函数ki = 1.0136 If Text8.Text = "Z" Thenm = 0.06 ElseIf Text8.Text = "A" Then m = 0.1 ElseIf Text8.Text = "B" Then m = 0.17 ElseIf Text8.Text = "C" Then m = 0.3 ElseIf Text8.Text = "D" Then m = 0.6 ElseIf Text8.Text = "E" Then m = 0.9 End If End Sub Private Sub f8() '计算初拉力和轴向力 ff0 = 500 * pd / z / v * (2.5 - kaa) / kaa + m * v * vff1 = 2 * z * ff0 * Sin(jiao * pi / 2 / 180)ff0 = Round(ff0, 3)ff1 = Round(ff1, 3)aaa = Round(aaa, 3)jiao = Round(jiao, 3) End Subdd2=DD2[j];else #include<stdio.h>dd2=DD2[j-1]; #include<math.h>return dd2; #include<string.h>} #define PAI 3.14float* Compute_LAK(float dd1,float dd2,int TYPE) #include<windows.h> {int j=0;float a1,a2,a0,Ld0,temp,KALF,Ld,a,KL; float Select_dd1(int TYPE) float LAK[3]; {float int i;kl[23][6]={{400,0.87},{450,0.89},{500,0.91}, float dd1;{560,0.94},{630,0.96,0.81},{710,0.99,0.83},{ float800,1.00,0.85,0.82},{900,1.03,0.87,0.84,0.83},{1DD1[6][4]={{50,63,71 ,80},{75,90,100,125},{125,14000,1.06,0.89,0.86,0.86,0.83}, 0,160,180},{1120,1.08,0.91,0.88,0.88,0.86},{1250,1.10,0.93,0.90,0.91,0.89},{1400,1.14,0.96,0.92,0.93,0.{200,250,315,400},{355,400,450,500},{500,56091},{1600,1.16,0.99,0.95,0.95,0.93}, ,630,710}};{1800,1.18,1.01,0.98,0.97,0.96},{2000,0,1.03 printf("该带型推荐的小带轮基准直径有,1.00,0.99,0.98},{2240,0,1.06,1.03,1.02,1.00},{2(mm):\n");500,0,1.09,1.05,1.04,1.03}, for(i=0;i<4;i++){2800,0,1.11,1.07,1.07,1.06},{3150,0,1.13,1. {09,1.09,1.08},{3550,0,1.17,1.13,1.12,1.11},{4000 printf("%.2f",DD1[TYPE][i]);,0,1.19,1.15,1.15,1.14},{4500,0,0,1.18,1.18,1.17 }},{5000,0,0,0,1.21,1.20}}; printf("\n请选择小带轮基准直径dd1:");a1=0.7*(dd1+dd2); scanf("%f",&dd1);a2=2*(dd1+dd2); return dd1;printf("请选择输入初估中心距a0(范围}为%.2fmm~%.2fmm):",a1,a2); float Select_dd2(int dd1,float i) scanf("%f",&a0); {Ld0=2*a0+(dd1+dd2)*PAI/2+(dd2-dd1)*(dd2-dd1) float/a0/4; DD2[]={50,56,63,71,80,90,100,112,125,140,150,160for(j=0;j<23;j++) ,180,200,224,{temp=Ld0-kl[j][0]; 250,280,315,355,400,425,450,500,560,600,630, if(temp<=0) 710,800};break; float dd2,temp,t;} int j=0;if((Ld0-kl[j-1][0])>(kl[j][0]-Ld0)) temp=i*dd1;{ Ld=kl[j][0]; for(j=0;j<28;j++)KL=kl[j][TYPE+1]; {} t=temp-DD2[j];else if(t<=0){ Ld=kl[j-1][0]; break;KL=kl[j-1][TYPE+1]; }} if((DD2[j]-temp)<(temp-DD2[j-1]))a=a0+(Ld-Ld0)/2;LAK[0]=Ld; printf("电机额定功率P(KW):");LAK[1]=a; scanf("%f",&P);LAK[2]=KL; printf("小带轮/电动机转速n1(r/min):");return LAK; scanf("%f",&n1); } printf("传动比i:");scanf("%f",&i);printf("每天工作时间H(h):"); int main() scanf("%f",&H); { printf("原动机类型(1或):");float scanf("%d",&YDJ);ka1[4][3]={{1.0,1.1,1.2},{1.1,1.2,1.3},{1.2,1.3, printf("工作机载荷类型:\n1,载荷平稳\n2,载荷 1.4},{1.3,1.4,1.5}}; 变动较小\n3,载荷变动较大\n4,载荷变动很大\n");float scanf("%d",&GZJ);ka2[4][3]={{1.1,1.2,1.3},{1.2,1.3,1.4},{1.4,1.5,DX: printf("选择V带带型:"); 1.6},{1.5,1.6,1.8}}; scanf(" %c",&type);float if(type<91) K1[6]={0.246,0.449,0.794,1.48,3.15,4.57}; type+=32;float switch(type) KI[10]={1.0000,1.0136,1.0276,1.0419,1.0567,1.071 {9,1.0875,1.1036,1.1202,1.1373}; case 'z':float TYPE=0; I[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1break; .52,2.00}; case 'a':float TYPE=1; K2[6]={7.44,19.02,50.6,143.2,507.3,951.5}; break;float case 'b': K3[6]={0.441e-4,0.765e-4,1.31e-4,2.34e-4,4.77e-4TYPE=2; ,7.06e-4}; break;float case 'c': KB[6]={0.2925e-3,0.7725e-3,1.9875e-3,5.625e-3,19TYPE=3; .95e-3,37.35e-3}; break;float case 'd': kalf[2][14]={220,210,200,190,180,170,160,150,140 TYPE=4; ,130,120,110,100,90,1.20,1.15,1.10,1.05,1.00,0.9 break;8,0.95,0.92, case 'e':0.89,0.86,0.82,0.78,0.73,0.68}; TYPE=5;float M[6]={0.06,0.1,0.17,0.3,0.6,0.9}; break;float f[6]={8,10,12.5,17,23,29}; case 'y':float e[6]={12,15,19,25.5,37,44.5}; TYPE=6;float break; P,H,i,n1,KA,Ki,dd1,dd2,V,P0,DIFP0,Pd,VMAX,*LAK,m case 's': ,Ld,KALF,a,KL,z,F0,ALF1,Q,B,Kb; TYPE=7;int YDJ,GZJ,TYPE,ANS,j; break;char type,ans; case 'n':printf(" V带传动 TYPE=8; 设计程序\n"); }START: printf("请输入初始参数:\n"); if(YDJ==1){ break;if(H<10) }Ki=KI[j]; KA=ka1[GZJ-1][0];Kb=KB[TYPE]; else if(H>16)KA=ka1[GZJ-1][2]; DIFP0=Kb*n1*(1-1/Ki);else LAK=Compute_LAK(dd1,dd2,TYPE);KA=ka1[GZJ-1][1]; Ld=LAK[0];} a=LAK[1];if(YDJ==2) KL=LAK[2];{ ALF1=180-57.3*(dd2-dd1)/a;if(H<10) for(j=0;j<14;j++)KA=ka2[GZJ-1][0]; {else if(H>16) if(ALF1<kalf[0][j]&&ALF1>kalf[0][j+1])KA=ka2[GZJ-1][2]; {elseKA=ka2[GZJ-1][1]; KALF=kalf[1][j]+(kalf[1][j]-kalf[1][j+1])*(ALF1- } kalf[0][j])/10;Pd=KA*P; break;switch(TYPE) }{ }case 0: z=ceil(Pd/(KALF*KL*(P0+DIFP0)));case 1: if(z>=10)case 2: goto DX;case 3: m=M[TYPE];VMAX=25; F0=500*Pd*(2.5-KALF)/(z*V*KALF)+m*V*V;Q=2*z*F0*sin(ALF1*PAI/360); break;case 4: B=(z-1)*e[TYPE]+2*f[TYPE];case 5:VMAX=30; printf("小带轮基准直径dd1:%.3f mm\n大带轮基准直径break; dd2:%.3f mm\n中心距a:%.3f mm\n带长L:%.3f mm\n带宽} B:%.3f mm\n带的根数Z:%.3f\n初拉力F0:%.3f N\n轴压DD1:dd1=Select_dd1(TYPE); 力FQ:%.3f N\n",dd1,dd2,a,Ld,B,z,F0,Q);V=PAI*dd1*n1/60000; X: printf("计算下一组带轮直径按'Y',重新开始按while(V>VMAX) 'S',结束按'N':");{ scanf(" %c",&ans);printf("V带速度验算不符!小带轮基准直径过小!请重新选择!\n"); if(ans=='y')dd1=Select_dd1(TYPE); goto DD1;V=PAI*dd1*n1/60000; else if(ans=='s')} goto START;dd2=Select_dd2(dd1,i); else if(ans=='n')P0=(K1[TYPE]*pow(V,-0.09)-K2[TYPE]/dd1-K3[TY printf("程序结束"); PE]*V*V)*V; elsefor(j=9;j>=0;j--) {{ printf("输入错误，请重新输入");m=i-I[j]; goto X;if(m>=0) }return 0;}。