v带传动的c语言设计流程.docxVIP

v带传动的c语言设计流程 题目：v带传动的c语言设计 院系：机电工程学院班级：机自专升本二班姓名：卢晓盟学号：[1**********]指导老师：梁炜 二、v拎设计程序 #include#include#include#definepai3.14 p,h,i,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拎传动设计程序\n);printf(设计者卢晓盟[1**********]\n);start:printf(恳请输出完整参数:\n);printf(传达功率p(kw):);scanf(%f,p);printf(小带轮输出功率n1(r/min)：);scanf(%f,n1);printf(传动比i:);scanf(%f,i);printf(每天工作时间h(h):);scanf(%f,h);printf(原动机类型(1或2):);scanf(%d,ydj);printf(工作机载荷类型:\n1,载荷稳定\n2,载荷变动较小\n3,载荷变动很大\n4,载荷变动非常大\n);scanf(%d,gzj);dx:printf(拎型:);scanf(%c,type);type=type_to_num(type);ka=select_ka(h,gzj,ydj); printf(小轮直径:%fmm\n大轮直径:%fmm\n中心距:%fmm\n带长:%fmm\n带宽:%fmm\n带的根数:%f\n初拉力:%fn\n轴压力:%fn\n,dd1,dd2,a,ld,b,z,f0,q);x:printf(计算下一组带轮直径按y,重新开始按s,结束按n:);scanf(%c,ans);ans=type_to_num(ans);if(ans==6)gotodd1;elseif(ans==7)gotostart;elseif(ans==8)printf(程序结束);else{printf(输入错误，请重新输入);gotox; floatselect_ka(floath,intgzj,intydj){floatka1[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}};floatka2[4][3]={{1.1,1.2,1.3},{1.2,1.3,1.4},{1.4,1.5,1.6},{1.5,1.6,1.8}};floatka;if(ydj==1){if(h16)ka=ka1[gzj-1][2];elseka=ka1[gzj-1][1];}if(ydj==2){if(h16)ka=ka2[gzj-1][2];elseka=ka2[gzj-1][1];}returnka;} floatselect_ki(floati){floatm;floatki[10]={1.0000,1.0136,1.0276,1.0419,1.0567,1.0719,1.0875,1.1036,1.1202,1.1373};floati[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.52,2.00};intj=9;for(j=9;j=0;j--){m=i-i[j];if(m=0)break;}returnki[j];} inttype_to_num(chartype) {intx;if(type returnp0;} floatselect_dd1(inttype){inti;floatdd1;floatdd1[6][4]={{50,63,71,80},{75,90,100,125},{125,140,160,180},{200,250,315,400},{355,400,450,500},{500,560,630,710}};printf(该带型推荐的小带轮基准直径有(mm):\n);for(i=0;i floatselect_dd2(intdd1,floati){floatdd2[]={50,56,63,71,80,90,100,112,125,140,150,160,180,200,224,250,280,315,355,400,425,450,500,560,600,630,710,800};floatdd2,temp,t;intj=0;temp=i*dd1;for(j=0;j case0:case1:case2:case3:vmax=25;break;case4:case5: