哈工大-机械设计大作业-带传动程序

HHaarrbbiinnIInnssttiittuutteeooffTTeecchhnnoollooggyy上上机机电电算算说说明明书书课程名称：机械设计电算题目：普通V带传动院系：机电工程学院班级：1308xxx设计者：xxxxxxx学号：11308xxxxxx指导教师：xxxxxx设计时间：xxxxxxxxxxxxxxxxxxxxxx哈尔滨工业大学目录一、普通V带传动的内容.....................................................1二、变量标识符.............................................................1三、程序框图...............................................................2四、V带设计C程序..........................................................3五、程序运行截图..........................................................10参考文献..................................................................111一、普通V带传动的内容给定原始数据：传递的功率P，小带轮转速n1传动比i及工作条件设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q。二、变量标识符为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。表1变量标识符表。表1变量标识符表序号名称代号标识符单位1名义功率PPkW2设计功率PdPdkW3工作情况系数KAKA4小带轮转速n1n1r/min5工作机载荷特性GZJ6原动机类型YDJ7带型号Z、A—ETYPE8小带轮基准直径dd1dd1mm9大带轮基准直径dd2dd2mm10最小带轮直径ddminddMINmm11带速Vm/s12最大带速maxvVMAXm/s13中心距aamm14基准长度LdLdmm15小带轮包角1ALF1度16V带根数ZZ17额定功率P0P0kW18功率增量0PDIFP0kW19弯曲影响系数KbKb20传动比系数KiKi21长度系数KLKL22包角系数KKALF23初拉力F0F0N24压轴力QQN25圆周率PAI26轮缘宽度BBmm2三、程序框图N开始输入P,n1,i输入各原始数据查表求传动比系数Ki查KA,计算Pd，选型查表求KA,计算Pd输入带型号输出该型号带轮系列直径，选择输入小带轮基准直径dd1V=10006011ndd根据型号确定最大带速Vmax，额定功率P0中系数K1,K2,K3，弯曲影响系数KbVVmax?Ydd2=1ddi查标准带轮直径表确定dd2a1=0.7(dd1+dd2)，a2=2(dd1+dd2)输入初估中心距a0,计算Ld0A减小直径BB查标准长度确定Ld，同时查取KL，计算实际中心距aA计算小带轮包角1查表确定包角系数K计算Po，PoKKPoPoPdZLZ10?计算Fo,Q,B(取整)输出结果计算下一型号带？结束计算下一种带轮直径？YYYNNN图1V带设计程序框图3四、V带设计c程序#includestdio.h#includemath.h#includestring.h#definePAI3.14intTYPE_TO_NUM(chartype);/*将输入的字符（不论大小写）转换为数字方便使用*/floatSelect_Ki(floati);/*查表选择Ki的程序*/floatSelect_KA(floatH,intGZJ,intYDJ);/*查表选择KA的程序*/floatSelect_KL(floatLd,intTYPE);/*查表选择KL的程序*/floatSelect_M(intTYPE);/*查表选择m的程序*/floatSelect_dd1(intTYPE);/*查表选择小轮基准直径dd1的程序*/floatSelect_dd2(intdd1,floati);/*查表选择大轮直径dd2的程序*/floatCompute_P0(floatV,intTYPE,floatdd1);/*计算P0的程序*/floatCompute_DIFP0(intTYPE,floatKi,intn1);/*计算DIFP0的程序*/floatCompute_VMAX(intTYPE);/*计算VMAX的程序*/floatCompute_KALF(floatALF1);/*计算KALF的程序*/floatCompute_B(intTYPE,intz);/*计算带宽B的程序*/float*Compute_LAK(floatdd1,floatdd2,intTYPE);/*计算Ld，a，KL的程序*/main(){floatP,H,i,n1,KA,Ki,dd1,dd2,V,P0,DIFP0,Pd,VMAX,*LAK,m,Ld,KALF,a,KL,z,F0,ALF1,Q,B;intYDJ,GZJ,TYPE,ANS;chartype,ans;printf(V带传动设计程序\n);printf(程序设计人:崔志鹏\n班号:1308106\n学号:1130810607\n);START:printf(请输入原始参数:\n);printf(传递功率P(KW):);scanf(%f,&P);printf(小带轮转速n1(r/min)：);scanf(%f,&n1);printf(传动比i:);scanf(%f,&i);printf(每天工作时间H(h):);scanf(%f,&H);printf(原动机类型(1或2):);scanf(%d,&YDJ);printf(工作机载荷类型:\n1,载荷平稳\n2,载荷变动较小\n3,载荷变动较大\n4,载荷变动很大\n);scanf(%d,&GZJ);DX:printf(带型:);scanf(%c,&type);TYPE=TYPE_TO_NUM(type);4KA=Select_KA(H,GZJ,YDJ);Pd=KA*P;VMAX=Compute_VMAX(TYPE);DD1:dd1=Select_dd1(TYPE);V=PAI*dd1*n1/60000;while(VVMAX){printf(所选小轮基准直径过小!请重新选择!\n);dd1=Select_dd1(TYPE);V=PAI*dd1*n1/60000;}dd2=Select_dd2(dd1,i);P0=Compute_P0(V,TYPE,dd1);Ki=Select_Ki(i);DIFP0=Compute_DIFP0(TYPE,Ki,n1);LAK=Compute_LAK(dd1,dd2,TYPE);Ld=LAK[0];a=LAK[1];KL=LAK[2];ALF1=180-57.3*(dd2-dd1)/a;KALF=Compute_KALF(ALF1);z=ceil(Pd/(KALF*KL*(P0+DIFP0)));if(z=10)gotoDX;m=Select_M(TYPE);F0=500*Pd*(2.5-KALF)/(z*V*KALF)+m*V*V;Q=2*z*F0*sin(ALF1*PAI/360);B=Compute_B(TYPE,z);printf(计算结果\n);printf(小轮直径:%fmm\n大轮直径:%fmm\n中心距:%fmm\n带长:%fmm\n带宽:%fmm\n带的根数:%f\n初拉力:%fN\n轴压力:%fN\n,dd1,dd2,a,Ld,B,z,F0,Q);X:printf(计算下一组带轮直径按'Y',重新开始按'S',结束按'N':);scanf(%c,&ans);ANS=TYPE_TO_NUM(ans);if(ANS==6)gotoDD1;elseif(ANS==7)gotoSTART;elseif(ANS==8)printf(程序结束);else{printf(输入错误，请重新输入);5gotoX;}}floatSelect_KA(floatH,intGZJ,intYDJ){floatka1[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}};floatka2[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}};floatKA;if(YDJ==1){if(H10)KA=ka1[GZJ-1][0];elseif(H16)KA=ka1[GZJ-1][2];elseKA=ka1[GZJ-1][1];}if(YDJ==2){if(H10)KA=ka2[GZJ-1][0];elseif(H16)KA=ka2[GZJ-1][2];elseKA=ka2[GZJ-1][1];}returnKA;}floatSelect_Ki(floati){floatm;floatKi[10]={1.0000,1.0136,1.0276,1.0419,1.0567,1.0719,1.0875,1.1036,1.1202,1.1373};floatI[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.52,2.00};intj=9;for(j=9;j=0;j--){m=i-I[j];if(m=0)break;}returnKi[j];}6intTYPE_TO_NUM(chartype){intx;if(type91)type+=32;switch(type){case'z':x=0;break;case'a':x=1;break;case'b':x=2;break;case'c':x=3;break;case'd':x=4;break;case'e':x=5;break;case'y':x=6;break;case's':x=7;break;case'n':x=8;break;}returnx;}floatCompute_P0(floatV,intTYPE,floatdd1){floatP0;floatK1[6]={0.246,0.449,0.794,1.48,3.15,4.57};floatK2[6]={7.44,19.02,50.6,143.2,507.3,951.5};floatK3[6]={0.441e-4,0.765e-4,1.31e-4,2.34e-4,4.77e-4,7.06e-4};7P0=(K1[TYPE]*pow(V,-0.09)-K2[TYPE]/dd1-K3[TYPE]*V*V)*V;returnP0;}floatCompute_DIFP0(intTYPE,floatKi,intn1){floatKb,DIFP0;floatKB[6]={0.2925e-3,0.7725e-3,1.9875e-3,5.625e-3,19.95e-3,37.35e-3};Kb=KB[TYPE];DIFP0=Kb*n1*(1-1/Ki);returnDIFP0;}floatSelect_dd1(intTYPE){inti;floatdd1;floatDD1[6][4]={{50,63,71,80},{75,90,100,125},{125,140,160,180},{200,250,315,400},{355,400,450,500},{500,560,630,710}};printf(该带型推荐的小带轮基准直径有(mm):\n);for(i=0;i4;i++){printf(%.2f,DD1[TYPE][i]);}printf(\n请选择小带轮直径dd1:);scanf(%