V带传动设计程序的编制要点.ppt

main() { int i,temp,KW,KH,TYPE,TO,redesign; float K[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}}, Kbq[2][6]={{1.461E-4,1.005E-3,2.623E-3,7.307E-3,2.589E-2,5.136E-2},{0.06,0.1,0.17,0.3,0.6,0.87}}; float HD,KA,PC,D1,D2,V,A0,A0min,A0max,A,Amin,Amax,Lc,Ld,K1,ALP,P0,DP0,KALP,Ki,MP0,Zmax,Z,F0,FQ; printf(输入初始值:\n); printf(名义功率P(KW):); scanf(%f,P); printf(小带轮转速n1(r/min):); scanf(%f,N1); printf(传动比i:); scanf(%f,I); printf(工作机载荷性质KW:\n); printf(工作平稳 KW=0\n); printf(载荷变化小 KW=1\n); printf(载荷变化较大KW=2\n); printf(冲击载荷 KW=3\n); scanf(%d,KW); printf(每天工作时间HD(h):); scanf(%f,HD); if(HD10) KH=0; else if(HD=10HD=16) KH=1; else if(HD16) KH=2; KA=K[KW][KH]; PC=KA*P; printf(计算功率Pc=%.1f\n,PC); TYPE=choose_TYPE(N1,PC); if(TYPE!=0) TO=TYPE--; else TO=0; printf(//*****************先按第一种带形设计:TYPE=%d*************//\n,TYPE); do { printf(带轮基准直径的系列值D[]:\n); for(i=0;i65;i++) printf(%0.1f ,D[i]); printf(\n); Zmax=DZ[1][TYPE]; printf(最小直径D1min=%.1f\n,DZ[0][TYPE]); printf(最大轮槽数Zmax=%.0f\n,Zmax); do { do { printf(从D[]中选择小带轮基准直径dd1且dd1=D1min:\n); printf(dd1=);scanf(%f,D1); V=PI*N1*D1/60000; printf(带速v=%.2f\n,V); if(V5) printf(基准直径dd1太小);printf(\n); if(V25) printf(基准直径dd1太大);printf(\n); }while(V5||V25); D2=I*D1*(1-0.02); for(i=0;i65;i++) if(D[i]=D2) {D2=D[i];i=65;} printf(D2=%.1f\n,D2); A0min=0.7*(D1+D2); printf(A0min=%.1f\n,A0min); A0max=2*(D1+D2); printf(A0max=%.1f\n,A0max); do{ do{ printf(初选中心距a0值(A0min=a0=A0max)\n); printf(a0=);scanf(%f,A0); Lc=2*A0+PI*(D1+D2)/2+(D2-D1)*(D2-D1)/(4*A0); printf(Ld0=%.1f\n,Lc); for(i=0;i33;i++) if(LD[i]=Lc) {Ld=LD[i];temp=i;i=33;} printf(Ld=%.0f\n,Ld); K1=KL[TYPE][temp]; if(K1==0) printf(带长不在可选范围之内，重新选择中心距\n);} while(K1==0); printf(K1=%.2f\n,K1); A=A0+(Ld-Lc)/2; Amin=A-0.015*Ld; Amax=A+0.03*Ld; ALP=180-(D2-D1)*57.3/A; if(ALP120) printf(包角小于120,需增大中心距\n); }while(ALP120); printf(A=%.1f\nAmin=%.1f\nAmax=%.1f\nALP=%.2f