v帶傳動電算哈工大機械設計說明(編輯修改稿)
2025-05-04 06:49 本頁面
【文章內(nèi)容簡介】 。GZJ)。IF2: if(GZJ!=0 amp。amp。 GZJ!=1 amp。amp。 GZJ!=2 amp。amp。 GZJ!=3) { printf(輸入錯誤!請重新輸入!\n)。 printf(:\n0：載荷平穩(wěn)\n1：載荷變動較小\n2：載荷變動較大\n3：載荷變動很大\n)。 scanf(%d,amp。GZJ)。 goto IF2。 } printf(\n)。 printf(:\n0:10h(一班制)\n1:10h~16h(兩班制)\n2:16h(三班制)\n)。 scanf(%f,amp。H)。IF3: if(H!=0 amp。amp。 H!=1 amp。amp。 H!=2) { printf(輸入錯誤!請重新輸入!\n)。 printf(:\n0:10h(一班制)\n1:10h~16h(兩班制)\n2:16h(三班制)\n)。 scanf(%f,amp。H)。 goto IF3。 } printf(\n)。 DX: printf((Z、A、B、C、D、E):\n)。 scanf( %c,amp。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)。 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=*(dd2dd1)/a。 KALF=Compute_KALF(ALF1)。 z=ceil(Pd/(KALF*KL*(P0+DIFP0)))。 if(z=10) goto DX。 m=Select_M(TYPE)。 F0=500*Pd*()/(z*V*KALF)+m*V*V。 Q=2*z*F0*sin(ALF1*PAI/360)。 B= Compute_B(TYPE,z)。 printf(\n)。 printf( 計算結果\n)。 printf(\n)。printf(小輪直徑:%f mm\n\n大輪直徑:%f mm\n\n中心距:%f mm\n\n帶長:%f mm\n\n帶寬:%f mm\n\n帶的根數(shù):%f\n\n初拉力:%f N\n\n軸壓力:%f N\n\n,dd1,dd2,a,Ld,B,z,F0,Q)。printf(\n)。X: printf(請選擇：\nY:計算下一組帶輪\nS:重新開始\nN:結束\n)。 scanf( %c,amp。ans)。 ANS=TYPE_TO_NUM(ans)。 if(ANS==6) goto DD1。 else if(ANS==7) goto START。 else if(ANS==8) printf(程序結束)。 else { printf(輸入錯誤，請重新輸入)。 goto X。 } }/*工作情況系數(shù)選擇*/float Select_KA(float H,int GZJ,int YDJ){ /**/ float ka1[4][3]={{,},{,},{,},{,}}。 float ka2[4][3]={{,},{,},{,},{,}}。 float KA。 if(YDJ==1) { if(H==0) KA=ka1[GZJ][0]。 else if(H==2) KA=ka1[GZJ][2]。 else KA=ka1[GZJ][1]。 } if(YDJ==2) { if(H==0) KA=ka2[GZJ][0]。 else if(H==2) KA=ka2[GZJ][2]。 else KA=ka2[GZJ][1]。 } return KA。}/*傳動比系數(shù)*/float Select_Ki(float i){ float m。 /**/ float
公司管理相關推薦
鄂ICP備17016276號-1