哈工大机械设计V带传动电算报告

HarbinInstituteofTechnology大作业设计说明书课程名称：设计题目：院系：班级：设计者：学号：指导教师：设计时间：哈尔滨工业大学目录一、普通V带传动的内容和任务.............................................11.普通V带传动设计内容...............................................12.CAD任务...........................................................1二、变量标识符...........................................................1三、程序框图.............................................................3四、V带设计C程序.......................................................4五、程序运行截图........................................................11六、设计总计............................................................15一、普通V带传动的内容和任务1、普通V带传动设计内容：给定原始数据：传递的功率P，小带轮转速n1传动比i及工作条件设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q2、CAD任务：①编制V带传动设计程序框图；②编制V带传动设计源程序；③按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果；④比较结果，从9种方案中选择一个最佳方案并按照此方案提供的几何和结构参数利用AutoCAD软件绘制大带轮零件工作图。二、变量标识符为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。表1变量标识符表表1变量标识符表序号名称代号标识符单位1名义功率PPkW2设计功率PdPdkW3工作情况系数KAKA4小带轮转速n1n1r/min5工作机载荷特性GZJ6原动机类型YDJ7带型号Z、A—ETYPE8小带轮基准直径dd1dd1mm9大带轮基准直径dd2dd2mm10最小带轮直径ddminddMINmm11带速Vm/s12最大带速maxVMAXm/s13中心距aamm14基准长度LdLdmm15小带轮包角1ALF1度16V带根数ZZ17额定功率P0P0kW18功率增量0PDIFP0kW19弯曲影响系数KbKb20传动比系数KiKi21长度系数KLKL22包角系数KKALF23初拉力F0F0N24压轴力QQN25圆周率PAI26轮缘宽度BBmm三、程序框图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带设计程序框图四、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班号:1208101\n学号:1120810104\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);KA=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(输入错误，请重新输入);gotoX;}}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];}intTYPE_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};P0=(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,