哈工大机械设计大作业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带传动院系：机电工程学院班级：设计者：学号：指导教师：设计时间：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。

哈工大_机械设计_大作业_齿轮传动设计哈工大_机械设计_大作业_齿轮传动设计哈尔滨工业大学机械设计大作业设计计算说明书目录一任务书…………………………………………………1 二选择齿轮材料、热处理方式、精度等级…………1 三初步计算传动主要尺寸……………………………1 四计算传动尺寸………………………………………4 五大齿轮结构尺寸的确定……………………………5 六参考文献……………………………………………7 一、设计任务原始数据如下：有冲击，室内工作，机器成批生产方案Pd（KW）轴承座中心高H（mm）最短工作年限L 工作环境FC 5.3.2 2.2 935 60 3 210 8年3班室内40% 二、选择齿轮材料、热处理方式、精度等级带式输送机为一般机械，且要求成批生产，故毛坯需选用锻造工艺，大小齿轮均选用45号钢，采用软齿面。

由参考文献1表8.2查得：小齿轮调质处理，齿面硬度为217~225HBS，平均硬度236HBS；大齿轮正火处理，齿面硬度162~217HBS，平均硬度190HBS。

大、小齿轮齿面平均硬度差为46HBS，在30~50HBS范围内，选用8级精度。

三、初步计算传动主要尺寸因为齿轮采用软齿面开式传动，齿面不会发生疲劳点蚀，因此初步确定按齿根弯曲疲劳强度设计齿轮传动主要参数和尺寸。

齿根弯曲疲劳强度设计公式式中——齿形系数，反映了轮齿几何形状对齿根弯曲应力的影响——应力修正系数，用以考虑齿根过度圆角处的应力集中和除弯曲应力以外的其它应力对齿根应力的影响。

——重合度系数，是将全部载荷作用于齿顶时的齿根应力折算为载荷作用于单对齿啮合区上界点时的齿根应力系数——许用齿根弯曲应 1.小齿轮传递的转矩式中——带轮的传动效率——对滚动轴承的传递的功率由参考文献2，取，，代入上式，得所以，2.载荷系数的确定由于值未知，不能确定，故可初选= 1.1 ~ 1.8 ，这里初选= 1.4 3.齿宽系数的确定由参考文献1表8.6，选取齿宽系数 4.齿数的初步确定初选小齿轮=17 设计要求中齿轮传动比，故圆整后，取=88，此时传动比误差5.齿形系数和应力修正系数由参考文献1图8.19查得齿形系数，由参考文献1图8.20查得应力修正系数，6.重合度系数的确定对于标准外啮合齿轮传动，端面重合度式中、——齿数把= 17 ，= 88，代入上式得根据经验公式，确定7.许用弯曲应力的确定式中——计入了齿根应力修正系数之后,试验齿轮的齿根弯曲疲劳极限应力；当齿轮双侧工作时图中时值乘以0.7 ——安全系数；与疲劳点蚀相比，断齿的后果更为严重。

机械原理大作业（三）课程名称：设计题目：院系：姓名：学号：指导教师：设计时间：哈尔滨工业大学（威海）设计说明书1.设计题目 (2)2.传动比的分配计算 (3)3. 计算滑移齿轮变速传动中每对齿轮的基本几何尺寸 (3)（1）齿轮5、齿轮6 (4)（2）齿轮7、齿轮8 (4)（3）齿轮9、齿轮10 (5)4.计算定轴齿轮传动中每对齿轮的基本几何尺寸。

(5)（1）齿轮11、齿轮12 (5)（2）齿轮13、齿轮14 (6)（3）齿轮15、齿轮16 (6)5.每对齿轮的几何尺寸及重合度。

(6)7.实际设计参数 (14)1.设计题目如图所示一个机械传动系统，运动由电动机1输入，经过机械传动系统变速后由圆锥齿轮16输出三种不同的转速。

根据表中的传动系统原始参数设计该传动系统。

