;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;START:printf<"欢迎使用普通V带传动设计电算软件\n">;printf<"机械设计电算\n张文奇1120810610\nV带传动设计程序\n">;printf<"\n">;printf<"请输入各项原始参数\n">;printf<"1.传递功率P<单位KW>:">;printf<"\n">;scanf<"%f",&P>;IF5:if10>{printf<"警告:传递功率过大,请重新输入\n">;printf<"1.传递功率P<单位KW>:">;printf<"\n">;scanf<"%f",&P>;gotoIF5;}printf<"\n">;printf<"2.小带轮转速n1<单位r/min>:">;printf<"\n">;scanf<"%f",&n1>;IF4:if10000>{printf<"警告:输入转速达到高速带传动,请降低转速并重新输入\n">;printf<"2.小带轮转速n1<单位r/min>:">;printf<"\n">;scanf<"%f",&n1>;gotoIF4;}printf<"\n">;printf<"3.传动比i:">;printf<"\n">;scanf<"%f",&i>;IF6:if4>{printf<"警告:输入传动比过高,请重新输入\n">;printf<"3.传动比i:">;printf<"\n">;scanf<"%f",&i>;gotoIF6;}printf<"\n">;printf<"4.原动机类型或II<2>>:\n说明:I类-普通鼠笼式电机、同步电机、直流电机〔并激,n>600r/min内燃机\nII类-交流电动机、直流电动机、单缸发动机、n<600r/min内燃机\n">;scanf<"%d",&YDJ>;IF1:if{printf<"输入错误!请重新输入!\n">;printf<"4.原动机类型或II<2>>:\n说明:I类-普通鼠笼式电机、同步电机、直流电机〔并激,n>600r/min内燃机\nII类-交流电动机、直流电动机、单缸发动机、n<600r/min内燃机\n">;scanf<"%d",&YDJ>;gotoIF1;}printf<"\n">;printf<"5.载荷类型:\n0:载荷平稳\n1:载荷变动较小\n2:载荷变动较大\n3:载荷变动很大\n">;scanf<"%d",&GZJ>;IF2:if{printf<"输入错误!请重新输入!\n">;printf<"5.载荷类型:\n0:载荷平稳\n1:载荷变动较小\n2:载荷变动较大\n3:载荷变动很大\n">;scanf<"%d",&GZJ>;gotoIF2;}printf<"\n">;printf<"6.每天的工作时间:\n0:<10h<一班制>\n1:10h~16h<两班制>\n2:>16h<三班制>\n">;scanf<"%f",&H>;IF3:if{printf<"输入错误!请重新输入!\n">;printf<"6.每天的工作时间:\n0:<10h<一班制>\n1:10h~16h<两班制>\n2:>16h<三班制>\n">;scanf<"%f",&H>;gotoIF3;}printf<"\n">;DX:printf<"7.请选择V带带型:\n">;scanf<"%c",&type>;TYPE=TYPE_TO_NUM;KA=Select_KA;Pd=KA*P;VMAX=Compute_VMAX;DD1:dd1=Select_dd1;V=PAI*dd1*n1/60000;whileVMAX>{printf<"\n">;printf<"警告:所选小轮基准直径过小!请重新选择!\n">;dd1=Select_dd1;V=PAI*dd1*n1/60000;}dd2=Select_dd2;P0=Compute_P0;Ki=Select_Ki;DIFP0=Compute_DIFP0;LAK=Compute_LAK;Ld=LAK[0];a=LAK[1];KL=LAK[2];ALF1=180-57.3*/a;KALF=Compute_KALF;z=ceil>>;if=10>gotoDX;m=Select_M;F0=500*Pd*<2.5-KALF>/+m*V*V;Q=2*z*F0*sin;B=Compute_B;printf<"\n">;printf<"计算结果\n">;printf<"\n">;printf<"小轮直径:%fmm\n\n大轮直径:%fmm\n\n中心距:%fmm\n\n带长:%fmm\n\n带宽:%fmm\n\n带的根数:%f\n\n初拉力:%fN\n\n轴压力:%fN\n\n",dd1,dd2,a,Ld,B,z,F0,Q>;printf<"\n">;X:printf<"请选择:\nY:计算下一组带轮\nS:重新开始\nN:结束\n">;scanf<"%c",&ans>;ANS=TYPE_TO_NUM;ifgotoDD1;elseifgotoSTART;elseifprintf<"程序结束">;else{printf<"输入错误,请重新输入">;gotoX;}}/*工作情况系数选择*/floatSelect_KA{/*表5.7工作情况系数KA*/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{ifKA=ka1[GZJ][0];elseifKA=ka1[GZJ][2];elseKA=ka1[GZJ][1];}if{ifKA=ka2[GZJ][0];elseifKA=ka2[GZJ][2];elseKA=ka2[GZJ][1];}returnKA;}/*传动比系数*/floatSelect_Ki{floatm;/*表5.6传动比系数Ki*/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=0;j-->{m=i-I[j];if=0>break;}returnKi[j];}/*确定选择带型*/intTYPE_TO_NUM{intx;if{type+=32;}switch{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{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=-K2[TYPE]/dd1-K3[TYPE]*V*V>*V;returnP0;}/*表5.5弯曲影响系数Kb*/floatCompute_DIFP0{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{inti;floatdd1;floatDD1[6][4]={{50.0,63.0,71.0,80.0},{75.0,90.0,100.0,125.0},{125.0,140.0,160.0,180.0},{200.0,250.0,315.0,400.0},{355.0,400.0,450.0,500.0},{500.0,560.0,630.0,710.0}};printf<"\n">;printf<"所选型号小带轮系列直径有:\n">;for{printf<"%f",DD1[TYPE][i]>;}printf<"\n8.请选择输入小带轮基准直径dd1:">;scanf<"%f",&dd1>;IF12:if{printf<"警告:未输入有效数据,请重新输入">;printf<"\n8.请选择输入小带轮基准直径dd1:">;scanf<"%f",&dd1>;gotoIF12;}returndd1;}/*大带轮基准直径*/floatSelect_dd2{floatDD2[]={50,56,63,71,80,90,100,112,125,140,150,160,180,200,224,250,280,315,355,400,425,450,500,560,600,630,710,800};floatdd2,temp,t;intj=0;temp=i*dd1;for{t=temp-DD2[j];ifbreak;}if<<>dd2=DD2[j];elsedd2=DD2[j-1];returndd2;}/*估计中心距*/float*Compute_LAK{intj=0;floata1,a2,a0,Ld0,temp,KALF,Ld,a,KL;floatLAK[3];floatkl[23][6]={{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,0.82},{900,1.03,0.87,0.84,0.83},{1000,1.06,0.89,0.86,0.86,0.83},{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.91},{1600,1.16,0.99,0.95,0.95,0.93},{1800,1.18,1.01,0.98,0.97,0.96},{2000,0,1.03,1.00,0.99,0.98},{2240,0,1.06,1.03,1.02,1.00},{2500,0,1.09,1.05,1.04,1.03},{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,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}};a1=0.7*;a2=2*;printf<"\n">;printf<"9.请选择输入初估中心距a0<范围为%.2fmm~%.2fmm>:",a1,a2>;scanf<"%f",&a0>;IF11:ifa2>{printf<"输入中心距超出范围,请重新输入\n">;printf<"9.请选择输入初估中心距a0<范围为%.2fmm~%.2fmm>:",a1,a2>;scanf<"%f",&a0>;gotoIF11;}Ld0=2*a0+*PAI/2+*/a0/4;for{temp=Ld0-kl[j][0];ifbreak;}if<>>{Ld=kl[j][0];KL=kl[j][TYPE+1];}else{Ld=kl[j-1][0];KL=kl[j-1][TYPE+1];}a=a0+/2;LAK[0]=Ld;LAK[1]=a;LAK[2]=KL;returnLAK;}/*最大带速*/floatCompute_VMAX{floatVMAX;switch{case0:case1:case2:case3:VMAX=25;break;case4:case5:VMAX=30;break;}returnVMAX;}floatSelect_M{floatm;floatM[6]={0.06,0.1,0.17,0.3,0.6,0.9};m=M[TYPE];returnm;}floatCompute_B{floatf[6]={8,10,12.5,17,23,29};floate[6]={12,15,19,25.5,37,44.5};floatB;B=*e[TYPE]+2*f[TYPE];returnB;}floatCompute_KALF{floatkalf[2][14]={220,210,200,190,180,170,160,150,140,130,120,110,100,90,1.20,1.15,1.10,1.05,1.00,0.98,0.95,0.92,0.89,0.86,0.82,0.78,0.73,0.68},KALF;inti;for{ifkalf[0][i+1]>{KALF=kalf[1][i]+*/10;break;}}returnKALF;}五、程序运行截图合理运行结果:输入中心距350mm,选择小带轮直径75mm,输出结果六、设计总结通过这段时间的V带传动设计电算上机,一方面我对V带传动设计过程有了更深的了解,另一方面也让我对程序设计的一般过程与规范以及注意事项有了一定的认识。同时在程序设计的过程中,我对这款软件有了一定的了解,学习了一些基本的应用。通过这次设计,锻炼了我们各方面的能力,使我们受益匪浅!七、参考文献宋宝玉王黎钦《机械设计》————高等教育出版社2010.5王连明宋宝玉《机械课程设计》——XX工业大学出版社2010.1