v带传动C程序源代码

《v带传动C程序源代码》由会员分享，可在线阅读，更多相关《v带传动C程序源代码（13页珍藏版）》请在装配图网上搜索。

1、v带传动C程序源代码#include viostream.h#include #include vmath.hconst double PAI=3.141592654;double SelectK1(int Type);/选择系数 K1double SelectK2(int Type);/选择系数 K2double SelectK3(int Type);/选择系数 K3double Selectdd2(double dd2);选择大带轮直径 dd2double SelectKi(double i);选择传动比系数 Kiint SelectType(double n1,double Pd);/选

2、择带型double SelectKA();选择工作情况系数double SelectVmax(int Type);/选择最大转速double Selectdd2max(int Type);/选择最大可用带轮直径double SelectKb(int Type);/选择系数 Kbdouble SelectKALF(double ALF1);/选择包脚系数int SelectLd(double LdO);/选择基准长度double SelectKL(double Ld0,int Type);/选择长度系数double Selectm(int Type);/int DisplayB(int Type

3、,int Z);char DXing=ZABCDE;void main()doubleP,n1,i,Ki,KALF,KA,Pd,Vmax,dd2max,K1,K2,K3,Kb,dd2,V,a,a0,a1,a2,Ld0,KL,ALF1,P0,DIFP0,m ,F0,Q;char Answer,AnswerO;int Type,dd1,Ld,Z;cout1000) coutvv输入数据有误，请重新输入功率：vvendl;while (Pv0)ll(P1000);coutvv 请输入传动比 i(范围 0viv10):vvendl;docini;输入传动比if(iv0)ll(i10) cout vv输

4、入数据有误，请重新输入传动比：endl;while (iv0)ll(i10);coutvv 请输入小带轮转速n1(r/min)(转速范围在04500之间):vvendl;docinn1;输入转速if(n1v0)ll(n14500) coutvv输入数据有误，请重新输入转速：vvendl;while(n1v0)ll(n14500);Ki=SelectKi(i);选择传动比系数KA=SelectKA();选择工作情况系数Pd=KA*P;计算设计功率Type=SelectType(n1,Pd);/选 择带轮类型A: Vmax=SelectVmax(Type);/选择最大转速 dd2max=Selec

5、tdd2max(Type);K1=SelectK1(Type);/K2=SelectK2(Type);/K3=SelectK3(Type);Kb=SelectKb(Type);/选择弯曲影响系数B:do/TBelt(Type);/选择输入带型 coutvvendl;coutvv请选择输入的小带轮的基准直径dd1(mm):;docinddl;if(ddlvO) coutvv输入为非法输入，请重新输入：vvendl;while(dd1v0);V=PAI*(double)dd1*n1/(60*1000); dd2=i*dd1;if(V=Vmaxlldd2dd2max)coutvv不能形成有效带传递，

6、请减少带轮直径!”;while(V=Vmax|dd2dd2max);coutvv带轮速度 V=vvVvvm/svvendl;dd2=Selectdd2(dd2);选择大带轮的推荐直径coutvv大轮直径为：vvdd2vvmmvvendl;a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);docoutvv请输入初估中心距a0:(大于等于vva1vvmm小于等于vva2vvmm)vvendl;docina0;if(a0va1)ll(a0a2)coutvv输入中心距数据错误，请重新输入：vvendl; while(a0va1)ll(a0a2);while(a0va1)ll(a0a2);

7、Ld0=2*a0+PAI/2*(dd1+dd2)+pow(dd2-dd1),2)/(4*a0);Ld=SelectLd(LdO);选择带的基准长度推荐值coutvvvvendl;coutvv基准长度为 Ld=vvLdvvendl;a=a0+(Ld-Ld0)/2;coutvv实际计算中心距 a=vvavvmmvvendl;KL=SelectKL(Ld,Type);/选择长度系数ALFl=180-(dd2-ddl)/a*57.3;计算小带轮的包脚 coutvv小带轮包角=vvALFlvv度vvendl; KALF=SelectKALF(ALF1);P0=(K1*pow(V(-0.09)-K2/dd

8、1-K3*pow(V2)*V; coutvv单根带轮额定功率 P0=vvP0vvKWvvendl;DIFP0=Kb*n1*(1-1/Ki);coutvv功率增量 DIFP0=vvDIFP0vvKWvvendl;Z_0=Pd/(P0-DIFP0)*KL*KA)+1;Z=floor(Pd/(P0+DIFP0)*KL*KALF)+1); 计算带的根数/if ZvZ_0/Z+;/coutvv带轮带数 Z=vvZvv根vvendl;if(Z=10)检测带型docoutvvZ=10,请输入相邻带型(带型为Z或A或B或C或D或E)： cinAnswer;if(Answer!=AllBllCIIDIIEllZ

9、llallbllclldllellz)coutvv你输入的带型不在范围之内；while(Answer!=AllBllCllDllEllZllallbllclldllellz);if(Answer=Zllz) Type=0;if(Answer=Alla) Type=1;if(Answer=Bllb) Type=2;if(Answer=Cllc) Type=3;if(Answer=Dlld) Type=4;if(Answer=Elle) Type=5;goto A;elsem=Selectm(Type);F0=(500*Pd/(Z*V)*(2.5-KALF)/KALF+m*V*V+0.5); co

