V带传动设计c程序的编制

#include#include#include#define PI 3.14159/int ; /其它参数float KA,P0,P0_1,Kb,Ki,Kl,Kv;/,P0_1为传递功增量float b1,bp,h,q;float Pc,N1,N2,Centerdistance,SmallpulleysAngle,F0,V,flag_a,flag_b,flag_c; /Pc为功率，N1为主动轮转速，N2为从动轮转速,Small pulleys Angle为小带轮包角,Z传动带根数,F0为初拉力/Kv为包角系数float pressure_Q,transmissionratio,Z_1; /pressure_Q轴上压力,transmissionratio为传动比int TYPE,D1,D2,Ld,Z,ch1; /TYPE为V带的类型，D1为主动轮基准直径，D2为从动轮直径， /V为带速,Ld为基准长度，Centerdistance为中心距float KA_softstart43=1.0,1.1,1.2,1.1,1.2,1.3,1.2,1.3,1.4,1.3,1.4,1.5, /工作情况系数KA 软起动时KA KA_loadstart43=1.1,1.2,1.3,1.2,1.3,1.4,1.4,1.5,1.6,1.5,1.6,1.8; /负载起动时KA void CHOOSE_KA();void CHOOSE_type(); void CHOOSE_gaugediameter();void LengthandCenterdistance();void Beltingthenumber();void initialtension();void Axispressure();void display();void explain();void otherparameters_dis();int Forclosetothenumber(int min,int max,int z); /*主函数*/void main() int goon;doexplain();CHOOSE_KA();CHOOSE_type();CHOOSE_gaugediameter();LengthandCenterdistance();Beltingthenumber();initialtension();Axispressure();display();scanf(%d,&goon);/if(goon!=1)/break;while(goon=1);/* 1.确定计算功率Pc */void CHOOSE_KA() int workingcondition,start_flag;float dayhour,nominalpower;printf(载荷变动选择：n);printf(n);printf(1.载荷变动微小：液体搅拌机;通风和鼓风机(=7.5KW);旋转式水泵和压缩机;发电机; 金属切削机床;印刷机;锯木机和木工机械。n);printf(n);printf(3.载荷变动较大：制砖机;斗式提升机;往复式水泵和压缩机;起重机;磨粉机;冲剪机床;橡胶 机械;振动筛;纺织机械;重载输送机。n);printf(n);printf(4.载荷变动很大：破碎机（旋转式、颚式等）;磨碎机（球磨、棒磨、管磨）。n);printf(n);printf(请选择工况(以数字标号输入):n);scanf(%d,&workingcondition);printf(n);printf(请选择起动方式: );printf(1为软起动，2为负载起动n);scanf(%d,&start_flag);printf(n);printf(请输入每天工作小时数(h):n);scanf(%f,&dayhour);printf(n);printf(请输入名义功率(KW):n);scanf(%f,&nominalpower);printf(n);if(start_flag=1)if(dayhour=10&dayhour16)switch(workingcondition)case 1: KA=KA_softstart02 ;break;case 2: KA=KA_softstart12 ;break;case 3: KA=KA_softstart22 ;break;case 4: KA=KA_softstart32 ;break;if(start_flag=2)if(dayhour=10&dayhour16)switch(workingcondition)case 1: KA=KA_loadstart02 ;break;case 2: KA=KA_loadstart12 ;break;case 3: KA=KA_loadstart22 ;break;case 4: KA=KA_loadstart32 ;break;Pc=KA*nominalpower;/* 2.选型 */void CHOOSE_type()int i,t;float np6,a6=677,100,24,7,1.16,0.32,b6=1.454,1.488,1.470,1.488,1.545,1.5;printf(请输入转速n1(r/min):n);scanf(%f,&N1);printf(n);printf(请输入转速n2(r/min):n);scanf(%f,&N2);printf(n);for(i=0;i6;i+)npi=ai*(pow(Pc,bi);/n=N1;for(i=0;inpi|i=5)t=i;break;switch(t)case 0:printf(带型TPYE:Z型n);break;case 1:printf(带型TPYE:Z 或 A型n);break;case 2:printf(带型TPYE:A 或 B型n);break;case 3:printf(带型TPYE:B 或 C型n);break;case 4:printf(带型TPYE:C 或 D型n);break;case 5:printf(带型TPYE:D 或 E型n);break;case 6:printf(带型TPYE:E 或 F型n);break;printf(n);TYPE=t;/* 3.基准直径选择 */void CHOOSE_gaugediameter()int num,num_1,value_min,value_max;float transmissionratio,transmissionratio1,transmissionratio2;int gaugediameter_all50= 20,25,40,45,56,63,71,75,80,85,90,95,100,106,112,118,125,132,140,150,160,170,180,200,212,224,236,250,265,280,315,355,375,400,425,450,475,500,530,560,630,710,800,900,1000,1120,1250,1600,2000,2500,gaugediameter_min7=20,50,75,125,200,355,500,gaugediameter_Y12=20,25,40,45,56,63,71,80,90,100,112,125,gaugediameter_Z21=56,63,71,75,80,90,100,112,125,140,150,160,180,200,250,280,315,355,400,500,630,gaugediameter_A22=75,80,85,90,95,100,106,112,118,125,132,140,150,160,180,200,250,315,400,500,630,800,gaugediameter_B21=125,132,140,150,160,170,180,200,212,224,236,250,280,315,355,400,500,630,800,1000,1120,gaugediameter_C18=200,212,224,236,250,265,280,315,355,400,450,500,530,560,630,800,1000,1250,gaugediameter_D17=355,375,400,425,450,475,500,530,560,630,710,800,900,1000,1250,1600,2000,gaugediameter_E12=500,560,630,710,800,900,1000,1120,1250,1600,2000,2500;printf(最小基准直径:Dmin=%dn,gaugediameter_minTYPE);printf(n); LOOP: printf(该型号带轮基准直径(mm)：n);switch(TYPE)case 0:for(num=0;num12;num+)printf( %d,gaugediameter_Ynum);break;case 1:for(num=0;num21;num+)printf( %d,gaugediameter_Znum);break;case 2:for(num=0;num22;num+)printf( %d,gaugediameter_Anum);break;case 3:for(num=0;num21;num+)printf( %d,gaugediameter_Bnum);break;case 4:for(num=0;num18;num+)printf( %d,gaugediameter_Cnum);break;case 5:for(num=0;num17;num+)printf( %d,gaugediameter_Dnum);break;case 6:for(num=0;num25)printf(主动轮直径过大，请重新选择小主动轮直径D1：n);goto LOOP;if(V5)printf(主动轮直径过小，请重新选择大主动轮直径D1：n);goto LOOP;D2=(N1/N2)*D1*0.99;/计算从动轮直径D2for(num_1=0;num_150;num_1+)if(D25)printf(传动比不适用，请重新选择主动轮直径D1:n);goto LOOP;/* 4.V带长度及中心距 */void LengthandCenterdistance()int length_Ld39=200,224,250,280,315,335,400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,2240,2500,2800,3150,3350,4000,4500,5000,5600,6300,7100,8000,9000,10000,11200,12500,14000,16000;int a_0,Ld_0,num,value_min,value_max;here: printf(请输入初选中心距(mm)：n);scanf(%d,&a_0);Ld_0=2*a_0+PI*(D1+D2)/2+pow(D2-D1),2)/(4*a_0);for(num=0;num39;num+)if(Ld_0=length_Ldnum) break;/*value_max=length_Ldnum-1;value_min=length_Ldnum;Ld=Forclosetothenumber(value_min,value_max,Ld_0);*/if(Ld_0=length_Ldnum)Ld=length_Ldnum;elseLd=length_Ldnum-1;Centerdistance=a_0+(Ld-Ld_0)/2;SmallpulleysAngle=180-(D2-D1)/Centerdistance*53.7;if(SmallpulleysAngle120)printf(SmallpulleysAngle=%f度120度,SmallpulleysAngle);printf(,小带轮包角不适宜，请重新选择初选中心距：n);goto here;/* 5.确定V带根数 */void Beltingthenumber()float i;int wrapangle,num,value_min,value_max;int wrap_angle16=180,175,170,165,160,155,150,145,140,135,130,125,120,110,100,90;for(num=0;num=wrap_anglenum)break;if(num!=0)value_min=wrap_anglenum;value_max=wrap_anglenum-1;wrapangle=Forclosetothenumber(value_min,value_max,SmallpulleysAngle);else wrapangle=180;switch(wrapangle)case 180: Kv=1;break;case 175: Kv=0.99;break;case 170: Kv=0.98;break;case 165: Kv=0.96;break;case 160: Kv=0.95;break;case 155: Kv=0.93;break;case 150: Kv=0.92;break;case 145: Kv=0.91;break;case 140: Kv=0.89;break;case 135: Kv=0.88;break;case 130: Kv=0.86;break;case 125: Kv=0.84;break;case 120: Kv=0.82;break;case 110: Kv=0.78;break;case 100: Kv=0.73;break;case 90: Kv=0.68;break;switch(TYPE) /传递功率的计算case 0: P0=V*(0.147*(pow(V,-0.09)-4.79/D1-(0.479E-4)*V*V)-0.32;break;case 1: P0=V*(0.450*(pow(V,-0.09)-19.62/D1-(0.799E-4)*V*V)-0.32;break;case 2: P0=V*(0.769*(pow(V,-0.09)-50.79/D1-(1.385E-4)*V*V)-0.32;break;case 3: P0=V*(1.477*(pow(V,-0.09)-143.66/D1-(2.369E-4)*V*V)-0.32;break;case 4: P0=V*(3.223*(pow(V,-0.09)-505.48/D1-(4.791E-4)*V*V)-0.32;break;case 5: P0=V*(4.844*(pow(V,-0.09)-1037.7/D1-(6.947E-4)*V*V)-0.32;break;switch(TYPE)/弯曲影响系数case 0: Kb=0.00006;break;case 1: Kb=0.00039;break;case 2: Kb=0.00103;break;case 3: Kb=0.00265;break;case 4: Kb=0.00750;break;case 5: Kb=0.02660;break;case 6: Kb=0.04980;break;/ 长度系数Kl图表 /if(TYPE=0)switch(Ld)case 200: Kl=0.81;break;case 224: Kl=0.82;break;case 250: Kl=0.84;break;case 280: Kl=0.87;break;case 315: Kl=0.89;break;case 335: Kl=0.92;break;case 400: Kl=0.96;break;case 450: Kl=1.00;break;case 500: Kl=1.02;break;if(TYPE=1)switch(Ld)case 400: Kl=0.87;break;case 450: Kl=0.89;break;case 500: Kl=0.91;break;case 560: Kl=0.94;break;case 630: Kl=0.96;break;case 710: Kl=0.99;break;case 800: Kl=1.00;break;case 900: Kl=1.03;break;case 1000: Kl=1.06;break;case 1120: Kl=1.08;break;case 1250: Kl=1.11;break;case 1400: Kl=1.14;break;case 1600: Kl=1.16;break;case 1800: Kl=1.18;break; if(TYPE=2)switch(Ld)case 630: Kl=0.81;break;case 710: Kl=0.82;break;case 800: Kl=0.85;break;case 900: Kl=0.87;break;case 1000: Kl=0.89;break;case 1120: Kl=0.91;break;case 1250: Kl=0.93;break;case 1400: Kl=0.96;break;case 1600: Kl=0.99;break;case 1800: Kl=1.01;break;case 2000: Kl=1.03;break;case 2240: Kl=1.06;break;case 2500: Kl=1.09;break;case 2800: Kl=1.11;break;case 3150: Kl=1.13;break;case 3550: Kl=1.17;break;case 4000: Kl=1.19;break;if(TYPE=3)switch(Ld)case 900: Kl=0.81;break;case 1000: Kl=0.84;break;case 1120: Kl=0.86;break;case 1250: Kl=0.88;break;case 1400: Kl=0.90;break;case 1600: Kl=0.93;break;case 1800: Kl=0.95;break;case 2000: Kl=0.98;break;case 2240: Kl=1.00;break;case 2500: Kl=1.03;break;case 2800: Kl=1.05;break;case 3150: Kl=1.07;break;case 3550: Kl=1.10;break;case 4000: Kl=1.13;break; case 4500: Kl=1.15;break;case 5000: Kl=1.18;break;if(TYPE=4)switch(Ld)case 1600: Kl=0.84;break;case 1800: Kl=0.85;break;case 2000: Kl=0.88;break;case 2240: Kl=0.91;break;case 2500: Kl=0.93;break;case 2800: Kl=0.95;break;case 3150: Kl=0.97;break;case 3550: Kl=0.98;break;case 4000: Kl=1.02;break;case 4500: Kl=1.04;break;case 5000: Kl=1.07;break;case 5600: Kl=1.09;break;case 6300: Kl=1.12;break;case 7100: Kl=1.15;break;case 8000: Kl=1.18;break;case 9000: Kl=1.21;break;case 10000: Kl=1.23;break; if(TYPE=5)switch(Ld)case 2800: Kl=0.83;break;case 3150: Kl=0.86;break;case 3550: Kl=0.88;break;case 4000: Kl=0.91;break;case 4500: Kl=0.93;break;case 5000: Kl=0.96;break;case 5600: Kl=0.98;break;case 6300: Kl=1.00;break;case 7100: Kl=1.03;break;case 8000: Kl=1.06;break;case 9000: Kl=1.08;break;case 10000: Kl=1.11;break; case 11200: Kl=1.14;break;case 12500: Kl=1.17;break; case 14000: Kl=1.20;break;case 16000: Kl=1.22;break; if(TYPE=6)switch(Ld)case 4500: Kl=0.90;break;case 5000: Kl=0.92;break;case 5600: Kl=0.95;break;case 6300: Kl=0.97;break;case 7100: Kl=1.00;break;case 8000: Kl=1.02;break;case 9000: Kl=1.05;break;case 10000: Kl=1.07;break; case 11200: Kl=1.10;break;case 12500: Kl=1.12;break;case 14000: Kl=1.15;break;case 16000: Kl=1.18;break; / 确定传动比系数Ki /i=N1/N2; /传动比itransmissionratio=i;if(1=i&i=1.04)Ki=1;if(1.04i&i=1.19)Ki=1.03;if(1.19i&i=1.49)Ki=1.08;if(1.49i&i2.95)Ki=1.14;P0_1=Kb*Ki*N1; /传递功率增量flag_b=P0;flag_c=P0_1;Z_1=Pc/(P0+P0_1)*Kv*Kl); /V带根数/flag_a=Z_1;if(Z_1!=(int)Z_1)Z=(int)Z_1+1;else Z=Z_1;/* 6.计算初拉力F0 */void initialtension() switch (TYPE) /表15-1 三角胶带剖面尺寸及每米长质量case 0:b1=6;bp=5.3;h=4;q=0.04;break;case 1:b1=10;bp=8.5;h=6;q=0.06;break;case 2:b1=13;bp=11;h=8;q=0.10;break;case 3:b1=17;bp=14;h=11;q=0.17;break;case 4:b1=22;bp=19;h=14;q=0.30;break;case 5:b1=32;bp=27;h=19;q=0.60;break;case 6:b1=38;bp=32;h=25;q=0.87;break;F0=500*Pc*(2.5/Kv-1)/(V*Z)+q*pow(V,2);/* 7.计算轴上的压力 */void Axispressure()pressure_Q=2*F0*Z*sin(SmallpulleysAngle/2*0.01745);/* 总结果显示 */void display()int b;char ch;printf(*);for(b=0;b65;b+)printf(-);if(b=32)printf(设计总结果);printf(*);printf(n);printf(功率：Pc=%f KWn,Pc);printf(n);switch(TYPE)case 0:printf(带型TPYE:Z型n);break;case 1:printf(带型TPYE:Z 或 A型n);break;case 2:printf(带型TPYE:A 或 B型n);break;case 3:printf(带型TPYE:B 或 C型n);break;case 4:printf(带型TPYE:C 或 D型n);break;case 5:printf(带型TPYE:D 或 E型n)