2、1V带设计程序框图B查标准长度确定Ld,同时查取KL,计算实际中心距aA计算小带轮包角查表确定包角系数计算Po,Z<10?计算Fo,Q,B(取整)输出结果计算下一型号带?结束计算下一种带轮直径?YYYNNNNB二、V带设计程序#include#include#include#definePAI3.14intTYPE_TO_NUM(chartype);/*将输入的字符(不论大小写)转换为数字方便使用*/floatSelect_Ki(floati);/*查表选择Ki的程序*/f
3、loatSelect_KA(floatH,intGZJ,intYDJ);/*查表选择KA的程序*/floatSelect_KL(floatLd,intTYPE);/*查表选择KL的程序*/floatSelect_M(intTYPE);/*查表选择m的程序*/floatSelect_dd1(intTYPE);/*查表选择小轮基准直径dd1的程序*/floatSelect_dd2(intdd1,floati);/*查表选择大轮直径dd2的程序*/floatCompute_P0(floatV,intTYPE,floatdd1);/*
4、计算P0的程序*/floatCompute_DIFP0(intTYPE,floatKi,intn1);/*计算DIFP0的程序*/floatCompute_VMAX(intTYPE);/*计算VMAX的程序*/floatCompute_KALF(floatALF1);/*计算KALF的程序*/floatCompute_B(intTYPE,intz);/*计算带宽B的程序*/float*Compute_LAK(floatdd1,floatdd2,intTYPE);/*计算Ld,a,KL的程序*/main(){floatP,H,i
5、,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;printf("V带传动设计程序");printf("设计者卢晓盟12042010205");START:printf("请输入原始参数:");printf("传递功率P(KW):");scanf("%f",&P);printf("小带轮转速n1(r/min):");scanf("%f",&n1);printf
6、("传动比i:");scanf("%f",&i);printf("每天工作时间H(h):");scanf("%f",&H);printf("原动机类型(1或2):");scanf("%d",&YDJ);printf("工作机载荷类型:1,载荷平稳2,载荷变动较小3,载荷变动较大4,载荷变动很大");scanf("%d",&GZJ);DX:printf("带型:");scanf("%c",&type);TYPE=TYPE_TO_NUM(type);KA=Select_KA(H,GZJ,YDJ);Pd=KA*P
7、;VMAX=Compute_VMAX(TYPE);DD1:dd1=Select_dd1(TYPE);V=PAI*dd1*n1/60000;while(V>VMAX){printf("所选小轮基准直径过小!请重新选择!");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(
8、dd1,dd2,TYPE);Ld=LAK[0];a=LAK[1];KL=LAK[2];ALF1=180-57.3*(dd2-dd1)/a;KALF=Compute_KALF(ALF1);z=ceil(Pd/(KALF*KL*(P0+DIFP0)));if(z>=10)goto