1.15，16.圆锥齿轮表机械传动系统原始参数2.传动比的分配计算电动机转速ni=1450r/min，输出转速n1=12r/min，n2=17r/min，n3=23r/min，带传动的最大传动比idmax=2.5,滑移齿轮传动的最大传动比ihmax=4，定轴齿轮传动的最大传动比ifmax=4。

根据传动系统的原始参数可知，传动系统的总传动比为i1=nin1=1450÷12=120.833i2=nin2=1450÷17=85.294i3=nin3=1450÷23=63.043传动系统的总传动比由带传动、滑移齿轮传动和定轴齿轮传动三部分实现。

设带传动的传动比为id，滑移齿轮的传动比为ih1、ih2和ih3，定轴齿轮传动的传动比为if，则总传动比i1=id*ih1*ifi2=id*ih2*ifi3=id*ih3*if令=ih1=ihmax=4则可得：定轴齿轮传动部分的传动比为if=i1/(id*ih1)=120.833/(2.5*4)=12.083滑移齿轮传动的传动比ih2=i2/(id*if)=85.294/(2.5*12.083)=2.824Ih3=i3/(id*if)=63.043/(2.5*12.083)=2.087定轴齿轮传动由3对齿轮传动组成，则每对齿轮的传动比为iv*iv*iv=if=12.083,iv=2.2953.计算滑移齿轮变速传动中每对齿轮的基本几何尺寸根据滑移齿轮变速传动系统中对齿轮齿数的要求，选择齿轮5、6、7、8、9和10为角度变位齿轮。

工业大学机械设计作业设计计算说明书题目: 轴系部件设计系别: 英才学院班号: 1436005: 璐日期: 2016.11.12工业大学机械设计作业任务书题目： 轴系部件设计设计原始数据：图1表 1 带式运输机中V 带传动的已知数据方案 d P （KW ）(/min)m n r (/min)w n r 1i 轴承座中 心高H （mm ） 最短工作 年限L 工作环境 5.1.2 4 960 100 2 180 3年3班 室外有尘机器工作平稳、单向回转、成批生产目录一、带轮及齿轮数据 (1)二、选择轴的材料 (1)三、初算轴径d min (1)四、结构设计 (2)1. 确定轴承部件机体的结构形式及主要尺寸 (2)2. 确定轴的轴向固定方式 (2)3. 选择滚动轴承类型，并确定润滑、密封方式 (2)4. 轴的结构设计 (2)五、轴的受力分析 (4)1. 画轴的受力简图 (4)2. 计算支承反力 (4)3. 画弯矩图 (5)4. 画扭矩图 (5)六、校核轴的强度 (5)七、校核键连接的强度 (7)八、校核轴承寿命 (8)1. 计算轴承的轴向力 (8)2. 计算当量动载荷 (8)3. 校核轴承寿命 (8)九、绘制轴系部件装配图（图纸） (9)十、参考文献 (9)一、带轮及齿轮数据已知带传动输出轴功率P= 3.84 kW，转矩T= 97333.33 N·mm，转速n= 480 r/min，轴上压力Q = 705.23 N，因为原本圆柱直齿轮的尺寸不满足强度校核，故修改齿轮尺寸为分度圆直径d1 =96.000 mm，其余尺寸齿宽b1 = 35 mm，螺旋角β = 0°，圆周力F t = 2433.33 N，径向力F r = 885.66 N，法向力F n = 2589.50 N，载荷变动小，单向转动。

二、选择轴的材料因传递功率不大，且对质量及结构尺寸无特殊要求，故选用常用材料45钢，调质处理。

设计说明书——普通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。

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带传动设计院系：英才学院哈尔滨工业大学一、程序框图二、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 newV_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 propertyapplication% 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.000.04,0.06,0.09,0.10,0.12,0.14,0.16,0.17,0.20,0.22,0.26,0.28,0.3 0,0.32,0.33,0.34,0.33,0.31;0.000.05,0.08,0.13,0.15,0.18,0.22,0.25,0.27,0.32,0.37,0.41,0.45,0.4 7,0.49,0.50,0.50,0.49,0.48;0.000.06,0.09,0.17,0.20,0.23,0.27,0.30,0.33,0.39,0.46,0.50,0.54,0.5 8,0.61,0.62,0.62,0.61,0.58;0.000.10,0.14,0.20,0.22,0.26,0.30,0.35,0.39,0.44,0.50,0.56,0.61,0.6 4,0.67,0.67,0.66,0.64,0.00;0.000.15,0.26,0.40,0.45,0.51,0.60,0.68,0.73,0.84,0.92,1.00,1.04,1.0 8,1.09,1.07,1.02,0.96,0.80;0.000.22,0.39,0.61,0.68,0.77,0.93,1.07,1.05,1.34,1.50,1.64,1.73,1.8 3,1.87,1.88,1.82,0.00,0.00;0.000.26,0.47,0.74,0.83,0.95,1.14,1.32,1.42,1.66,1.87,2.05,2.19,2.2 8,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.830.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.000.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;20 0,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,3 200,3600,4000,4500,5000,5500,6000];%ÒÔÏÂÊÇ´øµÄ»ù×¼³¤¶ÈLdϵÁÐLdarray=[200,224,250,280,315,355,400,450,500,560,630,710,800,90 0,1000,1120,1250,1400,1600,1800,2000,2240,2500,2800,3150,3550,4 000,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.7 3,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 400355 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.p opup,'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 structure varargout{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)% 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)% 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)% 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 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)% 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)% 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 popupmenu11global 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 MINMAXP0array Narray Vmax Ldarray Dd1pos Kaarray Dd2array KlarrayTABLEPOS 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 ofpopup 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% PreviousData: previous data for the cell(s) edited% EditData: string(s) entered by the user% NewData: EditData or its converted form set on the Data property. Empty if Data was not changed% Error: error string when failed to convert EditData to appropriate value for Data% handles structure with handles and user data (see GUIDATA) % --- Executes during object creation, after setting all properties. function edit6_CreateFcn(hObject, eventdata, handles)% hObject handle to edit6 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB % handles empty - handles not created until after all CreateFcns called% --- Executes during object creation, after setting all properties. function edit8_CreateFcn(hObject, eventdata, handles)% hObject handle to edit8 (see GCBO)% eventdata reserved - to be defined in a future version of MATLAB % handles empty - handles not created until after all CreateFcns。

Harbin Institute of Technology哈尔滨工业大学机械设计作业设计计算说明书课程名称：机械设计设计题目：带式运输机中的V带轮部件电算设计院系：能源科学与工程学院班级： 1602404班设计者：钟学号： 11602004指导教师：王黎钦设计时间： 2019.4.22哈尔滨工业大学哈尔滨工业大学机械设计作业任务书题目：带式运输机中的V带轮部件电算设计题号：5.1.5设计原始数据：机器工作平稳、单向回转、成批生产，其他数据如下表所示。

方案电动机工作功率Pd/kW电动机满载转速n m/(r/min)工作机的转速n w/(r/min)第一级传动比i1轴承座中心高度H/mm最短工作年限工作环境5.1.5 3 710 80 2 1703年3班室内清洁目录一、电算设计思路 (4)二、标量标识符 (4)三、V带设计程序框图 (5)四、设计源程序 (6)五、计算结果及分析 (16)一、电算设计思路本次V带电算采用C语言进行设计计算。

通过输入小带轮转速n1，名义功率P 以及传动比i，再按照一定的顺序，便可以计算出多种直径和型号的V带轮设计结果。

二、标量标识符为了使程序具有较好的可读性、易用性，先将变量标识符规定列表如表2-1所示：三、V带设计程序框图在编写代码前，编写程序框图如图3-1所示。

图3-1 V带设计程序框图四、设计源程序#include<stdio.h>#include<string.h>#include<math.h>#include<stdlib.h>#include<ctype.h>#include "process.h"#define Pi 3.1415926doubleP,Pd,n1,aMIN,aMAX,V,a,a0,Ld0,ALF1,z,P0,DIFP0,Kb,Ki,KL,KALF,F0,Q,j,m0,K1,K2,K3,e, fB,Bl;char TYPE,q;int Ld,dd1,dd20,dd2,i,reply,w,f,g,a2,a3,a4,VMAX,s,s1;char Z,A,B,C,D,E;char c[9];float DD2[]= {50,56,63,71,75,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 LD[33][7]= {{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},{900,1.03,0.87,0. 82},{1000,1.06,0.89,0.84},{1120,1.08,0.91,0.86},{1250,1.10,0.93,0.88},{1400,1.14,0.96,0.90},{1600,1.16 ,0.99,0.92,0.83},{1800,1.18,1.01,0.95,0.86},{2000,0,1.03,0.98,0.88},{2240,0,1.06,1.00,0.91},{ 2500,0,1.09,1.03,0.93},{2800,0,1.11,1.05,0.95,0.83},{3150,0,1.13,1.07,0.97,0.86},{3550,0,1.17,1.09, 0.99,0.89},{4000,0,1.19,1.13,1.02,0.91},{4500,0,0,1.15,1.04,0.93,0.90},{5000,0,0 ,1.18,1.07,0.96,0.92},{5600,0,0,0,1.09,0.98,0.95},{6300,0,0,0,1.12,1.00,0.97},{7100,0,0,0,1.15,1.0 3,1.00},{8000,0,0,0,1.18,1.06,1.02},{9000,0,0,0,1.21,1.08,1.05},{10000,0,0,0,1.2 3,1.11,1.07},{11200,0,0,0,0,1.14,1.10},{12500,0,0,0,0,1.17,1.12},{14000,0,0,0,0,1.20,1.15},{16000,0,0,0,0,1.22,1.18} };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 jg[9][7];float temp1,t1,temp2,t2,KA;int jd=0,jk=0;main(){printf("请输入传递功率P<单位kW>：");scanf("%lf",&P);printf("小带轮转速n1<单位r/min>：");scanf("%lf",&n1);printf("传动比i：");scanf("%d",&i);printf("请输入原动机类型YDJ<Ⅰ或Ⅱ>：");scanf("%d",&w);printf("载荷类型：\n");printf("1:载荷平稳\n");printf("2:载荷变动小\n");printf("3:载荷变动大\n");printf("4:载荷变动很大\n");scanf("%d",&f);printf("请输入每天的工作时间：\n");printf("0：<10h\n");printf("1：<10h~16h\n");printf("2：>16h\n");scanf("%d",&g);if(w==1){if(g==0)KA=ka1[f-1][0];else if(g==2)KA=ka1[f-1][2];elseKA=ka1[f-1][1];}if(w==2){if(g==0)KA=ka2[f-1][0];else if(g==2)KA=ka2[f-1][2];elseKA=ka2[f-1][1];}printf("是否在启动频繁、经常正反转、工作环境恶劣等场合运转？n/y\n"); scanf(" %c",&q);switch(q){case 'n':Pd=P*KA;printf("名义功率Pd为：%.3fkW\n",Pd);break;case 'y':Pd=P*1.2*KA;printf("名义功率Pd为：%.3fkW\n",Pd);break;}if((i>=1.00)&&(i<=1.01)) {Ki=1.0000;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.02)&&(i<=1.04)) {Ki=1.0136;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.05)&&(i<=1.08)) {Ki=1.0276;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.09)&&(i<=1.12)) {Ki=1.0419;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.13)&&(i<=1.18)) {Ki=1.0567;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.19)&&(i<=1.24)) {Ki=1.0719;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.25)&&(i<=1.34)) {Ki=1.0875;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.35)&&(i<=1.51)) {Ki=1.1036;printf("传动比系数Ki=");printf("%lf\n",Ki);}if((i>=1.52)&&(i<=1.99)) {Ki=1.1202;printf("传动比系数Ki=");printf("%lf\n",Ki);}if(i>=2) {Ki=1.1373;printf("传动比系数Ki=");printf("%lf\n",Ki);}s=0;do{printf("\n输入带型号：");scanf(" %c",&TYPE);switch(TYPE){case 'Z':printf("带轮最小基准直径是50mm\n");Kb=0.0002925;VMAX=25;K1=0.246;K2=7.44;K3=0.441*pow(10,-4);m0=0.06;e=12;fB=8;printf("Z型带轮基准直径分别是50、56、63、71、75、80mm\n");break;case 'A':printf("带轮最小基准直径是75mm\n");Kb=0.0007725;VMAX=25;K1=0.449;K2=19.02;K3=0.765*pow(10,-4);m0=0.1;e=15;fB=10;printf("A型带轮基准直径分别是75、80、90、100、112、125mm\n");break;case 'B':printf("带轮最小基准直径是125mm\n");Kb=0.0019875;VMAX=25;K1=0.794;K2=50.6;K3=1.31*pow(10,-4);m0=0.17;e=19;fB=12.5;printf("B型带轮基准直径分别是125、140、150、160、180mm\n");break;case 'C':printf("带轮最小基准直径是200mm\n");Kb=0.005625;VMAX=25;K1=1.48;K2=143.2;K3=2.34*pow(10,-4);m0=0.3;e=25.5;fB=17;printf("C型带轮基准直径分别是200、224、250、280、315、400mm\n");break;case 'D':printf("带轮最小基准直径是355mm\n");Kb=0.01995;VMAX=30;K1=3.15;K2=507.3;K3=4.77*pow(10,-4);m0=0.6;e=37;fB=23;printf("D型带轮基准直径分别是355、400、425、450、500mm\n");break;case 'E':printf("带轮最小基准直径是500mm\n");Kb=0.03735;VMAX=30;K1=4.57;K2=951.5;K3=7.06*pow(10,-4);m0=0.8;e=44.5;fB=29;printf("E型带轮基准直径分别是500、560、600、630、710mm\n");break;}do {printf("请选择合适小带轮直径dd1(mm)：");begin1:scanf("%d",&dd1);V=Pi*dd1*n1/60000;if(V>VMAX){printf("带速过大，请重新选择更小的小带轮直径:");goto begin1; /*判断带速是否超过最大带速*/}printf("小带轮直径dd1(mm)：%d",dd1);temp1=i*dd1;for(jd=0; jd<29; jd++){t1=temp1-DD2[jd];if(t1<=0)break; /*判断大带轮直径*/}if((DD2[jd]-temp1)<(temp1-DD2[jd-1]))dd2=DD2[jd];elsedd2=DD2[jd-1]; /*选择大带轮直径为接近的那个优选数*/ printf("大带轮直径dd2(mm)：%d",dd2);if (fabs((dd2/dd1-i)/i)>=0.05)printf("传动比误差过大,不可用！请重新选择小带轮直径:"); goto begin1;}printf("\n传动比误差小于0.05,可用\n");aMIN=0.7*(dd1+dd2);aMAX=2*(dd1+dd2);printf("请初步确定中心距(mm)，并使%.3fmm<a0<%.3fmm：",aMIN,aMAX);scanf("%lf",&a0);Ld0=2*a0+Pi/2*(dd1+dd2)+pow(dd2-dd1,2)/(4*a);switch(TYPE) {case 'Z':a4=1;break;case 'A':a4=2;break;case 'B':a4=3;break;case 'C':a4=4;break;case 'D':a4=5;break;case 'E':a4=6;}for(jk=0; jk<33; jk++){temp2=Ld0-LD[jk][0];if(temp2<=0)break;}if((Ld0-LD[jk-1][0])>(LD[jk][0]-Ld0)){Ld=LD[jk][0];KL=LD[jk][a4];Ld=LD[jk-1][0];KL=LD[jk-1][a4];} /*选择合适的带基准长度*/ a=a0+(Ld-Ld0)/2;ALF1=180-(dd2-dd1)/a*57.3;printf("小带轮包角为α1=%.5f°\n",ALF1);if(ALF1<=90){KALF=0.69;printf("包角修正系数KALF为：");printf("%lf\n",KALF);}if((ALF1>90)&&(ALF1<=100)){KALF=(0.74-0.69)/10*(ALF1-90)+0.69;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>100)&&(ALF1<=110)){KALF=(0.78-0.74)/10*(ALF1-100)+0.74;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>110)&&(ALF1<=120)){KALF=(0.82-0.78)/10*(ALF1-110)+0.78;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>120)&&(ALF1<=130)){KALF=(0.86-0.82)/10*(ALF1-120)+0.82;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>130)&&(ALF1<=140)){KALF=(0.89-0.86)/10*(ALF1-130)+0.86;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>140)&&(ALF1<=150)){KALF=(0.92-0.89)/10*(ALF1-140)+0.89;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>150)&&(ALF1<=160)){KALF=(0.95-0.92)/10*(ALF1-150)+0.92;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>160)&&(ALF1<=170)){KALF=(0.98-0.95)/10*(ALF1-160)+0.95;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>170)&&(ALF1<=180)){KALF=(1.00-0.98)/10*(ALF1-170)+0.98;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>180)&&(ALF1<=190)){KALF=(1.05-1.00)/10*(ALF1-180)+1.00;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>190)&&(ALF1<=200)){KALF=(1.10-1.05)/10*(ALF1-190)+1.05;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>200)&&(ALF1<=210)){KALF=(1.15-1.10)/10*(ALF1-200)+1.10;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if((ALF1>210)&&(ALF1<=220)){KALF=(1.20-1.15)/10*(ALF1-210)+1.15;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}if(ALF1>200){KALF=1.20;printf("包角修正系数KALF为：");printf("%.2f\n",KALF);}P0=V*(K1*pow(V,-0.09)-K2/dd1-K3*pow(V,2));printf("单根带的基本额定功率P0：%.3fkW\n",P0);printf("%c",TYPE);printf("型带的弯曲影响系数Kb=");printf("%lf\n",Kb);DIFP0=Kb*n1*(1-1/Ki);printf("功率增量△P0= %lf\n",DIFP0);printf("V带基准长度为%.3dmm\n",Ld);//**************************z=Pd/((P0+DIFP0)*KALF*KL);printf("V带的根数为：%.2f ,圆整后的结果为：z=%d\n",z,(int)z+1);if((int)z+1>=10){printf("带数过多，请重新选择小带轮直径："); goto begin1;}printf("单位长度所选带的质量(kg/m)：");printf("%lf",m0);F0=500*Pd/z/V*(2.5-KALF)/KALF+m0*V*V;Q=2*z*F0*sin(ALF1/2*Pi/180);Bl=(int)z*e+2*fB;printf("\n下面是计算的最后结果：\n");printf("带型为%c\n设计功率Pd=%.3fkW\n小带轮直径dd1=%dmm\n大带轮直径dd2=%dmm\nV带基准长度Ld=%.3dmm\n实际轴间距a=%.3fmm\n单根V带额定功率P0=%.3fkW\n 额定功率增量DIFPP0=%.3fkW\n",TYPE,Pd,dd1,dd2,Ld,a,P0,DIFP0);printf("带速V=%.3fm/s\n小带轮包角ALF1=%.5f°\nV带根数z=%d\nV带单位长度的质量m0=%.3fkg/m\n单根V带的预紧力F0=%.3fN\n作用在轴上的力FQ=%.3fN\n轮缘宽度B=%d\n",V,ALF1,(int)z+1,m0,F0,Q,(int)Bl+1);c[s]=TYPE;jg[s][0]=dd1;jg[s][1]=dd2;jg[s][2]=a;jg[s][3]=(int)z+1;jg[s][4]=F0;jg[s][5]= Q;jg[s][6]=(int)Bl+1;s=s+1;printf("\n是否计算下一种带轮直径？0(no)/1(yes)\n");scanf("%d",&a2);} while(a2==1&&s<=8);printf("\n计算下一型号带？0(no)/1(yes)\n");scanf("%d",&a3);} while(a3==1&&s<=8);printf("程序最多储存9次运算数据，运算结束。

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带设计院系：能源科学与工程学院班级：1202104姓名：刘翼学号：1120200623指导教师：张锋©哈尔滨工业大学目录一 任务书 (1)二 选择电动机 (2)三 确定设计功率d P (2)四 选择带的型号 (2)五 确定带轮的基准直12d d d d 和 (2)六 验算带的速度 (3)七 确定中心距a 和V 带基准长d L (3)八 计算小轮包1 (3)九 确定 V 带Z (3)十 确定初拉0F (4)十一 计算作用在轴上的压Q (5)十二 带轮结构计 (5)十三 参考文献 (6)一哈尔滨工业大学 机械设计作业任务书题目:带式运输机结构简图见下图:原始数据如下：机器工作平稳，单向回转，成批生产方案 d P （KW ） (/min)m n r(/min)w n r1i轴承座中心高H （mm ）最短工作 年限L 工作环境 5.1.42.2940802.11605年2班室内、清洁二 选择电动机 由方案图表中的数据要求，查参考文献[2]表15.1 Y 系列三相异步电动机的型号及相关数据选择可选择Y112M-6。

可查得轴径为28mm,长为60mm. 三 确定设计功率d P设计功率是根据需要传递的名义功率、载荷性质、原动机类型和每天连续工作的时间长短等因素共同确定的，表达式如下：d A m P K P =式中 m P ——需要传递的名义功率A K ——工作情况系数，按表2工作情况系数A K 选取A K =1.2；已知设计功率为2.2KW 。

四 选择带的型号查看教材图7.11可选取A 型带。

五 确定带轮的基准直径12d d d d 和查表3. V 带带轮最小基准直径min d d 知A 型带min d d =75mm,又由教材表7.3选取小带轮基准直径：mm d d 1251=；大带轮基准直径：mm d i d d d 5.2621251.212=⨯=⋅= 查教材表7.3选取大带轮基准直径mm d d 2502=；其传动比误差%50476.0%1001.21252501.2<=⨯-=∆i 故可用。

机械设计作业任务书题目：液体搅拌机中的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 。

哈尔滨工业大学Harb i in Institute of Technology机械设计大作业题目：V带传动设计5.1.1院系：能源学院班级：哈尔滨工业大学目录一、任务书----------------------------------------------------------------------------------------------1二、选择电动机------------------------------------------------------------------------------------------2三、确定设计功率---------------------------------------------------------------------------------------2四、选择带的型号---------------------------------------------------------------------------------------2五、确定带轮的基准直-------------------------------------------------------------------------------2六、验算带的速度---------------------------------------------------------------------------------------2七、确定中心距a和V带基准长----------------------------------------------------------------------2八、计算小轮包------------------------------------------------------------------------------------------2九、确定V带Z ------------------------------------------------------------------------------------------3十、确定初拉---------------------------------------------------------------------------------------------3 十一、计算作用在轴上的压Q-------------------------------------------------------------------------3 十二、带轮结构计---------------------------------------------------------------------------------------3 十三、运动学计算---------------------------------------------------------------------------------------4 十四、参考文献------------------------------------------------------------------------------------------6一、机械设计作业任务书题目:带式运输机结构简图见下图：原始数据如下：机器工作平稳，单向回转，成批生产。

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。