哈工大机械设计大作业三-V带传动电算编程
(完整word版)哈工大机械原理大作业3齿轮传动设计
4、滑移齿轮变速传动中每对齿轮几何尺寸及重合度的计算
4.1滑移齿轮5和齿轮6
序号
项目
代号
计算公式及计算结果
1
齿数
齿轮5
17
齿轮6
39
2
模数
2
3
压力角
20°
4
齿顶高系数
1
5
令 =4
则可得定轴齿轮传动部分的传动比为 = =6.4667
滑移齿轮传动的传动比 = =2.308
= =2.857
定轴齿轮传动由3对齿轮传动组成，则每对齿轮的传动比为
3、齿轮齿数的确定
根据滑移齿轮变速传动系统中对齿轮齿数的要求，选择齿轮5、6为标准齿轮，7、8、9和10为角度变位齿轮。设 17， = 39满足传动比，由于是标准齿轮，可得中心距a=76mm ，h*a=1， =17，因此不会发生根切，开始设计下面的角度变位。
顶隙系数
0.25
6
标准中心距
= ( )/2=56
7
实际中心距
56
8
啮合角
9
变位系数
齿轮5
0
齿轮6
0
10
齿顶高
齿轮5
2mm
齿轮6
2mm
11
齿根高
齿轮5
2.5mm
齿轮6
2.5mm
12
分度圆直径
齿轮5
34mm
齿轮6
78mm
13
齿顶圆直径
齿轮5
38mm
齿轮6
82mm
14
齿根圆直径
哈尔滨工业大学机械设计大作业_带传动电算
H a r b i n I n s t i t u t e o f T e c h n o l o g y上机电算说明书课程名称：机械设计电算题目：普通V带传动院系：机电工程学院班级：设计者：学号：指导教师：设计时间：2015.11.11-2015.12.1哈尔滨工业大学目录一、普通V带传动的内容 (1)二、变量标识符 (1)三、程序框图 (2)四、V带设计C程序 (3)五、程序运行截图 (10)参考文献 (11)一、普通V带传动的内容给定原始数据：传递的功率P，小带轮转速n1 传动比i及工作条件设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q。
二、变量标识符为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。
表1变量标识符表。
表1 变量标识符表三、程序框图四、V带设计c程序#include<stdio.h>#include<math.h>#include<string.h>#define PAI 3.14int TYPE_TO_NUM(char type); /*将输入的字符（不论大小写）转换为数字方便使用*/float Select_Ki(float i); /*查表选择Ki的程序*/float Select_KA(float H,int GZJ,int YDJ); /*查表选择KA的程序*/float Select_KL(float Ld,int TYPE); /*查表选择KL的程序*/float Select_M(int TYPE); /*查表选择m的程序*/float Select_dd1(int TYPE); /*查表选择小轮基准直径dd1的程序*/ float Select_dd2(int dd1,float i); /*查表选择大轮直径dd2的程序*/ float Compute_P0(float V,int TYPE,float dd1); /*计算P0的程序*/float Compute_DIFP0(int TYPE,float Ki,int n1); /*计算DIFP0的程序*/float Compute_VMAX(int TYPE); /*计算VMAX的程序*/float Compute_KALF(float ALF1); /*计算KALF的程序*/float Compute_B(int TYPE,int z); /*计算带宽B的程序*/float* Compute_LAK(float dd1,float dd2,int TYPE); /*计算Ld，a，KL的程序*/ main(){floatP,H,i,n1,KA,Ki,dd1,dd2,V,P0,DIFP0,Pd,VMAX,*LAK,m,Ld,KALF,a,KL,z,F0,ALF1, Q,B;int YDJ,GZJ,TYPE,ANS;char type,ans;printf(" V带传动设计程序\n");printf(" 程序设计人:×××\n 班号:123456678\n 学号:1234567896\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);Pd=KA*P;VMAX=Compute_VMAX(TYPE);DD1:dd1=Select_dd1(TYPE);V=PAI*dd1*n1/60000;while(V>VMAX){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=180-57.3*(dd2-dd1)/a;KALF=Compute_KALF(ALF1);z=ceil(Pd/(KALF*KL*(P0+DIFP0)));if(z>=10)goto DX;m=Select_M(TYPE);F0=500*Pd*(2.5-KALF)/(z*V*KALF)+m*V*V;Q=2*z*F0*sin(ALF1*PAI/360);B= Compute_B(TYPE,z);printf(" 计算结果\n");printf("小轮直径:%f mm\n大轮直径:%f mm\n中心距:%f mm\n带长:%f mm\n带宽:%f mm\n带的根数:%f\n初拉力:%f N\n轴压力:%f N\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)goto DD1;else if(ANS==7)goto START;else if(ANS==8)printf("程序结束");else{printf("输入错误，请重新输入");goto X;}}float Select_KA(float H,int GZJ,int YDJ){float ka1[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}};float ka2[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}};float KA;if(YDJ==1){if(H<10)KA=ka1[GZJ-1][0];else if(H>16)KA=ka1[GZJ-1][2];elseKA=ka1[GZJ-1][1];}if(YDJ==2){if(H<10)KA=ka2[GZJ-1][0];else if(H>16)KA=ka2[GZJ-1][2];elseKA=ka2[GZJ-1][1];}return KA;}float Select_Ki(float i){float m;floatKi[10]={1.0000,1.0136,1.0276,1.0419,1.0567,1.0719,1.0875,1.1036,1.1202,1.1 373};float I[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.52,2.00};int j=9;for(j=9;j>=0;j--){m=i-I[j];if(m>=0)break;}return Ki[j];}int TYPE_TO_NUM(char type){int x;if(type<91)type+=32;switch(type){case 'z':x=0;break;case 'a':x=1;break;case 'b':x=2;break;case 'c':x=3;break;case 'd':x=4;break;case 'e':x=5;break;case 'y':x=6;break;case 's':x=7;break;case 'n':x=8;break;}return x;}float Compute_P0(float V,int TYPE,float dd1){float P0;float K1[6]={0.246,0.449,0.794,1.48,3.15,4.57};float K2[6]={7.44,19.02,50.6,143.2,507.3,951.5};float K3[6]={0.441e-4,0.765e-4,1.31e-4,2.34e-4,4.77e-4,7.06e-4};P0=(K1[TYPE]*pow(V,-0.09)-K2[TYPE]/dd1-K3[TYPE]*V*V)*V;return P0;}float Compute_DIFP0(int TYPE,float Ki,int n1){float Kb,DIFP0;float KB[6]={0.2925e-3,0.7725e-3,1.9875e-3,5.625e-3,19.95e-3,37.35e-3};Kb=KB[TYPE];DIFP0=Kb*n1*(1-1/Ki);return DIFP0;}float Select_dd1(int TYPE){int i;float dd1;float DD1[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<4;i++){printf("%.2f ",DD1[TYPE][i]);}printf("\n请选择小带轮直径dd1:");scanf("%f",&dd1);return dd1;}float Select_dd2(int dd1,float i){float DD2[]={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};float dd2,temp,t;int j=0;temp=i*dd1;for(j=0;j<28;j++){t=temp-DD2[j];if(t<=0)break;}if((DD2[j]-temp)<(temp-DD2[j-1]))dd2=DD2[j];elsedd2=DD2[j-1];return dd2;}float* Compute_LAK(float dd1,float dd2,int TYPE){int j=0;float a1,a2,a0,Ld0,temp,KALF,Ld,a,KL;float LAK[3];float kl[23][6]={{400,0.87},{450,0.89},{500,0.91},{560,0.94},{630,0.96,0.81},{710,0.99,0.83},{800,1.00,0.85,0.82},{900,1.03,0.8 7,0.84,0.83},{1000,1.06,0.89,0.86,0.86,0.83},{1120,1.08,0.91,0.88,0.88,0.86},{1250,1.10,0.93,0.90,0.91,0.89},{1400,1.14, 0.96,0.92,0.93,0.91},{1600,1.16,0.99,0.95,0.95,0.93},{1800,1.18,1.01,0.98,0.97,0.96},{2000,0,1.03,1.00,0.99,0.98},{2240,0,1.06,1 .03,1.02,1.00},{2500,0,1.09,1.05,1.04,1.03},{2800,0,1.11,1.07,1.07,1.06},{3150,0,1.13,1.09,1.09,1.08},{3550,0,1.17,1.13 ,1.12,1.11},{4000,0,1.19,1.15,1.15,1.14},{4500,0,0,1.18,1.18,1.17},{5000,0,0,0,1. 21,1.20}};a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);printf("请输入初估中心距a0(范围为%.2fmm~%.2fmm):",a1,a2);scanf("%f",&a0);Ld0=2*a0+(dd1+dd2)*PAI/2+(dd2-dd1)*(dd2-dd1)/a0/4;for(j=0;j<23;j++){temp=Ld0-kl[j][0];if(temp<=0)break;}if((Ld0-kl[j-1][0])>(kl[j][0]-Ld0)){ Ld=kl[j][0];KL=kl[j][TYPE+1];}else{ Ld=kl[j-1][0];KL=kl[j-1][TYPE+1];}a=a0+(Ld-Ld0)/2;LAK[0]=Ld;LAK[1]=a;LAK[2]=KL;return LAK;}float Compute_VMAX(int TYPE){float VMAX;switch(TYPE){case 0:case 1:case 2:case 3:VMAX=25;break;case 4:case 5:VMAX=30;break;}return VMAX;}float Select_M(int TYPE){float m;float M[6]={0.06,0.1,0.17,0.3,0.6,0.9};m=M[TYPE];return m;}float Compute_B(int TYPE,int z){float f[6]={8,10,12.5,17,23,29};float e[6]={12,15,19,25.5,37,44.5};float B;B=(z-1)*e[TYPE]+2*f[TYPE];return B;}float Compute_KALF(float ALF1){floatkalf[2][14]={220,210,200,190,180,170,160,150,140,130,120,110,100,90,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},KALF;int i;for(i=0;i<14;i++){if(ALF1<kalf[0][i]&&ALF1>kalf[0][i+1]){KALF=kalf[1][i]+(kalf[1][i]-kalf[1][i+1])*(ALF1-kalf[0][i])/10;break;}}return KALF;}五、程序运行截图电动机功率4kw,,转速960r/min,传动比2，工作时间24h。
哈工大机械设计大作业,V带传动
哈尔滨工业大学机械设计大作业设计计算说明书题目: V带传动设计系别:班号:姓名:学号:日期: 2012年10月28日目录(一)选择电动机—————————————————————————————4(二)确定设计功率dP———————————————————————————4 (三)选择带的型号————————————————————————————4(四)确定带轮的基准直径dd1和dd2——————————————————————4(五)验算带的速度————————————————————————————4(六)确定中心距a和V带基准长dL—————————————————————4(七)计算小轮包角1———————————————————————————5(八)确定V带根数Z————————————————————————————5(九)确定初拉力F————————————————————————————5 (十)计算作用在轴上的压力————————————————————————6 (十一)带轮结构设计————————————————————————————6 (十二)参考文献——————————————————————————————7哈尔滨工业大学机械设计作业任务书题目: 设计绞车（带棘轮制动器）中的V带传动结构简图见下图:。
原始数据如下：室内工作、工作平稳、机器成批生产方案电动机功率P/kW电动机满载转速n m/(r/min)工作机的转速n w/(r/min)第一级传动比1i轴承座中心高H/mm最短工作年限FC5.3.1 3.7 912 60 3.2 200 10年2班40%一 选择电动机由方案图表中的数据要求，查《机械设计课程设计指导书》表14-1 Y 系列三相异步电动机的型号及相关数据选择可选择Y132M1-6。
可查《机械设计课程设计指导书》表14-2得轴径为38mm,长为76mm.二 确定设计功率d P 由题目条件给出P d =K A P d =1.3*3.7=4.81Kw 。
哈工大机械设计大作业V带传动设计说明书完美版
机械设计作业任务书题目：液体搅拌机中的V带传动结构简图见下图:方案P (KW) n m(r/mi n) n w(r / min) i1 轴承座中心高H（ mm）最短工作年限L工作环境5.2.3 4 720 80 2.5 200 3年3班室内潮湿确定设计功率F d设计功率是根据需要传递的名义功率、载荷性质、原动机类型和每天连续工作的时间长短等因素共同确定的，表达式如下：Pd = K A U P式中P ――需要传递的名义功率K A――工作情况系数，按表2工作情况系数K A选取K A=1.2；选择带型所以P d =K A L P =1.2x4 =4.8kW根据F d、n1，查看图5.71可选取B型带。
确定带轮的基准直径d d 1和d d 2d dmin知B型带d dmin =125mm,在优选直径系列选取小带轮基准直径: d dj =140mm ；大带轮基准直径: d d2 =i1L d d1 =2.5x140 = 350mm查表优先选取大带轮基准直径d d2 = 355mm ；其传动比误差心=3552.5-—1402.5咒100%=1.43%<5%，故可用。
验算带的速度兀Ld d1L n1 兀X140X720 ,V = ------ = ----------- = 5.3m /s60 咒1000 60^1000式中n1——电动机转速；d d1—小带轮基准直径;即v=5.3m/s< V max=25m/s,符合要求。
确定中心距a和V带基准长度L i根据：0.7(d d1 +d d2)兰a o <2(d d1 +d d2)初步确定中心距0.7（140+355）=346.5 < <2（140+355）=990考虑到应使结构紧凑，选取中心距a0=400mm初算带的基准长度L d':2 2-=2X400+ 王x（140+355）+（355-140）=1606.0mm2 4x400式中L d 带的标准基准长度;L d 带的初算基准长度;V带带轮最小基准直径a 。
哈工大机械原理大作业3
Harbin Institute of Technology机械原理大作业三课程名称：设计题目：院系：班级：设计者：学号：指导教师：设计时间：哈尔滨工业大学大作业3 齿轮传动设计 1、设计题目1.1机构运动简图1.2机械传动系统原始参数2、传动比的分配计算由已知条件，电动机转速n=1450r/min ，输出转速n 1=27 r/min ，n 2=31 r/min ，n 3=37 r/min ，带传动最大传动比max p i =2.5,滑移齿轮传动最大传动比=4，定轴齿轮传动最大 传动比=4。
可求得：传动系统的总传动比为:11n ni == 1450/27=53.70322n ni == 1450/31=46.774 33n ni == 1450/37=39.189 传动系统的总传动比分别由带传动、滑移齿轮传动和定轴齿轮传动三部分实现。
设带传的传送比为其最大传送比5.2max =p i ，滑移齿轮的传动比为321,,v v v i i i ，定轴齿轮传动的传动比为f i ，则总传动比由于1i > 2i > 3i ，故取1max 4v v i i ==则定轴齿轮传动部分的传动比为1max max5.37f p v i i i i ==滑移齿轮传动的传动比22max3.49v f p i i i i ==33m a x2.92v f p i i i i ==定轴齿轮传动由3对齿轮传动组成， 每对齿轮的传动比为：1.754d i ==≤3、齿轮齿数的确定滑移齿轮齿数3=v i 65622.9521z z == 2=v i 8766 3.4719z z ==1=v i 10967 3.9417z z ==齿轮7，齿轮8：719z = 866z =781()852a m z z =+=齿轮9，齿轮10：917z =1067z =此时已知条件为'a =85mm ，910211()842()ni i a m z z X X ==+=-∑mm ''arccos(cos )21.78a aαα==总变位系数：'910()0.552tan z z x inv inv ααα∑+=-=根据x ∑值和1093.94 3.0z uz ==>，按选择变位系数线图左部斜线⑤分配变位系数，得90.45x =齿轮5，齿轮6：5=21z662z =此时已知'a =85mm ，561()832a m z z =+= ''arccos(cos )23.42a a αα==100.10x =总变位系数：'65() 1.082tan z z x inv inv ααα∑+=-=根据x ∑值和652.953z u z ==>，按选择变位系数线图左部斜线④分配变位系数，得 50.5x =60.58x =定轴圆柱齿轮齿数=d i 1214111326 1.5317z z z z ===齿轮11，齿轮12：角度变位正传动。
哈工大机械设计大作业三-V带传动电算编程-推荐下载
对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术关，系电，力通根保1据护过生高管产中线工资0不艺料仅高试可中卷以资配解料置决试技吊卷术顶要是层求指配，机置对组不电在规气进范设行高备继中进电资行保料空护试载高卷与中问带资题负料2荷试2，下卷而高总且中体可资配保料置障试时各卷，类调需管控要路试在习验最题；大到对限位设度。备内在进来管行确路调保敷整机设使组过其高程在中1正资中常料，工试要况卷加下安强与全看过，25度并52工且22作尽护下可1关都能于可地管以缩路正小高常故中工障资作高料；中试对资卷于料连继试接电卷管保破口护坏处进范理行围高整，中核或资对者料定对试值某卷，些弯审异扁核常度与高固校中定对资盒图料位纸试置，卷.编工保写况护复进层杂行防设自腐备动跨与处接装理地置，线高尤弯中其曲资要半料避径试免标卷错高调误等试高，方中要案资求，料技编试术5写、卷交重电保底要气护。设设装管备备置线4高调、动敷中试电作设资高气，技料中课并术3试资件且、中卷料中拒管包试试调绝路含验卷试动敷线方技作设槽案术，技、以来术管及避架系免等统不多启必项动要方方高式案中，；资为对料解整试决套卷高启突中动然语过停文程机电中。气高因课中此件资，中料电管试力壁卷高薄电中、气资接设料口备试不进卷严行保等调护问试装题工置，作调合并试理且技利进术用行，管过要线关求敷运电设行力技高保术中护。资装线料置缆试做敷卷到设技准原术确则指灵：导活在。。分对对线于于盒调差处试动，过保当程护不中装同高置电中高压资中回料资路试料交卷试叉技卷时术调，问试应题技采，术用作是金为指属调发隔试电板人机进员一行，变隔需压开要器处在组理事在；前发同掌生一握内线图部槽纸故内资障，料时强、，电设需回备要路制进须造行同厂外时家部切出电断具源习高高题中中电资资源料料，试试线卷卷缆试切敷验除设报从完告而毕与采，相用要关高进技中行术资检资料查料试和，卷检并主测且要处了保理解护。现装场置设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。
哈工大机械设计大作业V带传动设计完美版
哈工大机械设计大作业V带传动设计完美版作者: 日期:H arbin Ins t i t ut e of Te chno 1 ogy机械设计大作业说明书大作业名称：机械设计大作业 __________设计题目：____________班级: _______________________________________设计者: ____________________________________学号: ___________________________________指导教师：_________________________________ 设计时间: ________ 2014.1 0 .25 ________________哈尔滨工业大学目录一、大作业任务书 (1)二、电动机的选择 (1)三、确定设计功率P (2)四、选择带的型号 (2)五、确定带轮的基准直径d d1和d d2 (2)六、验算带的速度 (2)七、确定中心距 a和V带基准长度L d (2)八、计算小轮包角 (3)九、确定 V带根数Z (3)十、确定初拉力F0 (3)十一、计算作用在轴上的压力 (4)十二、小 V带轮设计 (4)1、带轮材料选择 (4)2、带轮结构形式 (4)十二、参考文献 (6)、大作业任务书带式运输机的传动方案如图1所示,机器工作平稳、单向回转、成批生产,其他数据见表1。
图1表1万案电动机工作功率Pd/k W电动机满载转速n m/(r/min) 工作机的转速n w/(r/mi n)第一级传动比i1轴承座中心高H/mm最短工作年限工作环境5.1.4 2. 2 94 0 80 2. 1 160 5年2班室内、清洁、电动机的选择根据所选方案已知数据，查参考文献［2］表14.1 —丫系列三相异步电动机的型号及相关数据选择,可选择Y112M-6。
可查得轴径为d=28mm,长为60mm、确定设计功率P d根据参考文献［1］表5.7查得工作情况系数K A = 1.2，则P d=K A P 1.2 2.2 kW 2.64k W四、选择带的型号根据巳、n：,查看参考文献［1］图5.17可选取A型带。
哈工大机械设计电算实验(matlab2010)
机械设计电算实验一：普通V带传动设计内容和任务1、普通V带传动设计内容给定原始数据：传递的功率P，小带轮转速n，传动比i及工作条件。
设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0，和压轴力FQ。
2、CAD任务：（1）编制V带传动设计程序框图。
（2）编制V带传动设计原程序。
（3）按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果。
二、变量标识符三、程序框图四、源程序与其说明程序说明：本程序用Matlab2010b软件编制，主要针对机械设计大作业上的题型设计。
使用时只要打开m文件，并点击运行，按照提示进行即可。
首先输入原始数据，然后根据自己的需要选择带型，中心距即可得到设计结果，无需再查找资料，方便高效,计算过程如有错误会进行提示，并返回到输入处进行改正。
而且该程序可以直接计算下一带轮直径或者计算下一带型，比较方便。
源程序如下(先复制到记事本，再新建一个m文件，粘贴)clear all;disp('欢迎使用本程序，请输入V带传动设计的原始数据');p=input('电动机工作功率(kw) P=');n=input('电动机满载转速(r/min) nm=');i=input('第一级传动比 i1=');a=input('请输入最短工作工作年限 a年b班 a=');b=input(' b=');disp('是否反复起动、正反转频繁或工作条件恶劣');ka1=input('是请输入1，否请输入0。
请输入：');disp('原动机类型:');disp('I类原动机包括普通笼型交流电动机，同步电动机，');disp(' 直流电动机（并激），n>=600r/min的内燃机')disp('II类原动机包括交流电动机(双笼型、滑环式、单相、大转差率)，');disp(' 直流电动机（复激、串激），单缸发动机，n<=600r/min的内燃机')d1=input('请选择原动机的类型，输入1或2。
哈工大机械设计大作业--V带传动电算说明书
设计说明书——普通V带传动ＣＡＤ系别：机械设计制造及其自动化姓名:蒋延达学号：H100811204班级：1008101时间:2012。
11。
1指导教师：宋宝玉一：普通V带传动设计内容和任务1、普通V带传动设计内容给定原始数据：传递的功率P，小带轮转速n,传动比i及工作条件.设计内容：带型号,基准长度Ld，根数Z,传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B,初拉力F0,和压轴力Q。
2、CAD任务：（1）编制V带传动设计程序框图。
(2)编制V带传动设计原程序.（3)按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果。
二、变量标识符//请勿将本程序用于其他用途//在未经设计者允许请勿转载、复制等侵权行为//这个程序凝聚了设计者的巨大心血请尊重劳动者的成果//设计者蒋延达H100811204//时间2012。
11.1 22:50 哈尔滨工业大学A02公寓#include〈stdio。
h>#include〈math.h>#include〈stdlib.h〉#include<ctype.h〉＃include ”process。
h"＃define Pi 3.1415926double P,Pd，KA，n1,aMIN,aMAX，V,a，Ld0，ALF1，z,P0，DIFP0,Kb,Ki，KL,KALF,F0,FQ，j，c，m0;char TYPE，q;int Ld，dd1,dd20,dd2，i，reply;char A，B，C，D,E,Y，Z；main（）｛printf("设计者蒋延达\n")；printf(”以下用到的表均取自《机械设计》第五版，宋宝玉，王黎钦，著，高等教育出版社2009年;\n”)；printf（”V带的型号选用Z，A,B，C,D,E六种可选带型;\n"）;printf（"请输入额定功率P(kW）:”)；scanf("％lf”,&P）；//名义功率printf("请输入转速n1(r/min）:”）；scanf（”％lf"，＆n1);//小带轮转速printf(”请查表5。
哈工大机械设计大作业——带式运输机V带传动设计
哈工大机械设计大作业——带式运输机V带传动设计(总7页) --本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--Harbin Institute of Technology机械设计大作业说明书设计题目：带式运输机中的V带传动院系：能源科学与工程学院班级： 1302404设计者：朱明磊学号： 22指导教师：张锋设计时间：目录一．设计任务书........................................................................................... 错误!未定义书签。
二．电动机的选择....................................................................................... 错误!未定义书签。
三．确定设计功率P d.................................................................................. 错误!未定义书签。
四．选择带的型号....................................................................................... 错误!未定义书签。
五．确定带轮的基准直径d d1和d d2........................................................... 错误!未定义书签。
六．验算带的速度....................................................................................... 错误!未定义书签。
七．确定中心距a和V带的基准长度Ld ................................................. 错误!未定义书签。
哈工大机械设计大作业三——带式传动机中的V带传动-1100800130
带式运输机的传动方案如下图所示，机器工作平稳、单向回转、成批生产。电动机工作功率为3kW，电动机满载转速为710r/min，工作机的转速为80r/min，第一级传动比2，轴承座中心高为170mm，最短工作年限为3年2班，工作环境为室内、清洁。
二、选择电动机
2.1、选择电动机类型和结构形式
选取电动机型号Y132M-8。d=38mm,其主要参数寸如下表。
三、普通V 带轮的传动设计（传动装置的运动学计算）
3.1确定设计功率
由题目所给已知条件可知
Pd=3kW
3.2选取带型
根据Pd、n1,由参考文献[1]图5.11查取，选A型带。
3.3确定带轮的基准直径
根据参考文献[1]表5.8荐用A型最小基准直径75mm，可选小带轮
四、带轮结构设计……………………………………………………………4
4.1带轮材料选择……………………………………………………………4
4.2带轮结构形式……………………………………………………………4
4.3带轮结构尺寸……………………………………………………………4
五、参考文献………………………………………………………………5
一、设计题目……………………………………………………………1
二、选择电动机……………………………………………………………1
2.1、选择电动机类型和结构形式………………………………………………1
2.2、选择电动机的功率………………………………………………………1
2.3、确定电动机转速并选择电机………………………………………………1
Harbin Institute of Technology
大作业设计说明书
课程名称：机械设计
哈工大机械设计大作业三——带式传动机中的V带传动
哈尔滨工业大学机械设计作业任务书题目设计带式传动机中的V带传动设计原始数据：电动机工作功率：P d = 2.2 k W电动机满载转速：n m=940 r/min工作机的转速：n w=80 r/min第一级传动比：i1=2.1轴承座中心高：H=170 mm最短工作年限：5年2班工作环境：室内、清洁V带传动设计一、设计题目带式运输机的传动方案如下图所示，机器工作平稳、单向回转、成批生产。
电动机工作功率为2.2kW，电动机满载转速为940r/min，工作机的转速为80r/min，第一级传动比2.1，轴承座中心高为160 mm，最短工作年限为5年2班，工作环境为室内、清洁。
二、确定电动机类型根据参考文献[2]表 15.1，当额定功率为2.2 kW，同步转速为940 r/min，选取电动机型号Y112M-6。
三、V带设计1.确定设计功率由题目所给已知条件可知P d/kW=2.22.选取带型根据P d、n1,由参考文献[1]图 7.11查取，选A型带。
3.确定带轮的基准直径根据参考文献[1]表 7.7荐用最小基准直径，可选小带轮直径d d1=125 mm，则大带轮直径为d d2/mm=i·d d1=2.1×125=262.5由参考文献[1]表7.3查得取d d2=250 mm，其传动比△i<5%4.验算带的速度v /(m/s)=πd d1∙n160×1000=π×125×94060×1000=6.15<25 = v max/(m/s)故可用。
5.确定V带长度和中心距根据0.7(d d1+d d2)≤a0≤2(d d1+d d2),初步确定中心距0.7×(125+250)=262.5≤a0≤2×(125+250)=750因结构要求不高，故取中间值a0=500 mm。
根据参考文献[1]式 (7.4)计算V带基准长度L d’/mm=2a0 +π2(d d1+d d2)+(dd1+dd2)24a0=1596.56由参考文献[1]表 7.2选V带基准长度L d=1600 mm。
哈工大_机械设计_大作业_V带传动电算报告 推荐
H a r b i n I n s t i t u t e o f T e c h n o l o g y哈尔滨工业大学机械设计作业设计计算说明书设计题目：V带传动设计院系：英才学院班级：设计者：学号：设计时间：2012.11.25哈尔滨工业大学一、程序框图二、V带设计程序function varargout = V_caculate(varargin)%本程序用于计算V带的各项数据%部分中文注释复制出来之后为乱码% V_CACULATE M-file for V_caculate.fig% V_CACULATE, by itself, creates a new V_CACULATE or raises the existing% singleton*.%% H = V_CACULATE returns the handle to a new V_CACULATE or the handle to % the existing singleton*.%% V_CACULATE('CALLBACK',hObject,eventData,handles,...) calls the local% function named CALLBACK in V_CACULATE.M with the given input arguments. %% V_CACULATE('Property','Value',...) creates a new V_CACULATE or raises the% existing singleton*. Starting from the left, property value pairs are% applied to the GUI before V_caculate_OpeningFcn gets called. An% unrecognized property name or invalid value makes property application% stop. All inputs are passed to V_caculate_OpeningFcn via varargin.%% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one% instance to run (singleton)".%% See also: GUIDE, GUIDATA, GUIHANDLES% Edit the above text to modify the response to help V_caculate% Last Modified by GUIDE v2.5 06-Dec-2012 15:27:18% Begin initialization code - DO NOT EDITgui_Singleton = 1;gui_State = struct('gui_Name', mfilename, ...'gui_Singleton', gui_Singleton, ...'gui_OpeningFcn', @V_caculate_OpeningFcn, ...'gui_OutputFcn', @V_caculate_OutputFcn, ...'gui_LayoutFcn', [] , ...'gui_Callback', []);if nargin && ischar(varargin{1})gui_State.gui_Callback = str2func(varargin{1});endif nargout[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});elsegui_mainfcn(gui_State, varargin{:});end% End initialization code - DO NOT EDIT% --- Executes just before V_caculate is made visible.function V_caculate_OpeningFcn(hObject, eventdata, handles, varargin)% This function has no output args, see OutputFcn.% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% varargin command line arguments to V_caculate (see VARARGIN)global Pd yilei erlei chuandongbi zhuansu TYPE Dd1array Dd1 MINMAX P0array Narray Vmax Ldarray Dd1pos Kaarray Klarray Dd2array DSPcellarray CELLDSP TABLEPOS HEADMES;Vmax=25;%ZABCÐÍ´øµÄ×î´ó´øËÙ%ÒÔÏÂÊÇÆÕͨV´ø»ù±¾¶î¶¨¹¦ÂÊP0µÄ±í¸ñÊý¾ÝP0array=[0.00 0.04,0.06,0.09,0.10,0.12,0.14,0.16,0.17,0.20,0.22,0.26,0.28,0.30,0.32,0.33,0.34,0.33,0.31;0.00 0.05,0.08,0.13,0.15,0.18,0.22,0.25,0.27,0.32,0.37,0.41,0.45,0.47,0.49,0.50,0.50,0.49,0.48;0.00 0.06,0.09,0.17,0.20,0.23,0.27,0.30,0.33,0.39,0.46,0.50,0.54,0.58,0.61,0.62,0.62,0.61,0.58;0.00 0.10,0.14,0.20,0.22,0.26,0.30,0.35,0.39,0.44,0.50,0.56,0.61,0.64,0.67,0.67,0.66,0.64,0.00;0.00 0.15,0.26,0.40,0.45,0.51,0.60,0.68,0.73,0.84,0.92,1.00,1.04,1.08,1.09,1.07,1.02,0.96,0.80;0.00 0.22,0.39,0.61,0.68,0.77,0.93,1.07,1.05,1.34,1.50,1.64,1.73,1.83,1.87,1.88,1.82,0.00,0.00;0.00 0.26,0.47,0.74,0.83,0.95,1.14,1.32,1.42,1.66,1.87,2.05,2.19,2.28,2.34,2.33,0.00,0.00,0.00;0.00 0.37,0.67,1.07,1.19 1.37 1.66 1.92 2.07 2.44 2.74 2.98 3.16 3.26 0.00 0.00 0.00 0.00 0.00;0.00 0.48 0.84 1.30 1.44 1.64 1.93 2.19 2.33 2.64 2.85 2.96 2.94 2.80 0.00 0.00 0.00 0.00 0.00;0.00 0.59 1.05 1.64 1.82 2.08 2.47 2.82 3.00 3.42 3.70 3.85 3.83 0.00 0.00 0.00 0.00 0.00 0.00;0.00 0.74 1.32 2.09 2.32 2.66 3.17 3.62 3.86 4.40 4.75 4.89 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 0.88 1.59 2.53 2.81 3.22 3.85 4.39 4.68 5.30 5.67 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 1.39 2.41 3.69 4.07 4.58 5.29 5.84 6.07 6.34 6.02 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 2.03 3.62 5.64 6.23 7.04 8.21 9.04 9.38 9.62 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 2.84 5.14 8.09 8.92 10.05 11.53 12.46 12.72 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;0.00 3.91 7.06 11.02 12.10 13.48 15.04 0.0 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;3.01 5.31 9.24 13.70 14.83 16.15 17.25 16.77 15.63 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;3.66 6.52 11.45 17.07 18.46 20.06 21.20 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;4.37 7.90 13.85 20.63 22.25 24.01 24.84 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;5.08 9.21 16.20 23.99 25.76 27.50 0.000 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;6.21 10.86 18.55 26.21 27.57 28.32 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;7.32 13.09 22.49 31.59 33.03 33.40 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;8.75 15.65 26.95 37.26 38.62 0.000 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;10.31 18.52 31.83 42.87 43.52 0.00 0.00 0.00 0.000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00;];MINMAX=[950,6000;800,6000;700,6000;700,6000;200,600;200,6000;200,6000;200,5500;200,6000;200,5000;200,4500;200,3600;200,3600;200,3200;200,2800;200,2400;200,2400;200,2000;200,1600;200,1200;100,1600;100,1200;100,1200;100,950;100,950;100,950;100,800;100,800;];Narray=[100,200,400,700,800,950,1200,1450,1600,2000,2400,2800,3200,3600,4000,4500,5000,5500,6000];%ÒÔÏÂÊÇ´øµÄ»ù×¼³¤¶ÈLdϵÁÐLdarray=[200,224,250,280,315,355,400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,224 0,2500,2800,3150,3550,4000,4500,5000];Dd2array=[20,28,31.5,35.5,40,45,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];%ÒÔÏÂÊǹ¤×÷»·¾³µÄKa²é±íyilei=[1:0.1:1.2;1.1:0.1:1.3;1.2:0.1:1.4;1.3:0.1:1.5];erlei=[1.1:0.1:1.3;1.2:0.1:1.4;1.4:0.1:1.6;1.5,1.6,1.8];%°ü½ÇÐÞÕýϵÊý±íKaarray=[220,210,200,190,180,170,160,150,140,130,120,110,100,90;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];%´ø³¤ÐÞÕýϵÊý±íKlarray=[200 zeros(1,6);224 zeros(1,6);250 zeros(1,6);280 zeros(1,6);315 zeros(1,6);355 zeros(1,6);400 0.87 zeros(1,5);450 0.89 zeros(1,5);500 0.91 zeros(1,5);560 0.94 zeros(1,5);630 0.96 0.81 zeros(1,4);710 0.99 0.83 zeros(1,4);800 1.00 0.85 0.82 zeros(1,3);900 1.03 0.87 0.84 0.83 zeros(1,2);1000 1.06 0.89 0.86 0.86 0.83 0;1120 1.08 0.91 0.88 0.88 0.86 0;1250 1.10 0.93 0.90 0.91 0.89 0;1400 1.14 0.96 0.92 0.93 0.91 0;1600 1.16 0.99 0.95 0.95 0.93 0;1800 1.18 1.01 0.98 0.97 0.96 0;2000 0 1.03 1.00 0.99 0.98 0;2240 0 1.06 1.03 1.02 1.00 0;2500 0 1.09 1.05 1.04 1.03 0;2800 0 1.11 1.07 1.07 1.06 0;3150 0 1.13 1.09 1.09 1.08 0;3550 0 1.17 1.13 1.12 1.11 0;4000 0 1.19 1.15 1.15 1.14 0;4500 0 0 1.18 1.18 1.17 0;5000 0 0 0 1.21 1.20 0];%СÂÖÖ±¾¶ÏµÁÐÊý×éDd1array=[50 63 71 80 75 90 100 125 125 140 160 180 200 250 315 400 355 400 450 500 500 560 630 710];%½çÃæ³õʼ»¯TYPE=get(handles.popupmenu11,'value');switch(TYPE)case 1set(handles.popup,'string','50|63|71|80');case 2set(handles.popup,'string','75|90|100|125');case 3set(handles.popup,'string','125|140|160|180');case 4set(handles.popup,'string','200|250|315|400');case 5set(handles.popup,'string','355|400|450|500');Vmax=30;case 6set(handles.popup,'string','500|560|630|710');Vmax=30;endDd1pos=get(handles.popup,'value'); %È·¶¨popupÖÐDd1Ñ¡ÔñµÄλÖÃDd1=Dd1array((TYPE-1)*4+Dd1pos);TABLEPOS=1;changetabledsp(handles.uitable1,'deleteall',TABLEPOS,TYPE);set(handles.edit9,'string','');% Choose default command line output for V_caculatehandles.output = hObject;% Update handles structureguidata(hObject, handles);% UIWAIT makes V_caculate wait for user response (see UIRESUME)% uiwait(handles.figure1);% --- Outputs from this function are returned to the command line.function varargout = V_caculate_OutputFcn(hObject, eventdata, handles)% varargout cell array for returning output args (see VARARGOUT);% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Get default command line output from handles structurevarargout{1} = handles.output;% --- Executes on selection change in popupmenu3.function popupmenu3_Callback(hObject, eventdata, handles)% hObject handle to popupmenu3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu3 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu3% --- Executes during object creation, after setting all properties.function popupmenu3_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit1_Callback(hObject, eventdata, handles)% hObject handle to edit1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit1 as text% str2double(get(hObject,'String')) returns contents of edit1 as a double% --- Executes during object creation, after setting all properties.function edit1_CreateFcn(hObject, eventdata, handles)% hObject handle to edit1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit2_Callback(hObject, eventdata, handles)% hObject handle to edit2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit2 as text% str2double(get(hObject,'String')) returns contents of edit2 as a double% --- Executes during object creation, after setting all properties.function edit2_CreateFcn(hObject, eventdata, handles)% hObject handle to edit2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');endfunction edit3_Callback(hObject, eventdata, handles)% hObject handle to edit3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit3 as text% str2double(get(hObject,'String')) returns contents of edit3 as a double% --- Executes during object creation, after setting all properties.function edit3_CreateFcn(hObject, eventdata, handles)% hObject handle to edit3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu9.function popupmenu9_Callback(hObject, eventdata, handles)% hObject handle to popupmenu9 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu9 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu9% --- Executes during object creation, after setting all properties.function popupmenu9_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu9 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu5.function popupmenu5_Callback(hObject, eventdata, handles)% hObject handle to popupmenu5 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu5 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu5% --- Executes during object creation, after setting all properties.function popupmenu5_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu5 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');% --- Executes on selection change in popupmenu4.function popupmenu4_Callback(hObject, eventdata, handles)% hObject handle to popupmenu4 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu4 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu4% --- Executes during object creation, after setting all properties.function popupmenu4_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu4 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu6.function popupmenu6_Callback(hObject, eventdata, handles)% hObject handle to popupmenu6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu6 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu6% --- Executes during object creation, after setting all properties.function popupmenu6_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on selection change in popupmenu8.function popupmenu8_Callback(hObject, eventdata, handles)% hObject handle to popupmenu8 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu8 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu8% --- Executes during object creation, after setting all properties.function popupmenu8_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu8 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on button press in checkbox1.function checkbox1_Callback(hObject, eventdata, handles)% hObject handle to checkbox1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hint: get(hObject,'Value') returns toggle state of checkbox1% --- Executes on button press in checkbox2.function checkbox2_Callback(hObject, eventdata, handles)% hObject handle to checkbox2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hint: get(hObject,'Value') returns toggle state of checkbox2% --- Executes on button press in checkbox3.function checkbox3_Callback(hObject, eventdata, handles)% hObject handle to checkbox3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hint: get(hObject,'Value') returns toggle state of checkbox3% --- Executes during object creation, after setting all properties.function pushbutton1_Callback(hObject, eventdata, handles)% hObject handle to pushbutton1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)global Pd yilei erlei chuandongbi zhuansu TYPE Dd2array Dd1 Dd2 TABLEPOS HEADMES; for i=1:1p=get(handles.edit1,'string');n1=get(handles.edit2,'string');cd=get(handles.edit3,'string');gonglv=eval(p);%ÃûÒ幦ÂÊzhuansu=eval(n1);chuandongbi=eval(cd);%´«¶¯±ÈGZJ=get(handles.popupmenu3,'value');YDJ=get(handles.popupmenu5,'value');SJ=get(handles.popupmenu9,'value');if(YDJ==1||YDJ==3||YDJ==4||YDJ==6)leibie=1;elseleibie=2;endif(leibie==1)Ka=yilei(GZJ,SJ);elseKa=erlei(GZJ,SJ);end;check1=get(handles.checkbox1,'value');check2=get(handles.checkbox2,'value');check3=get(handles.checkbox3,'value');gongzuochanghe=check1|check2|check3;if(gongzuochanghe==1)Ka=Ka*1.1;endPd=Ka*gonglv;xianshi=sprintf('%0.3f %s',Pd,'KW');set(handles.text23,'string',xianshi);Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);a01=0.7*(Dd1+Dd2);a02=2*(Dd1+Dd2);pa1=num2str(a01);pa2=num2str(a02);set(handles.edit6,'string',pa1);set(handles.edit8,'string',pa2);end% --- Executes on selection change in popupmenu11.function popupmenu11_Callback(hObject, eventdata, handles)% hObject handle to popupmenu11 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu11 contents as cell array % contents{get(hObject,'Value')} returns selected item from popupmenu11 global TYPE Dd1pos Dd1array Dd1 Dd2 Dd2array chuandongbi;TYPE=get(handles.popupmenu11,'value');switch(TYPE)case 1set(handles.popup,'string','50|63|71|80');case 2set(handles.popup,'string','75|90|100|125');case 3set(handles.popup,'string','125|140|160|180');case 4set(handles.popup,'string','200|250|315|400');case 5set(handles.popup,'string','355|400|450|500');Vmax=30;case 6set(handles.popup,'string','500|560|630|710');Vmax=30;endDd1pos=get(handles.popup,'value'); %È·¶¨popupÖÐDd1Ñ¡ÔñµÄλÖÃDd1=Dd1array((TYPE-1)*4+Dd1pos);Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);a01=0.7*(Dd1+Dd2);a02=2*(Dd1+Dd2);pa1=num2str(a01);pa2=num2str(a02);set(handles.edit6,'string',pa1);set(handles.edit8,'string',pa2);% --- Executes during object creation, after setting all properties.function popupmenu11_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu11 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes on button press in pushbutton2.function pushbutton2_Callback(hObject, eventdata, handles)% hObject handle to pushbutton2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% --- Executes on button press in pushbutton5.function pushbutton5_Callback(hObject, eventdata, handles)% hObject handle to pushbutton5 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)global Pd yilei erlei chuandongbi zhuansu TYPE Dd1 Dd2 MINMAX P0array Narray Vmax Ldarray Dd1pos Kaarray Dd2array Klarray TABLEPOS data datafront;clc;for i=1:1Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);V=pi*Dd1*zhuansu/(60*1000);%´øËÙa0=str2double(get(handles.edit9,'string'));%³õÑ¡ÖÐÐľàLdpie=2*a0+1.57*(Dd1+Dd2)+(Dd2-Dd1)^2/(4*a0);%³õÑ¡»ù×¼³¤¶ÈLd=nearest(Ldpie,Ldarray);%»ù×¼³¤¶Èa=round(a0+(Ld-Ldpie)/2); %ÖÐÐľàalf1=180-(Dd2-Dd1)/a*57.3; %СÂÖ°ü½Ç£¬µ¥Î»£º¶ÈP0=P0func(zhuansu,MINMAX,P0array,Narray,TYPE,Dd1pos);%²é±í£¬ÕÒµ½¾Í·µ»Ø¶î¶¨¹¦ÂÊKa=baojiao(alf1,Kaarray);%²éÕÒ°ü½ÇÐÞÕýϵÊýKl=daichangxiuzheng(Ld,TYPE,Klarray);%²éÕÒ´ø³¤ÐÞÕýϵÊýKb=wanquyingxiang(TYPE);%ÍäÇúÓ°ÏìϵÊýKi=chuandongbixishu(chuandongbi);%´«¶¯±ÈϵÊýdietaP0=Kb*zhuansu*(1-1/Ki);Zfront=Pd/(P0+dietaP0)/Ka/Kl;%Ƥ´ø¸ùÊýZ=ceil(Zfront);m=mass(TYPE);%¼ÆËã´øµÄÖÊÁ¿if(Z<1)Z=1;endF0=500*Pd/(V*Z)*((2.5-Ka)/Ka)+m*V^2;%È·¶¨³õÀ-Á¦´óСFq=2*F0*Z*sin(alf1/360*pi);%¼ÆËã×÷ÓÃÔÚÖáÉϵÄѹÁ¦%ÏÔʾÊý¾Ýdata={Z,Ld,a,alf1,V,Dd2,F0,Fq};changetabledsp(handles.uitable1,'write',TABLEPOS,TYPE,data);TABLEPOS=TABLEPOS+1;endfunction popup_Callback(hObject, eventdata, handles)% hObject handle to popup (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of popup as text% str2double(get(hObject,'String')) returns contents of popup as a doubleglobal Dd1 TYPE Dd1array Dd1pos Dd2 Dd2array chuandongbi;Dd1pos=get(handles.popup,'value'); %È·¶¨popupÖÐDd1Ñ¡ÔñµÄλÖÃDd1=Dd1array((TYPE-1)*4+Dd1pos);Dd22=chuandongbi*Dd1;Dd2=nearest(Dd22,Dd2array);a01=0.7*(Dd1+Dd2);a02=2*(Dd1+Dd2);pa1=num2str(a01);pa2=num2str(a02);set(handles.edit6,'string',pa1);set(handles.edit8,'string',pa2);% --- Executes during object creation, after setting all properties.function popup_CreateFcn(hObject, eventdata, handles)% hObject handle to popup (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white');end% --- Executes when entered data in editable cell(s) in uitable1.function uitable1_CellEditCallback(hObject, eventdata, handles)% hObject handle to uitable1 (see GCBO)% eventdata structure with the following fields (see UITABLE)% Indices: row and column indices of the cell(s) edited。
哈工大机械设计大作业 - V带传动
哈工大机械设计大作业 - V带传动哈尔滨工业大学机械设计大作业设计计算说明书题目: V带传动设计系别: 班号: 姓名: 学号: 日期: 2021年10月28日目录 (一) (二) (三) (四) (五) (六) (七) (八) (九) (十)(十一) 带轮结构设计――――――――――――――――――――――――――――6(十二) 参考文献――――――――――――――――――――――――――――――7计算作用在轴上的压力――――――――――――――――――――――――6 确定初拉力F0――――――――――――――――――――――――――――5确定V带根数Z――――――――――――――――――――――――――――5 计算小轮包角?1―――――――――――――――――――――――――――5确定中心距a和V带基准长Ld―――――――――――――――――――――4 验算带的速度――――――――――――――――――――――――――――4 确定带轮的基准直径dd1和dd2――――――――――――――――――――――4 选择带的型号――――――――――――――――――――――――――――4 确定设计功率Pd―――――――――――――――――――――――――――4 选择电动机―――――――――――――――――――――――――――――41哈尔滨工业大学机械设计作业任务书题目: 设计绞车（带棘轮制动器）中的V带传动结构简图见下图:。
原始数据如下：室内工作、工作平稳、机器成批生产轴承座方案电动机功率P/kW 电动机满载转速工作机的转速nw/(r/min) 第一级传动比i1 中心高H/mm 5.3.12最短工作年限 nm/(r/min) FC 3.7 912 60 3.2 200 10年2班 40%一选择电动机由方案图表中的数据要求，查文献2表14-1 Y系列三相异步电动机的型号及相关数据可查文献2表14-2得轴径为38mm,长为80mm.二确定设计功率Pd三选择带的型号根据Pd、n1，查看文献1图5.17可选取A型带。
哈工大机械设计带传动设计电算大作业vb和c语言程序代码
哈工大机械设计带传动设计电算大作业vb和c语言程序代码课程名称, 机械设计电算题目, V带传动设计院系, 机电控制学院班级, 1308102班设计者, 尤开灵学号, 1130810222 设计时间, 2015.10.17 部分变量说明(所有说明见程序部分变量定义)ka 工作情况系数 p 输入功率 kwpd 工作功率 kw i 传动比n1 输入小轮转速 r/min d1 小带轮直径 mmd2 大带轮直径 mm v 皮带速度 m/sjiao 输出包容角度 ? ff0 初拉力 Nff1 轴间力 N ld 带的长度 mmz 皮带代数根 m 质量 kg程序运行截图判断语句:包括速度判断选择小轮直径，输入数据判断小轮直径输出结果及其函数界面'运行程序程序代码Private Sub Command5_Click() '条件输入确定 Dim ka1 As Double '工作情况系数变量 Call f0Dim ka As Double '工作情况系数 Call f1Dim p As Double '输入功率 Text5.Text = n1 & "r/min" Dim pi As Double 'pi的定义 Text4.Text = pd & "kw" Dim pd As Double '工作功率 End Sub Dim i As Double '传动比 Private Sub Command2_Click() '小轮直径选择与确定 Dim n1 As Double '输入小轮转速 d1 = Val(Text7.Text) Dim d1 As Double '小带轮直径 Call f2Dim d2 As Double '大带轮直径 Call f3Dim k As Double '循环变量 Call f4Dim a() As Variant '小轮直径选择序列 End SubDim b() As Variant '皮带的长度选择序列 Private Sub Command3_Click() '中心距离输入 Dim nn() As Variant '转速的选择序列 aa = Val(Text16.Text) Dim mm() As Variant '包容修正系数列表 Call f5Dim v As Double '皮带速度 End SubDim aa As Double '输入中心距离 Private Sub Command4_Click() '计算Dim aaa As Double '输出实际中心距 Call f6Dim jiao As Double '输出包容角度 Call f7Dim ff0 As Double '初拉力 Call f8Dim ff1 As Double '轴间力 Text6.Text = d1 & "mm" Dim ld As Double '带的长度 Text9.Text = d2 & "mm" Dim shunxu As Double '基本额定功率顺序Text10.Text = z & "根"Dim shunxu1 As Double '长度顺序 Text12.Text = aaa & "mm" Dim pnum() As Variant '基本功率序列 Text11.Text = jiao & "度" Dim lxishu() As Variant 'c长度系数 Text13.Text = ff0 & "N" Dim p0 As Double '基本功率Text14.Text = ff1 & "N" Dim dp0 As Double '增加功率 End SubDim z As Double '皮带数 Private Sub Command1_Click() Dim kaa As Double '包容修正系数 EndDim kl As Double '长度系数 End SubDim ki As Double '传动比系数 Private Sub f0() '参数赋值函数 Dim kbAs Double '弯曲系数 pi = 3.14159Dim m As Double '质量 p = Val(Text1.Text)i = Val(Text2.Text)n1 = Val(Text3.Text) If dianjileixing.Text = "I类" And zaihe.Text = "a() = Array(20, 28, 31.5, 35.5, 40, 45, 50, 56, 63, 载荷变动较大" And workhour.Text = "10-16h/天" Then 71, 75, 80, 90, 100, 112, 125, 140, 150, 160, 180, ka1 = 1.3200, 224, 250, 280, 315, 355, 400, 425, 450, 500, Ifdianjileixing.Text = "I类" And zaihe.Text = "560, 600, 630, 710, 800, 0) 载荷变动较大" And workhour.Text = ">16h/天" Then b() = Array(200, 224, 250, 280, 315, 355, 400, 450, ka1 = 1.4500, 560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, Ifdianjileixing.Text = "I类" And zaihe.Text = "1600, 1800, 2000, 2240, 2500, 2800, 3150, 3550, 4000, 载荷变动很大" And workhour.Text = "<10h/天" Then 4500, 5000, 0) ka1 = 1.3nn() = Array(100, 200, 400, 700, 800, 950, 1200, 1450, If dianjileixing.Text = "I类" And zaihe.Text = "1600, 2000, 2400, 2800, 3200, 3600, 4000, 4500, 5000, 载荷变动很大" And workhour.Text = "10-16h/天" Then 5500, 6000, 0) ka1 = 1.4mm() = Array(0.68, 0.73, 0.78, 0.82, 0.86, 0.89, Ifdianjileixing.Text = "I类" And zaihe.Text = "0.92, 0.95, 0.98, 1, 1.05, 1.1, 1.15, 1.2, 0) 载荷变动很大" And workhour.Text = ">16h/天" Then End Sub ka1 = 1.5Private Sub f1() '选择ka1 计算pd If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷平稳" And workhour.Text = "<10h/天" Then ka1 = 载荷平稳" And workhour.Text = "<10h/天" Then ka1 = 1.11 If dianjileixing.Text = "II类" And zaihe.Text = "Ifdianjileixing.Text = "I类" And zaihe.Text = "载荷平稳" Andworkhour.Text = "10-16h/天" Then ka1 载荷平稳" And workhour.Text = "10-16h/天" Then ka1 = 1.2= 1.1 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷平稳" Andworkhour.Text = ">16h/天" Then ka1 = 载荷平稳" And workhour.Text =">16h/天" Then ka1 = 1.31.2 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动小" And workhour.Text = "<10h/天" Then ka1 载荷变动小" And workhour.Text ="<10h/天" Then ka1 = 1.2= 1.1 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动小" And workhour.Text = "10-16h/天" Then 载荷变动小" And workhour.Text = "10-16h/天" Then ka1 = 1.3ka1 = 1.2 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动小" And workhour.Text = ">16h/天" Then ka1 载荷变动小" And workhour.Text =">16h/天" Then ka1 = 1.4= 1.3 If dianjileixing.Text = "II类" And zaihe.Text = "If dianjileixing.Text = "I类" And zaihe.Text = "载荷变动较大" And workhour.Text = "<10h/天" Then 载荷变动较大" And workhour.Text = "<10h/天" Then ka1 = 1.4ka1 = 1.2 If dianjileixing.Text = "II类" And zaihe.Text = "载荷变动较大" And workhour.Text = "10-16h/天" Then Exit Subka1 = 1.5 End IfIf dianjileixing.Text = "II类 " And zaihe.Text = "载荷变动较大" And workhour.Text = ">16h/天" Then End Subka1 = 1.6 Private Sub f3() '判断速度If dianjileixing.Text = "II类" And zaihe.Text = "v = pi * d1 * n1 / 60 / 1000 载荷变动很大" And workhour.Text = "<10h/天" Thenka1 = 1.5 If v > 20 Then If dianjileixing.Text = "II类 " And zaihe.Text = "MsgBox "小带轮直径过大～，重新输入直径" 载荷变动很大" And workhour.Text = "10-16h/天" Then Exit Subka1 = 1.6 End IfIf dianjileixing.Text = "II类" And zaihe.Text = "载荷变动很大" And workhour.Text = ">16h/天" Then If v < 5 Thenka1 = 1.8 MsgBox "小带轮直径过小～，重新输入直径" If Check1.Value = 0 Then ka = ka1 Exit SubIf Check1.Value = 1 Then ka = ka1 * 1.1 End Ifpd = p * kaEnd Sub End SubPrivate Sub f2() '计算带轮直径 Private Sub f4() '估计中心距离 d1 =Val(Text7.Text)d2 = 0 Dim aa0 As DoubleDim aa1 As Double For k = 0 To 50 Step 1If a(k) = 0 Then aa0 = 0.7 * (d1 + d2)Exit For aa1 = 2 * (d1 + d2)End If Text15.Text = aa0 & "-" & aa1If Abs((a(k) / d1 - i) / i) <= 0.05 Then End Subd2 = a(k) Private Sub f5() '确定带长和中心距和角度Exit For Dim ll As DoubleEnd If Dim c1 As DoubleDim c2 As Double Next kIf Text8.Text = "Y" Then lxishu = Array(0.81, 0.82,If d2 = 0 Then 0.84, 0.87, 0.9, 0.92, 0.96, 1, 1.02, 0, 0, 0, 0,MsgBox "小带轮直径和带型选择不合适～，重新输入0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,直径" 0, 0, 0, 0, 0, 0, 0, 0, 0)If Text8.Text = "Z" Then lxishu = Array(0, 0, 0, 0,0, 0, 0.87, 0.89, 0.91, 0.94, 0.96, 0.99, 1, 1.03, If b(k) = 0 Then1.06, 1.08, 1.1, 1.14, 1.16, 1.18, 0, 0, 0, 0, 0, Exit For0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) End IfIf Text8.Text = "A" Then lxishu = Array(0, 0, 0, 0, Next k0, 0, 0, 0, 0, 0, 0.81, 0.83, 0.85, 0.87, 0.89, 0.91,0.93, 0.96, 0.99, 1.01, 1.03, 1.06, 1.09, 1.11, 1.13, kl =lxishu(shunxu1)1.17, 1.19, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) aaa = aa + (ld - ll) / 2If Text8.Text = "B" Then lxishu = Array(0, 0, 0, 0, jiao = 180 -((d2 - d1) / aaa * 57.3) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.82, 0.84, 0.86,0.88, End Sub0.9, 0.92, 0.95, 0.98, 1, 1.03, 1.05, 1.07, 1.09,1.13, 1.15, 1.18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) Private Sub f6() '确定根数If Text8.Text = "C" Then lxishu = Array(0, 0, 0, 0, Dim c1 As Double 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.83, 0.86, Dim c2 As Double0.88, 0.91, 0.93, 0.95, 0.97, 0.99, 1.02, 1.04, 1.07, c2 = 50001.09, 1.12, 1.15, 1.18, 1.21, 1.23, 0, 0, 0, 0)If Text8.Text = "D" Then lxishu = Array(0, 0, 0, 0, If Text8.Text = "Y" And Text7.Text = "20" Then pnum 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, = Array(0, 0, 0, 0, 0, 0.01, 0.02, 0.02, 0.03, 0.03, 0, 0, 0.83, 0.86, 0.89, 0.91, 0.93, 0.96, 0.98, 1, 0.04, 0.04, 0.06, 0.06,0.07, 0.08, 0.09, 0.1) 1.03, 1.06, 1.08, 1.11, 1.14, 1.17, 1.2, 1.22) If Text8.Text = "Y" And Text7.Text = "28" Then pnum If Text8.Text = "E" Then lxishu = Array(0, 0, 0, 0, = Array(0, 0, 0, 0, 0.03, 0.04, 0.04,0.05, 0.05, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.06,0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0, 0, 0, 0, 0, 0, 0.9,0.92, 0.96, 0.97, 1, 1.02, 0.15)1.05, 1.07, 1.1, 1.12, 1.15, 1.18) If Text8.Text = "Y" AndText7.Text = "35.5" Then pnum= Array(0, 0, 0, 0.04, 0.05, 0.05, 0.06, 0.06, 0.07, ll = 2 * aa +pi / 2 * (d1 + d2) + (d1 - d2) ^ 2 / 0.08, 0.09, 0.11, 0.12, 0.13, 0.14, 0.16, 0.18, 0.19, (4 * aa) 0.2)c2 = 5000 If Text8.Text = "Y" And Text7.Text = "40" Then pnum= Array(0, 0, 0, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, For k = 0 To 100 Step 1 0.11, 0.12, 0.14, 0.15, 0.16, 0.18, 0.19, 0.2, 0.22, c1 = Abs(b(k) - ll) 0.24)If c1 < c2 Then If Text8.Text = "Z" And Text7.Text = "50" Then pnum c2 = c1 = Array(0, 0.04, 0.06, 0.09, 0.1, 0.12, 0.14, 0.16,ld = b(k) 0.17, 0.2, 0.22, 0.26, 0.28, 0.3, 0.32, 0.33, 0.34,shunxu1 = k 0.33, 0.31)End If If Text8.Text = "Z" And Text7.Text = "63" Then pnum= Array(0, 0.05, 0.08, 0.13, 0.15, 0.18, 0.22, 0.25, If Text8.Text = "B" And Text7.Text = "180" Then pnum 0.27, 0.32, 0.37, 0.41, 0.45, 0.47, 0.49, 0.5, 0.5, = Array(0, 0.88, 1.59, 2.53, 2.81, 3.22, 3.85, 4.39,0.49, 0.48) 4.68, 5.3, 5.67, 0, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "Z" And Text7.Text = "71" Then pnum= Array(0, 0.06, 0.09, 0.17, 0.2, 0.23, 0.27, 0.3, If Text8.Text = "C" And Text7.Text = "200" Then pnum 0.33, 0.39, 0.46, 0.5, 0.54, 0.58,0.61, 0.62, 0.62, = Array(0, 1.39, 2.41, 3.69, 4.07, 4.58, 5.29, 5.84, 0.61, 0.58) 6.07, 6.34, 6.02, 0, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "Z" And Text7.Text = "80" Then pnum If Text8.Text = "C" And Text7.Text = "250" Then pnum = Array(0, 0.1, 0.14, 0.2, 0.22, 0.26, 0.3, 0.35, =Array(0, 2.03, 3.62, 5.64, 6.23, 7.04, 8.21, 9.04, 0.39, 0.44, 0.5, 0.56, 0.61, 0.64, 0.67, 0.67, 0.66, 9.38, 9.62, 0, 0, 0, 0, 0, 0, 0, 0, 0)0.64, 0) If Text8.Text = "C" And Text7.Text = "315" Then pnum= Array(0, 2.84, 5.14, 8.09, 8.92, 10.05, 11.53, If Text8.Text = "A" And Text7.Text = "75" Then pnum 12.46, 12.72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) = Array(0, 0.15, 0.26, 0.4, 0.45, 0.51, 0.6, 0.68, If Text8.Text = "C" And Text7.Text = "400" Then pnum 0.73, 0.84, 0.92, 1, 1.04, 1.08,1.09, 1.07, 1.02, = Array(0, 3.91, 7.06, 11.02, 12.1, 13.48, 15.04, 0.96, 0.8) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)If Text8.Text = "A" And Text7.Text = "90" Then pnum= Array(0, 0.22, 0.39, 0.61, 0.68, 0.77, 0.93, 1.07, If Text8.Text = "D" And Text7.Text = "355" Then pnum 1.15, 1.34, 1.5, 1.64, 1.73, 1.83, 1.87, 1.88, 1.82, = Array(3.01, 5.31, 9.24, 13.7, 14.83, 16.15, 17.25, 0, 0) 16.77, 15.63, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "A" And Text7.Text = "100" Then pnum If Text8.Text = "D" And Text7.Text = "400" Then pnum = Array(0, 0.26, 0.47, 0.74, 0.83, 0.95, 1.14, 1.32, =Array(3.66, 6.52, 11.45, 17.07, 18.46, 20.06, 21.2, 1.42, 1.66, 1.87,2.05, 2.19, 2.28, 2.34, 2.33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)0, 0) If Text8.Text = "D" And Text7.Text = "450" Then pnum IfText8.Text = "A" And Text7.Text = "125" Then pnum = Array(4.37, 7.9,13.85, 20.63, 22.25, 24.01, 24.84, = Array(0, 0.37, 0.67, 1.07, 1.19,1.37, 1.66, 1.92, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)2.07, 2.44, 2.74, 2.98,3.16, 3.26, 0, 0, 0, 0, 0) If Text8.Text = "D" And Text7.Text = "500" Then pnum= Array(5.08, 9.21, 16.2, 23#, 25.76, 27.5, 0, 0, If Text8.Text = "B" And Text7.Text = "125" Then pnum 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) = Array(0, 0.48, 0.84, 1.3, 1.44, 1.64, 1.93, 2.19,2.33, 2.64, 2.85, 2.96, 2.94, 2.8, 0, 0, 0, 0, 0) If Text8.Text = "E" And Text7.Text = "500" Then pnum If Text8.Text = "B" And Text7.Text = "140" Then pnum = Array(6.21, 10.86, 18.55, 26.21, 27.57, 28.32, 0, = Array(0, 0.59, 1.05, 1.64, 1.82, 2.08, 2.47, 2.82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)3, 3.42, 3.7, 3.85, 3.83, 0, 0, 0, 0, 0, 0) If Text8.Text = "E" And Text7.Text = "560" Then pnum If Text8.Text = "B" And Text7.Text = "160" Then pnum = Array(7.32, 13.09, 22.49, 31.59, 33.03, 33.4, 0, = Array(0, 0.74, 1.32, 2.09, 2.32, 2.66, 3.17, 3.62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)3.86,4.4, 4.75, 4.89, 0, 0, 0, 0, 0, 0, 0) If Text8.Text = "E" And Text7.Text = "630" Then pnum= Array(8.75, 15.65, 26.95, 37.26, 38.62, 0, 0, 0, ElseIf i >= 1.05 And i <= 1.08 Then 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) ki = 1.0276 If Text8.Text = "E" And Text7.Text = "710" Then pnum ElseIf i >=1.09 And i <= 1.12 Then = Array(10.31, 18.52, 31.83, 42.87, 43.52, 0, 0, 0, ki = 1.04190, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) ElseIf i >= 1.13 And i <= 1.18 Then ki = 1.0567For k = 0 To 20 Step 1 ElseIf i >= 1.19 And i <= 1.24 Thenc1 = Abs(nn(k) - n1) ki = 1.0719If c1 < c2 Then ElseIf i >= 1.25 And i <= 1.34 Thenc2 = c1 ki = 1.0875shunxu = k ElseIf i >= 1.35 And i <= 1.51 ThenEnd If ki = 1.1036If nn(k) = 0 Then ElseIf i >= 1.52 And i <= 1.99 ThenExit For ki = 1.1202End If ElseIf i >= 2 ThenNext k ki = 1.1373End Ifp0 = pnum(shunxu)For k = 0 To 21 Step 1If Text8.Text = "Z" Then jiao) c1 = Abs(100 + k * 10 - kb =0.0002925 If c1 <= 5 ThenElseIf Text8.Text = "A" Then kaa = mm(k)kb = 0.0007725 End IfElseIf Text8.Text = "B" Then Next kkb = 0.0019785ElseIf Text8.Text = "C" Then dp0 = kb * n1 * (1 - 1 / ki) kb =0.005625 z = pd / (p0 + dp0) / kaa / kl ElseIf Text8.Text = "D" Then z = Round(z, 0)kb = 0.01995ElseIf Text8.Text = "E" Then If z >= 10 Thenkb = 0.03735 MsgBox "小带轮直径和带型选择不合适～,重新输入End If 直径和选择带型"Exit SubIf i >= 1 And i <= 1.01 Then End Ifki = 1 End SubElseIf i >= 1.02 And i <= 1.04 Then Private Sub f7() '选择质量函数ki = 1.0136 If Text8.Text = "Z" Thenm = 0.06 ElseIf Text8.Text = "A" Then m = 0.1 ElseIf Text8.Text = "B" Then m = 0.17 ElseIf Text8.Text = "C" Then m = 0.3 ElseIf Text8.Text = "D" Then m = 0.6 ElseIf Text8.Text = "E" Then m = 0.9 End If End Sub Private Sub f8() '计算初拉力和轴向力 ff0 = 500 * pd / z / v * (2.5 - kaa) / kaa + m * v * vff1 = 2 * z * ff0 * Sin(jiao * pi / 2 / 180)ff0 = Round(ff0, 3)ff1 = Round(ff1, 3)aaa = Round(aaa, 3)jiao = Round(jiao, 3) End Subdd2=DD2[j];else #include<stdio.h>dd2=DD2[j-1]; #include<math.h>return dd2; #include<string.h>} #define PAI 3.14float* Compute_LAK(float dd1,float dd2,int TYPE) #include<windows.h> {int j=0;float a1,a2,a0,Ld0,temp,KALF,Ld,a,KL; float Select_dd1(int TYPE) float LAK[3]; {float int i;kl[23][6]={{400,0.87},{450,0.89},{500,0.91}, float dd1;{560,0.94},{630,0.96,0.81},{710,0.99,0.83},{ float800,1.00,0.85,0.82},{900,1.03,0.87,0.84,0.83},{1DD1[6][4]={{50,63,71 ,80},{75,90,100,125},{125,14000,1.06,0.89,0.86,0.86,0.83}, 0,160,180},{1120,1.08,0.91,0.88,0.88,0.86},{1250,1.10,0.93,0.90,0.91,0.89},{1400,1.14,0.96,0.92,0.93,0.{200,250,315,400},{355,400,450,500},{500,56091},{1600,1.16,0.99,0.95,0.95,0.93}, ,630,710}};{1800,1.18,1.01,0.98,0.97,0.96},{2000,0,1.03 printf("该带型推荐的小带轮基准直径有,1.00,0.99,0.98},{2240,0,1.06,1.03,1.02,1.00},{2(mm):\n");500,0,1.09,1.05,1.04,1.03}, for(i=0;i<4;i++){2800,0,1.11,1.07,1.07,1.06},{3150,0,1.13,1. {09,1.09,1.08},{3550,0,1.17,1.13,1.12,1.11},{4000 printf("%.2f",DD1[TYPE][i]);,0,1.19,1.15,1.15,1.14},{4500,0,0,1.18,1.18,1.17 }},{5000,0,0,0,1.21,1.20}}; printf("\n请选择小带轮基准直径dd1:");a1=0.7*(dd1+dd2); scanf("%f",&dd1);a2=2*(dd1+dd2); return dd1;printf("请选择输入初估中心距a0(范围}为%.2fmm~%.2fmm):",a1,a2); float Select_dd2(int dd1,float i) scanf("%f",&a0); {Ld0=2*a0+(dd1+dd2)*PAI/2+(dd2-dd1)*(dd2-dd1) float/a0/4; DD2[]={50,56,63,71,80,90,100,112,125,140,150,160for(j=0;j<23;j++) ,180,200,224,{temp=Ld0-kl[j][0]; 250,280,315,355,400,425,450,500,560,600,630, if(temp<=0) 710,800};break; float dd2,temp,t;} int j=0;if((Ld0-kl[j-1][0])>(kl[j][0]-Ld0)) temp=i*dd1;{ Ld=kl[j][0]; for(j=0;j<28;j++)KL=kl[j][TYPE+1]; {} t=temp-DD2[j];else if(t<=0){ Ld=kl[j-1][0]; break;KL=kl[j-1][TYPE+1]; }} if((DD2[j]-temp)<(temp-DD2[j-1]))a=a0+(Ld-Ld0)/2;LAK[0]=Ld; printf("电机额定功率P(KW):");LAK[1]=a; scanf("%f",&P);LAK[2]=KL; printf("小带轮/电动机转速n1(r/min):");return LAK; scanf("%f",&n1); } printf("传动比i:");scanf("%f",&i);printf("每天工作时间H(h):"); int main() scanf("%f",&H); { printf("原动机类型(1或):");float scanf("%d",&YDJ);ka1[4][3]={{1.0,1.1,1.2},{1.1,1.2,1.3},{1.2,1.3, printf("工作机载荷类型:\n1,载荷平稳\n2,载荷 1.4},{1.3,1.4,1.5}}; 变动较小\n3,载荷变动较大\n4,载荷变动很大\n");float scanf("%d",&GZJ);ka2[4][3]={{1.1,1.2,1.3},{1.2,1.3,1.4},{1.4,1.5,DX: printf("选择V带带型:"); 1.6},{1.5,1.6,1.8}}; scanf(" %c",&type);float if(type<91) K1[6]={0.246,0.449,0.794,1.48,3.15,4.57}; type+=32;float switch(type) KI[10]={1.0000,1.0136,1.0276,1.0419,1.0567,1.071 {9,1.0875,1.1036,1.1202,1.1373}; case 'z':float TYPE=0; I[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1break; .52,2.00}; case 'a':float TYPE=1; K2[6]={7.44,19.02,50.6,143.2,507.3,951.5}; break;float case 'b': K3[6]={0.441e-4,0.765e-4,1.31e-4,2.34e-4,4.77e-4TYPE=2; ,7.06e-4}; break;float case 'c': KB[6]={0.2925e-3,0.7725e-3,1.9875e-3,5.625e-3,19TYPE=3; .95e-3,37.35e-3}; break;float case 'd': kalf[2][14]={220,210,200,190,180,170,160,150,140 TYPE=4; ,130,120,110,100,90,1.20,1.15,1.10,1.05,1.00,0.9 break;8,0.95,0.92, case 'e':0.89,0.86,0.82,0.78,0.73,0.68}; TYPE=5;float M[6]={0.06,0.1,0.17,0.3,0.6,0.9}; break;float f[6]={8,10,12.5,17,23,29}; case 'y':float e[6]={12,15,19,25.5,37,44.5}; TYPE=6;float break; P,H,i,n1,KA,Ki,dd1,dd2,V,P0,DIFP0,Pd,VMAX,*LAK,m case 's': ,Ld,KALF,a,KL,z,F0,ALF1,Q,B,Kb; TYPE=7;int YDJ,GZJ,TYPE,ANS,j; break;char type,ans; case 'n':printf(" V带传动 TYPE=8; 设计程序\n"); }START: printf("请输入初始参数:\n"); if(YDJ==1){ break;if(H<10) }Ki=KI[j]; KA=ka1[GZJ-1][0];Kb=KB[TYPE]; else if(H>16)KA=ka1[GZJ-1][2]; DIFP0=Kb*n1*(1-1/Ki);else LAK=Compute_LAK(dd1,dd2,TYPE);KA=ka1[GZJ-1][1]; Ld=LAK[0];} a=LAK[1];if(YDJ==2) KL=LAK[2];{ ALF1=180-57.3*(dd2-dd1)/a;if(H<10) for(j=0;j<14;j++)KA=ka2[GZJ-1][0]; {else if(H>16) if(ALF1<kalf[0][j]&&ALF1>kalf[0][j+1])KA=ka2[GZJ-1][2]; {elseKA=ka2[GZJ-1][1]; KALF=kalf[1][j]+(kalf[1][j]-kalf[1][j+1])*(ALF1- } kalf[0][j])/10;Pd=KA*P; break;switch(TYPE) }{ }case 0: z=ceil(Pd/(KALF*KL*(P0+DIFP0)));case 1: if(z>=10)case 2: goto DX;case 3: m=M[TYPE];VMAX=25; F0=500*Pd*(2.5-KALF)/(z*V*KALF)+m*V*V;Q=2*z*F0*sin(ALF1*PAI/360); break;case 4: B=(z-1)*e[TYPE]+2*f[TYPE];case 5:VMAX=30; printf("小带轮基准直径dd1:%.3f mm\n大带轮基准直径break; dd2:%.3f mm\n中心距a:%.3f mm\n带长L:%.3f mm\n带宽} B:%.3f mm\n带的根数Z:%.3f\n初拉力F0:%.3f N\n轴压DD1:dd1=Select_dd1(TYPE); 力FQ:%.3f N\n",dd1,dd2,a,Ld,B,z,F0,Q);V=PAI*dd1*n1/60000; X: printf("计算下一组带轮直径按'Y',重新开始按while(V>VMAX) 'S',结束按'N':");{ scanf(" %c",&ans);printf("V带速度验算不符!小带轮基准直径过小!请重新选择!\n"); if(ans=='y')dd1=Select_dd1(TYPE); goto DD1;V=PAI*dd1*n1/60000; else if(ans=='s')} goto START;dd2=Select_dd2(dd1,i); else if(ans=='n')P0=(K1[TYPE]*pow(V,-0.09)-K2[TYPE]/dd1-K3[TY printf("程序结束"); PE]*V*V)*V; elsefor(j=9;j>=0;j--) {{ printf("输入错误，请重新输入");m=i-I[j]; goto X;if(m>=0) }return 0;}。
哈工大机械设计大作业V带传动设计完美版
Harbin Institute of Technology机械设计大作业说明书大作业名称：机械设计大作业设计题目：V带传动设计班级：设计者：学号：指导教师：设计时间：2014.10.25哈尔滨工业大学目录一、大作业任务书 ........................................................................................................................... 1 二、电动机的选择 ........................................................................................................................... 1 三、确定设计功率d P ..................................................................................................................... 2 四、选择带的型号 ........................................................................................................................... 2 五、确定带轮的基准直径1d d 和2d d ............................................................................................. 2 六、验算带的速度 ........................................................................................................................... 2 七、确定中心距a 和V 带基准长度d L ......................................................................................... 2 八、计算小轮包角 ........................................................................................................................... 3 九、确定V 带根数Z ........................................................................................................................ 3 十、确定初拉力0F ......................................................................................................................... 3 十一、计算作用在轴上的压力 ....................................................................................................... 4 十二、小V 带轮设计 .. (4)1、带轮材料选择 ..................................................................................................................... 4 2、带轮结构形式 ..................................................................................................................... 4 十二、参考文献 . (6)一、大作业任务书带式运输机的传动方案如图1所示，机器工作平稳、单向回转、成批生产，其他数据见表1。
V带传动电算程序
V带传动电算程序作者：XXX学号：1100800xxx班级：1008xxxMatlab 程序：function varargout = kong(varargin)% KONG M-file for kong.fig% KONG, by itself, creates a new KONG or raises the existing% singleton*.%% H = KONG returns the handle to a new KONG or the handle to% the existing singleton*.%% KONG('CALLBACK',hObject,eventData,handles,...) calls the local% function named CALLBACK in KONG.M with the given input arguments. %% KONG('Property','Value',...) creates a new KONG or raises the% existing singleton*. Starting from the left, property value pairs are % applied to the GUI before kong_OpeningFunction gets called. An% unrecognized property name or invalid value makes property application % stop. All inputs are passed to kong_OpeningFcn via varargin.%% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one % instance to run (singleton)".%% See also: GUIDE, GUIDATA, GUIHANDLES% Copyright 2002-2003 The MathWorks, Inc.% Edit the above text to modify the response to help kong% Last Modified by GUIDE v2.5 10-Nov-2012 23:48:30% Begin initialization code - DO NOT EDITgui_Singleton = 1;gui_State = struct('gui_Name', mfilename, ...'gui_Singleton', gui_Singleton, ...'gui_OpeningFcn', @kong_OpeningFcn, ...'gui_OutputFcn', @kong_OutputFcn, ...'gui_LayoutFcn', [] , ...'gui_Callback', []);if nargin && ischar(varargin{1})gui_State.gui_Callback = str2func(varargin{1});endif nargout[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});elsegui_mainfcn(gui_State, varargin{:});end% End initialization code - DO NOT EDIT% --- Executes just before kong is made visible.function kong_OpeningFcn(hObject, eventdata, handles, varargin)% This function has no output args, see OutputFcn.% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% varargin command line arguments to kong (see VARARGIN)% Choose default command line output for konghandles.output = hObject;% Update handles structureguidata(hObject, handles);% UIWAIT makes kong wait for user response (see UIRESUME)% uiwait(handles.figure1);% --- Outputs from this function are returned to the command line. function varargout = kong_OutputFcn(hObject, eventdata, handles)% varargout cell array for returning output args (see VARARGOUT);% hObject handle to figure% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Get default command line output from handles structurevarargout{1} = handles.output;function In_P0_Callback(hObject, eventdata, handles)% hObject handle to In_P0 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of In_P0 as text% str2double(get(hObject,'String')) returns contents of In_P0 as a double% --- Executes during object creation, after setting all properties. function In_P0_CreateFcn(hObject, eventdata, handles)% hObject handle to In_P0 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor')) ;endfunction In_n_Callback(hObject, eventdata, handles)% hObject handle to In_n (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of In_n as text% str2double(get(hObject,'String')) returns contents of In_n as a double% --- Executes during object creation, after setting all properties. function In_n_CreateFcn(hObject, eventdata, handles)% hObject handle to In_n (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor')) ;endfunction In_i_Callback(hObject, eventdata, handles)% hObject handle to In_i (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of In_i as text% str2double(get(hObject,'String')) returns contents of In_i as a doublei=str2double(get(handles.In_i,'String'));if i>=2Ki=1.1373;elseif i>=1.52Ki=1.1202;elseif i>=1.35Ki=1.1036;elseif i>=1.25Ki=1.0875;elseif i>=1.19Ki=1.0719;elseif i>=1.13Ki=1.0567;elseif i>=1.09Ki=1.0419;elseif i>=1.05Ki=1.0276;elseif i>=1.02Ki=1.0136;elseif i>=1Ki=1.0000;endset(handles.Out_Ki,'String',num2str(Ki));% --- Executes during object creation, after setting all properties. function In_i_CreateFcn(hObject, eventdata, handles)% hObject handle to In_i (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on selection change in popupmenu1.function popupmenu1_Callback(hObject, eventdata, handles)% hObject handle to popupmenu1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = get(hObject,'String') returns popupmenu1 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu1% --- Executes during object creation, after setting all properties. function popupmenu1_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on selection change in popupmenu2.function popupmenu2_Callback(hObject, eventdata, handles)% hObject handle to popupmenu2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = get(hObject,'String') returns popupmenu2 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu2% --- Executes during object creation, after setting all properties. function popupmenu2_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on selection change in popupmenu3.function popupmenu3_Callback(hObject, eventdata, handles)% hObject handle to popupmenu3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = get(hObject,'String') returns popupmenu3 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu3% --- Executes during object creation, after setting all properties. function popupmenu3_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu3 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called% Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction edit4_Callback(hObject, eventdata, handles)% hObject handle to edit4 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit4 as text% str2double(get(hObject,'String')) returns contents of edit4 as a double% --- Executes during object creation, after setting all properties. function edit4_CreateFcn(hObject, eventdata, handles)% hObject handle to edit4 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction Out_Pd_Callback(hObject, eventdata, handles)% hObject handle to Out_Pd (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of Out_Pd as text% str2double(get(hObject,'String')) returns contents of Out_Pd as a double% --- Executes during object creation, after setting all properties. function Out_Pd_CreateFcn(hObject, eventdata, handles)% hObject handle to Out_Pd (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on selection change in popupmenu6.function popupmenu6_Callback(hObject, eventdata, handles)% hObject handle to popupmenu6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = get(hObject,'String') returns popupmenu6 contents as cell array% contents{get(hObject,'Value')} returns selected item from popupmenu6% --- Executes during object creation, after setting all properties. function popupmenu6_CreateFcn(hObject, eventdata, handles)% hObject handle to popupmenu6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction Out_Ki_Callback(hObject, eventdata, handles)% hObject handle to Out_Ki (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of Out_Ki as text% str2double(get(hObject,'String')) returns contents of Out_Ki as a double% --- Executes during object creation, after setting all properties.function Out_Ki_CreateFcn(hObject, eventdata, handles)% hObject handle to Out_Ki (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on button press in pushbutton1.function pushbutton1_Callback(hObject, eventdata, handles)% hObject handle to pushbutton1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)axes(handles.Out_pic);MyImage=imread('KA.jpg');imshow(MyImage) ;function Attention_Callback(hObject, eventdata, handles)% hObject handle to Attention (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of Attention as text% str2double(get(hObject,'String')) returns contents of Attention as a double% --- Executes during object creation, after setting all properties. function Attention_CreateFcn(hObject, eventdata, handles)% hObject handle to Attention (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on selection change in Out_dx.function Out_dx_Callback(hObject, eventdata, handles)% hObject handle to Out_dx (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: contents = get(hObject,'String') returns Out_dx contents as cell array% contents{get(hObject,'Value')} returns selected item from Out_dx dx=get(hObject,'Value')if dx==1set(handles.Out_Vmax,'String',25);set(handles.Out_Kb,'String',0.0002925);set(handles.Out_ddmin,'String',50);set(handles.Out_m,'String',0.06);elseif dx==2set(handles.Out_Vmax,'String',25);set(handles.Out_Kb,'String',0.0007725);set(handles.Out_ddmin,'String',75);set(handles.Out_m,'String',0.1);elseif dx==3set(handles.Out_Vmax,'String',25);set(handles.Out_Kb,'String',0.0019875);set(handles.Out_ddmin,'String',125);set(handles.Out_m,'String',0.17);elseif dx==4set(handles.Out_Vmax,'String',25);set(handles.Out_Kb,'String',0.005625);set(handles.Out_ddmin,'String',200);set(handles.Out_m,'String',0.3);elseif dx==5set(handles.Out_Vmax,'String',30);set(handles.Out_Kb,'String',0.01995);set(handles.Out_ddmin,'String',355);set(handles.Out_m,'String',0.6);elseif dx==6set(handles.Out_Vmax,'String',30);set(handles.Out_Kb,'String',0.03735);set(handles.Out_ddmin,'String',500);set(handles.Out_m,'String',0.9);end% --- Executes during object creation, after setting all properties. function Out_dx_CreateFcn(hObject, eventdata, handles)% hObject handle to Out_dx (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: popupmenu controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));end% --- Executes on button press in pushbutton2.function pushbutton2_Callback(hObject, eventdata, handles)% hObject handle to pushbutton2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)axes(handles.Out_pic);Image=imread('belttype.jpg');imshow(Image) ;function Out_v_Callback(hObject, eventdata, handles)% hObject handle to Out_v (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of Out_v as text% str2double(get(hObject,'String')) returns contents of Out_v as a double% --- Executes during object creation, after setting all properties. function Out_v_CreateFcn(hObject, eventdata, handles)% hObject handle to Out_v (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction In_dd1_Callback(hObject, eventdata, handles)% hObject handle to In_dd1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of In_dd1 as text% str2double(get(hObject,'String')) returns contents of In_dd1 as a doubledd1=str2double(get(handles.In_dd1,'String'));n=str2double(get(handles.In_n,'String'));Vmax=str2double(get(handles.Out_Vmax,'String'));v=3.1415*dd1*n/60/1000;i=str2double(get(handles.In_i,'String'));ddd2=i*dd1;set(handles.Out_v,'String',num2str(v));set(handles.dd2,'String',num2str(ddd2));if v>Vmaxset(handles.Attention,'String','¡°v¡±is too huge. Please decreasedd1!');elseset(handles.Attention,'String','OK!Please go on!');end% --- Executes during object creation, after setting all properties. function In_dd1_CreateFcn(hObject, eventdata, handles)% hObject handle to In_dd1 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction edit14_Callback(hObject, eventdata, handles)% hObject handle to edit14 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit14 as text% str2double(get(hObject,'String')) returns contents of edit14 as a double% --- Executes during object creation, after setting all properties. function edit14_CreateFcn(hObject, eventdata, handles)% hObject handle to edit14 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction edit15_Callback(hObject, eventdata, handles)% hObject handle to edit15 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit15 as text% str2double(get(hObject,'String')) returns contents of edit15 as a double% --- Executes during object creation, after setting all properties. function edit15_CreateFcn(hObject, eventdata, handles)% hObject handle to edit15 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction dd2_Callback(hObject, eventdata, handles)% hObject handle to dd2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of dd2 as text% str2double(get(hObject,'String')) returns contents of dd2 as a double% --- Executes during object creation, after setting all properties. function dd2_CreateFcn(hObject, eventdata, handles)% hObject handle to dd2 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction Out_a_Callback(hObject, eventdata, handles)% hObject handle to Out_a (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of Out_a as text% str2double(get(hObject,'String')) returns contents of Out_a as a double% --- Executes during object creation, after setting all properties. function Out_a_CreateFcn(hObject, eventdata, handles)% hObject handle to Out_a (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction edit18_Callback(hObject, eventdata, handles)% hObject handle to edit18 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of edit18 as text% str2double(get(hObject,'String')) returns contents of edit18 as a double% --- Executes during object creation, after setting all properties. function edit18_CreateFcn(hObject, eventdata, handles)% hObject handle to edit18 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction Out_Z_Callback(hObject, eventdata, handles)% hObject handle to Out_Z (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of Out_Z as text% str2double(get(hObject,'String')) returns contents of Out_Z as a double% --- Executes during object creation, after setting all properties. function Out_Z_CreateFcn(hObject, eventdata, handles)% hObject handle to Out_Z (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor')) ;endfunction In_a0_Callback(hObject, eventdata, handles)% hObject handle to In_a0 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of In_a0 as text% str2double(get(hObject,'String')) returns contents of In_a0 as a doubledd1=str2double(get(handles.In_dd1,'String'));dd2=str2double(get(handles.In_dd2,'String'));a0=str2double(get(handles.In_a0,'String'));Ld0=2*a0+3.1415*(dd1+dd2)/2+(dd2-dd1)^2/(4*a0);set(handles.Out_Ld0,'String',num2str(Ld0));% --- Executes during object creation, after setting all properties. function In_a0_CreateFcn(hObject, eventdata, handles)% hObject handle to In_a0 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'))endfunction a0right_Callback(hObject, eventdata, handles)% hObject handle to a0right (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of a0right as text% str2double(get(hObject,'String')) returns contents of a0right as a double% --- Executes during object creation, after setting all properties. function a0right_CreateFcn(hObject, eventdata, handles)% hObject handle to a0right (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');elseset(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor'));endfunction a0left_Callback(hObject, eventdata, handles)% hObject handle to a0left (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of a0left as text% str2double(get(hObject,'String')) returns contents of a0left as a double% --- Executes during object creation, after setting all properties. function a0left_CreateFcn(hObject, eventdata, handles)% hObject handle to a0left (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB% handles empty - handles not created until after all CreateFcns called % Hint: edit controls usually have a white background on Windows.% See ISPC and COMPUTER.if ispcset(hObject,'BackgroundColor','white');else。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Harbin Institute of Technology大作业设计说明书课程名称：机械设计设计题目：V带传动电算院系：机电学院班级：1008106设计者：林君泓学号：1100800130指导教师：郑德志设计时间：2012.10.24哈尔滨工业大学一、普通V带传动的内容和任务1、普通V带传动设计内容：给定原始数据：传递的功率P，小带轮转速 n1 传动比i及工作条件设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q2、CAD任务：①编制V带传动设计程序框图；②编制V带传动设计源程序；③按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果；④比较结果，从9种方案中选择一个最佳方案并按照此方案提供的几何和结构参数利用AutoCAD软件绘制大带轮零件工作图。
二、变量标识符为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。
表1变量标识符表表1 变量标识符表三、程序框图四、V带设计c程序#include<stdio.h>#include<math.h>#include<string.h>#define PAI 3.14int TYPE_TO_NUM(char type); /*将输入的字符（不论大小写）转换为数字方便使用*/ float Select_Ki(float i); /*查表选择Ki的程序*/float Select_KA(float H,int GZJ,int YDJ); /*查表选择KA的程序*/float Select_KL(float Ld,int TYPE); /*查表选择KL的程序*/float Select_M(int TYPE); /*查表选择m的程序*/float Select_dd1(int TYPE); /*查表选择小轮基准直径dd1的程序*/float Select_dd2(int dd1,float i); /*查表选择大轮直径dd2的程序*/float Compute_P0(float V,int TYPE,float dd1); /*计算P0的程序*/float Compute_DIFP0(int TYPE,float Ki,int n1); /*计算DIFP0的程序*/float Compute_VMAX(int TYPE); /*计算VMAX的程序*/float Compute_KALF(float ALF1); /*计算KALF的程序*/float Compute_B(int TYPE,int z); /*计算带宽B的程序*/float* Compute_LAK(float dd1,float dd2,int TYPE); /*计算Ld，a，KL的程序*/main(){float P,H,i,n1,KA,Ki,dd1,dd2,V,P0,DIFP0,Pd,VMAX,*LAK,m,Ld,KALF,a,KL,z,F0,ALF1,Q,B;int YDJ,GZJ,TYPE,ANS;char type,ans;printf(" V带传动设计程序\n");printf(" 程序设计人:林君泓\n 班号:1008106\n 学号:1080810306\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);Pd=KA*P;VMAX=Compute_VMAX(TYPE);DD1:dd1=Select_dd1(TYPE);V=PAI*dd1*n1/60000;while(V>VMAX){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=180-57.3*(dd2-dd1)/a;KALF=Compute_KALF(ALF1);z=ceil(Pd/(KALF*KL*(P0+DIFP0)));if(z>=10)goto DX;m=Select_M(TYPE);F0=500*Pd*(2.5-KALF)/(z*V*KALF)+m*V*V;Q=2*z*F0*sin(ALF1*PAI/360);B= Compute_B(TYPE,z);printf(" 计算结果\n");printf("小轮直径:%f mm\n大轮直径:%f mm\n中心距:%f mm\n带长:%f mm\n带宽:%f mm\n 带的根数:%f\n初拉力:%f N\n轴压力:%f N\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)goto DD1;else if(ANS==7)goto START;else if(ANS==8)printf("程序结束");else{printf("输入错误，请重新输入");goto X;}}float Select_KA(float H,int GZJ,int YDJ){float ka1[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}};float ka2[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}};float KA;if(YDJ==1){if(H<10)KA=ka1[GZJ-1][0];else if(H>16)KA=ka1[GZJ-1][2];elseKA=ka1[GZJ-1][1];}if(YDJ==2){if(H<10)KA=ka2[GZJ-1][0];else if(H>16)KA=ka2[GZJ-1][2];elseKA=ka2[GZJ-1][1];}return KA;}float Select_Ki(float i){float m;float Ki[10]={1.0000,1.0136,1.0276,1.0419,1.0567,1.0719,1.0875,1.1036,1.1202,1.1373};float I[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.52,2.00};int j=9;for(j=9;j>=0;j--){m=i-I[j];if(m>=0)break;}return Ki[j];}int TYPE_TO_NUM(char type){int x;if(type<91)type+=32;switch(type){case 'z':x=0;break;case 'a':x=1;break;case 'b':x=2;break;case 'c':x=3;break;case 'd':x=4;break;case 'e':x=5;break;case 'y':x=6;break;case 's':x=7;break;case 'n':x=8;break;}return x;}float Compute_P0(float V,int TYPE,float dd1){float P0;float K1[6]={0.246,0.449,0.794,1.48,3.15,4.57};float K2[6]={7.44,19.02,50.6,143.2,507.3,951.5};float K3[6]={0.441e-4,0.765e-4,1.31e-4,2.34e-4,4.77e-4,7.06e-4};P0=(K1[TYPE]*pow(V,-0.09)-K2[TYPE]/dd1-K3[TYPE]*V*V)*V;return P0;}float Compute_DIFP0(int TYPE,float Ki,int n1){float Kb,DIFP0;float KB[6]={0.2925e-3,0.7725e-3,1.9875e-3,5.625e-3,19.95e-3,37.35e-3};Kb=KB[TYPE];DIFP0=Kb*n1*(1-1/Ki);return DIFP0;}float Select_dd1(int TYPE){int i;float dd1;float DD1[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<4;i++){printf("%.2f ",DD1[TYPE][i]);}printf("\n请选择小带轮直径dd1:");scanf("%f",&dd1);return dd1;}float Select_dd2(int dd1,float i){float DD2[]={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};float dd2,temp,t;int j=0;temp=i*dd1;for(j=0;j<28;j++){t=temp-DD2[j];if(t<=0)break;}if((DD2[j]-temp)<(temp-DD2[j-1]))dd2=DD2[j];elsedd2=DD2[j-1];return dd2;}float* Compute_LAK(float dd1,float dd2,int TYPE){int j=0;float a1,a2,a0,Ld0,temp,KALF,Ld,a,KL;float LAK[3];float kl[23][6]={{400,0.87},{450,0.89},{500,0.91},{560,0.94},{630,0.96,0.81},{710,0.99,0.83},{800,1.00,0.85,0.82},{900,1.03,0.87,0.84,0.83},{1 000,1.06,0.89,0.86,0.86,0.83},{1120,1.08,0.91,0.88,0.88,0.86},{1250,1.10,0.93,0.90,0.91,0.89},{1400,1.14,0.96,0.92,0.93,0. 91},{1600,1.16,0.99,0.95,0.95,0.93},{1800,1.18,1.01,0.98,0.97,0.96},{2000,0,1.03,1.00,0.99,0.98},{2240,0,1.06,1.03,1.02,1.00},{2 500,0,1.09,1.05,1.04,1.03},{2800,0,1.11,1.07,1.07,1.06},{3150,0,1.13,1.09,1.09,1.08},{3550,0,1.17,1.13,1.12,1.11},{400 0,0,1.19,1.15,1.15,1.14},{4500,0,0,1.18,1.18,1.17},{5000,0,0,0,1.21,1.20}};a1=0.7*(dd1+dd2);a2=2*(dd1+dd2);printf("请输入初估中心距a0(范围为%.2fmm~%.2fmm):",a1,a2);scanf("%f",&a0);Ld0=2*a0+(dd1+dd2)*PAI/2+(dd2-dd1)*(dd2-dd1)/a0/4;for(j=0;j<23;j++){temp=Ld0-kl[j][0];if(temp<=0)break;}if((Ld0-kl[j-1][0])>(kl[j][0]-Ld0)){ Ld=kl[j][0];KL=kl[j][TYPE+1];}else{ Ld=kl[j-1][0];KL=kl[j-1][TYPE+1];}a=a0+(Ld-Ld0)/2;LAK[0]=Ld;LAK[1]=a;LAK[2]=KL;return LAK;}float Compute_VMAX(int TYPE){float VMAX;switch(TYPE){case 0:case 1:case 2:case 3:VMAX=25;break;case 4:case 5:VMAX=30;break;}return VMAX;}float Select_M(int TYPE){float m;float M[6]={0.06,0.1,0.17,0.3,0.6,0.9};m=M[TYPE];return m;}float Compute_B(int TYPE,int z){float f[6]={8,10,12.5,17,23,29};float e[6]={12,15,19,25.5,37,44.5};float B;B=(z-1)*e[TYPE]+2*f[TYPE];return B;}float Compute_KALF(float ALF1){floatkalf[2][14]={220,210,200,190,180,170,160,150,140,130,120,110,100,90,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},KALF;int i;for(i=0;i<14;i++){if(ALF1<kalf[0][i]&&ALF1>kalf[0][i+1]){KALF=kalf[1][i]+(kalf[1][i]-kalf[1][i+1])*(ALF1-kalf[0][i])/10;break;}}return KALF;}五、程序运行截图合理运行结果:输入中心距300mm，选择小带轮直径125mm,输出结果六、设计总结通过这段时间的V带传动设计，一方面我对V带传动设计过程有了更深的了解，另一方面也让我对程序设计的一般过程与规范以及注意事项有了一定的认识。