10、utvv带轮初拉力vvFOvvNvvendl;Q=(int)(2*Z*F0*sin(ALFl*PAI/360)+0.5);coutvv带轮的压轴力为vvQvvNvvendl;coutvvvvendl;coutvv附录：计算过程中的一些系数vvendl; /coutvvP=vvPvv vvendl;coutvv传动比系数 Ki=vvKivv vvendl; coutvvPd=vvPdvv vvendl;coutvv工作情况系数 KA=vvKAvv vvendl; coutvvType=vvTypevv vvendl;coutvv带长修正系数 KL=vvKLvv vvendl;coutvv弯曲影响

11、系数 Kb=vvKbvvendl; coutvv包角系数为 KALF=vvKALFvvendl;DisplayB(Type,Z);cout vv您是否想计算下一种带轮直径Y (是)N (否)”；docinAnswer;if(Answer!=Y)&(Answer!=N)&(Answer!=y)&(Answer!=n) coutvv您输入 了无效数字，请重新输入:vvendl;while(Answer!=Y )&( Answer!=N )&(Answer!=y )&(Answer!=n);if (Answer=Y)ll(Answer=y)goto B;else cout vv您是否想计算下一种型号

12、带Y (是)N (否)；docinAnswer;if(Answer!=Y)&(Answer!=N)&(Answer!=y)&(Answer!=n) coutvv您输入 了无效数字，请重新输入：vvendl;while(Answer!=Y )&( Answer!=N )&(Answer!=y )&(Answer!=n);if (Answer=Y)ll(Answer=y)cout vv”请输入带的型号（带型为Z或A或B或C或D或E）：cin AnswerO;if （Answer0=97&Answer0v=122）/将小写字母转换为大写字母 AnswerO=AnswerO-32;switch （An

13、swer。）case Z:Type=1;coutvv你所选的带型为Z型vvendl;coutvv该种型号的带轮系列直径推荐值为：vvendlvv50,63,71,75,80,90,100,112,125,132,140,150,160,180,200,224,250,280,315vvendl; break;case A:Type=2;coutvv你所选的带型为A型vvendl;coutvv该种型号的带轮系列直径推荐值为：vvendlvv75,80,85,90,100,106,112,118,125,132,140,150,160,180,200,224,250,280,315vvendl;

14、break;case B:Type=3;coutvv你所选的带型为B型vvendl;coutvv该种型号的带轮系列直径推荐值为：vvendlvv125,132,140,150,160,170,180,200,224,250,280,315,355,400,450,500vvendl;break;case C:Type=4;coutvv你所选的带型为C型vvendl;coutvv该种型号的带轮系列直径推荐值为：vvendlvv200,212,224,236,250,265,280,315,355,400,450,500nvvendl;break;case D:Type=5;coutvv你所选的带

15、型为D型vvendl;coutvv该种型号的带轮系列直径推荐值为：vvendlvv355,375,400,425,450,475,500,530,600vvendl;break;case E:Type=6;coutvv你所选的带型为E型，”vvendl;coutvv该种型号的带轮系列直径推荐值为：vvendlvv500,530,560,600,630,710vvendl;break;default:coutvv对不起，您输入的带型不在Z A B C D E之间!”;goto A;double SelectKi(double i)查找传动比系数函数int j;const int Nums=10;

16、const double iiNums=1.000,1.015,1.045,1.085,1.125,1.185,1.245,1.345,1.515,1.995;constdoubleKiiNums=1,1.0136,1.0276,1.0419,1.0567,1.0719,1.0875,1.1036,1.1202,1.1373;for (j=0;jvNums-1;j+)if (i=iij&iviij+1)return Kiij;return KiiNums-1;int SelectType(double n1,double Pd)/根据小带轮转速和设计功率选择带型constintzz110=50

17、,63,71,75,80,90,100,112,125,132,zz29=140,150,160,180,200,224,250,280,315,z a110=75,80,85,90,100,106,112,118,125,132,za29=140,150,160,180,200,224,250,280,315,zb110=125,132,140,150,160,170,180,20 0,224,250,zb26=280,315,355,400,450,500,zc12=200,212,224,236,250,265,280,315,355,400,450,500,zd14=355,375,4

18、00,425,zd 25=450,475,500,530,600,ze6=500,530,560,600,630,710;double c;c=1.17;if( n1=447*pow(Pd,c)coutvv所选的带型为Z型vvendl;coutvv 该 型 号 的 带 轮 系 列 直 径 为：vvendlvv50,63,71,75,80,90,100,112,125,132,140,150,160,180,200,224,250,280,315vvendl; return 1;else if (n1=101.9*pow(Pd,c)&(n1v447*pow(Pd,c)coutvv所选的带型为A型

19、vvendl;coutvv 该型号的带轮系列直径为：vvendlvv75,80,85,90,100,106,112,118,125,132,140,150,160,180,200,224,250,280,315vvendl; return 2;else if (n1=28*pow(Pd,c)&(n1=8.2*pow(Pd,c)&(n1v28*pow(Pd,c)coutvv所选的带型为C型vvendl;coutvv 该型号 的带轮系列直径为：vvendlvv200,212,224,236,250,265,280,315,355,400,450,500nvvendl;return 4;else i

20、f (n1=1.06*pow(Pd,c)&(n1v8.2*pow(Pd,c)coutvv所选的带型为D 型vvendl;coutvv 该型号 的带轮系列直径为：vvendlvv355,375,400,425,450,475,500,530,600vvendl;return 5;elsecoutvv所选的带型为E型,vvendl;coutvv该型号的带轮系列直径为：vvendlvv500,530,560,600,630,710vvendl; return 6;double SelectKA()选择工作情况系数int GZJ,h,YDJ;GZJ：工作机载荷特性；YDJ:原动机类型；h：工作时间do

21、uble a46=1.0,l.l,1.2,l.l,1.2,1.3,1.1,121.3,1.2,1.3,1.4,121.3,1.4,1.4,1.5,1.6,1.3,1.4,1.5,1.5,1.6,1.8;coutvv请选择工作机的载荷特性(不同类型分别用1，2，3, 4表示)：vvendl; coutvv1-载荷平稳n液体搅拌机；离心式水泵；通风机和鼓风机(v=7.5KW)；离心 式压缩机；轻型运输机vvendl;coutvv2-载荷变动小n带式运输机(运送沙石、谷物)，通风机(7.5KW)；发电机; 旋转式水泵；金属切削机床；剪床；压力机；印刷机；振动机vvendl;coutvv3-载荷变动较

22、大5螺旋式运输机；斗式提升机；往复式水泵和压缩机；锻锤; 磨粉机；锯木机；和木工机械；纺织机械vvendl;coutvv4-载荷变动很大n破碎机(旋转式、颚式等)；球磨机，棒磨机；起重机；挖 掘机；橡胶辊压机vvendl;coutvvendl;docinGZJ;GZJ-;if(GZJ!=0)&(GZJ!=1)&(GZJ!=2)&(GZJ!=3) coutvv你的输入没有按要求输 入!请重新输入：vvendl;while(GZJ!=0)&( GZJ!=1)&(GZJ!=2)&( GZJ!=3);coutvv请选择带轮一天工作时间(分别用1，2，3表示三种工作时间类型)：vvendl; coutv

23、v1-工作时间小于 10hvvendl;coutvv2-工作时间大于10h且小于16hvvendl;coutvv3-工作时间大于 16hvvendl;docinh;h-;if(h!=0)&(h!=1)&(h!=2) coutvv你的输入没有按要求输入!请重新输入：vvendl; while(h!=0)&(h!=1)&(h!=2);coutvv请选择原动机类型(分别用1，2表示两种电动机类型)：vvendl;coutvv1-1类n普通鼠笼式交流电动机，同步电动机，直流电动机，n600r/min内燃 机。vvendl;coutvv2-II类n交流电动机，直流电动机，单缸发动机，nv=600r/mi

24、n内燃机。vvendl; docinYDJ;YDJ-;if(YDJ!=0)&(YDJ!=1) coutvv你的输入没有按要求输入!请重新输入：vvendl;while(YDJ!=O)&( YDJ!=1);return aGZJh+3*YDJ;double SelectVmax(int Type)选择带轮的最高转速函数switch (Type)case 1:case 2:case 3:case 4:return 25;break;case 5:case 6:return 30;break;default:coutvv你输入的数据有误!请输入16中的数字vvendl; return 0;doubl

25、e Selectdd2max(int Type) 选择大带路的最大直径推荐值函数switch (Type)case 1:case 2:return 315;break;case 3:case 4:return 500;break;case 5:return 600;break;case 6:return 710;break;default:coutvv你输入的数据有误!请输入16中的数字vvendl; return 0;double SelectKb(int Type) 选择弯曲影响系数函数double Kb6=0.2925e-3,0.7725e-3,1.9875e-3,5.625e-3,19

26、.95e-3,37.35e-3;return KbType-1;double SelectK1(int Type)double K16=0.246,0.449,0.794,1.48,3.15,4.57;return K1Type-1;double SelectK2(int Type)double K26=7.44,19.02,50.6,143.2,507.3,951.5;return K2Type-1;double SelectK3(int Type)double K36=0.441e-4,0.765e-4,1.31e-4,2.34e-4,4.77e-4,7.06e-4;return K3Ty

27、pe-1;double Selectdd2(double dd2) 选择大带轮直径系列推荐值int k;doubledzjxl35=20,28,31.5,35.5,40,45,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;for(int i=0;iv35;i+)if (dzjxli(dd2-dzjxli-1)k=i-1;else k=i;break;return dzjxlk;int SelectLd(double Ld0)

28、选择带轮基准长度函数int i,k;intLLdd33=400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,2240,2500, 2800,3150,3550,4000,4500,5000,5600,6300,7100,8000,9000,10000,11200,12500,14000,16000;for(i=0;iv33;i+)if(LLddivLd0)continue;if(LLddi-Ld0)(Ld0-LLddi-1)k=i-1;else k=i;break;return LLddk;double Sele

29、ctKL(double Ld0,int Type) /选择长度系数函数int i,k;double KL;intLLdd33=400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,2240,2500, 2800,3150,3550,4000,4500,5000,5600,6300,7100,8000,9000,10000,11200,12500,14000,16000;doubleKKLL336=0.87,10,10,10,10,10,0.89,10,10,10,10,10,0.91,10,10,10,10,10,

30、0.94,10,10, 10,10,10,0.96,0.81,10,10,10,10,0.99,0.83,10,10,10,10,1.00,0.85,10,10,10,10,1.03,0.87,0.82,10,10,10,1.06,0.89,0.84,10,10,10,1.08,0.91,0.86,10,10,10,1.10,0.93,0.88,10,10,10,1.14,0.96,0.90,10,10,10,1.16,0.99,0.92,0.83,10,10,1.18,1.01,0.95,0.86,10,10,-10,1.03,0.98,0.88,10,10, -10,1.06,1.00,0

31、.91,10,10,-10,1.09,1.03,0.93,10,10,-10,1.11,1.05,0.95,0.83,10,-10,1.13,1.07,0.97,0.86,10,-10,1.17,1.09,0.99,0.89,10,-10,1.19,1.13,1.02,0.91,10,-10,-10,1.15,1.04,0.93,0.90,-10,-10,1.18,1.07,0.96,0.92,-10,-10,-10,1.09,0.98,0.95,-10,-10,-10,1.12,1.00,0.97,-10,-10,-10,1.15,1.03,1.00,-10,-10,-10,1.18,1.0

32、6,1.02,-10,- 10,-10,1.21,1.08,1.05,-10,-10,-10,1.23,1.11,1.07,-10,-10,-10,-10,1.14,1.10,-10,-10,-10,-10,1.17,1.12,-10,-10,-10,-10,1.20,1.15,-10,-10, -10,-10,1.22,1.18;for(i=0;i(Ld0-LLddi-1)k=i-1;else k=i;break;KL=KKLLkType-1;if (KL0);else if(KL9)dok=k-1;KL=KKLLkType-1;while(KL9);return KL;double Sel

33、ectm(int Type)/选择带的质量函数double m6=0.06,0.1,0.17,0.3,0.6,0.9;return mType-1;int DisplayB(int Type,int Z)/计算轮缘宽度函数double B;double luncao26=12,15,19,25.5,37,44.5,8,10,12.5,17,23,29;B=(Z-1)*luncao0Type-1+2*luncao1Type;coutvv轮缘宽度为vvBvvmmvvendl;return (int)(B+1);double SelectKALF(double ALF1)/查找包脚系数函数double AALF114=220,210,200,190,180,170,160,150,140,130,120,110,100,90;double KA114=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;int i,k=0;double KKALF1=0;for(i=0;iALF1) continue;else k=i;break;KKALF1=(KA1k-1 * (ALF1-AALF1k)+KA1k * (AALF1k-1-ALF1)/(AALF1k-1-AALF1k);return KKALF1;