v带设计说明书——机械设计课程设计.doc

机械设计CAD的设计普通V带传动说明书小星星哈尔滨工业大学2009/12/2 目录一、普通V带传动的内容和任务1二、变量标识符2三、程序框图V带传动设计程序框图2四、V带传动设计程序框图2五、程序说明31)参数说明32)输入数据43)源程序44)例题计算15六、心得体会16七、参考文献17一、 普通V带传动的内容和任务1、 普通V带传动设计内容：给定原始数据：传递的功率P，小带轮转速 n1 传动比i及工作条件设计内容：带型号，基准长度Ld，根数Z，传动中心距a，带轮基准直径dd1、dd2，带轮轮缘宽度B，初拉力F0和压轴力Q2、 CAD任务： 编制V带传动设计程序框图； 编制V带传动设计源程序； 按习题或作业中数据运行程序，要求对每一组数据各按三种V带型号计算，对每一种带型号选三种小带轮直径进行计算并输出所有结果； 比较结果，从9种方案中选择一个最佳方案并按照此方案提供的几何和结构参数利用AutoCAD软件绘制大带轮零件工作图。二、 变量标识符表1：序号名称代号标识符单位1名义功率PPkW2设计功率PdPdkW3工作情况系数KAKA4小带轮转速n1n1r/min5工作机载荷特性GZJ6原动机类型YDJ7带型号Z、AETYPE8小带轮基准直径dd1dd1mm9大带轮基准直径dd2dd2mm10最小带轮直径ddminddMINmm11带速Vm/s12最大带速VMAXm/s13中心距aamm14基准长度LdLdmm15小带轮包角ALF1度16 V带根数ZZ17额定功率P0P0kW18功率增量PDIFP0kW19弯曲影响系数KbKb20传动比系数KiKi21长度系数KLKL22包角系数KKALF23初拉力F0F0N24压轴力QQN25圆周率PAI26轮缘宽度BBmma1=0.7(dd1+dd2)，a2=2(dd1+dd2)输入初估中心距a0,计算 Ld0Add2= 查标准带轮直径表确定dd2YVVmax ?根据型号确定最大带速Vmax，额定功率P0中系数K1,K2,K3，弯曲影响系数KbV=输出该型号带轮系列直径，选择输入小带轮基准直径dd1输入带型号查表求传动比系数Ki查KA, 计算Pd，选型查表求KA, 计算Pd输入P, n1, i输入各原始数据开始减小直径图1 V带设计程序框图B查标准长度确定Ld，同时查取KL，计算实际中心距aA计算小带轮包角查表确定包角系数计算Po，Z10 ?计算Fo, Q,B ( 取整)输出结果计算下一型号带 ？结束计算下一种带轮直径？YYYNNNNB三、 V带传动设计程序框图四、 程序说明1) 参数说明为了使程序具有较好的可读性易用性，应采用统一的变量标识符，如表1所示。同时，在程序计算过程中的中间变量可能没有任何实际意义。2) 输入数据 原始数据：P，n1，i ，包括已给定和人为假定的数据。 人为给定的一些条件代号,如Z、A、B、C、D、E六种带型号可使用变量TYPE来表示，TYPE=16分别对应六种型号。 3) 源程序#include stdafx.h#include testv.h#include testvDlg.h#include math.hint idmin=0;int Ld=0,a=0;int af=0;int z=1;int F0=0;float v=1,Pd=1, dd1=1,dd2=1 ,F0=0,aa0=0,aa1=0, z=1;float KA,Pd;int dgb35=20, 28, 31.5, 35.5, 40, 45, 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;int Ldgb39=200, 224, 250, 280, 315, 355, 400, 450, 500,560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, 1600, 1800, 2000, 2240, 2500, 2800,3150, 3550, 4000, 4500, 5000, 5600, 6300, 7100, 8000, 9000, 10000,11200, 12500, 14000, 16000;float dgb35 = 20, 28, 31.5, 35.5, 40, 45, 50, 56, 63, 71, 75, 80, 90, 100, 112, 125, 140, 150, 160, 180, 200,224, 250, 280, 315, 355, 400, 425, 450, 500,530, 560, 600, 630, 710;float Ldgb39 = 200, 224, 250, 280, 315, 355, 400, 450, 500,560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, 1600, 1800, 2000, 2240, 2500, 2800,3150, 3550, 4000, 4500, 5000, 5600, 6300, 7100, 8000, 9000, 10000,11200, 12500, 14000, 16000;void CTestvDlg:OnButton1() / TODO: Add your control notification handler code herefloat ka243 =1,1.1,1.2,1.1,1.2,1.3,1.2,1.3,1.4,1.3,1.4,1.5,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; int i=0,j=0,k=0; /确定工作系数KA int index=m_cb.GetCurSel(); int index1=m_j.GetCurSel();int index2=m_k.GetCurSel(); KA=kaindex2indexindex1; /输出Pd和n1以选择带型 float Pd;CString st1;m_P.GetWindowText(st1); Pd=KA*(atof(st1) ); CString st11; st11.Format(%.2f,Pd); CString st2;m_n1.GetWindowText(st2);SetDlgItemText(IDC_Pb,st11+ Kw);SetDlgItemText(IDC_n1,st2+ r/min );void CTestvDlg:OnSelchangeCombo4() / TODO: Add your control notification handler code here int i = 0; i=m_vtype.GetCurSel(); if(i=0) idmin=10; / A型带最小直径 /输出可选dd1 dd1 = dgbidmin;SetDlgItemText(IDC_dd1d,75 80 85 90 100 106 112 118 125 132 140 150 160 180 200 224 250 280 315); if(i=1) idmin=15; / B型带最小直径 /输出可选dd1 dd1 = dgbidmin;SetDlgItemText(IDC_dd1d,125 132 140 150 160 170 180 200 224 250 280 315 355 400 450 500 ); if(i=2) idmin=20; / C型带最小直径 /输出可选dd1 dd1 = dgbidmin;SetDlgItemText(IDC_dd1d,200 212 224 236 250 265 280 315 355 400 450 500); if(i=3) idmin=25; / D型带最小直径 /输出可选dd1 dd1 = dgbidmin;SetDlgItemText(IDC_dd1d,355 375 400 425 450 475 500 530 600); if(i=4) idmin=29; / E型带最小直径 /输出可选dd1 dd1 = dgbidmin;SetDlgItemText(IDC_dd1d,500 530 560 600 630 710); if(i=5) idmin=6; / Z型带最小直径 /输出可选dd1 dd1 = dgbidmin;SetDlgItemText(IDC_dd1d,50 63 71 75 8090 100 112 125 132 140 150 160 180 200 224 250 280 315); void CTestvDlg:OnChangeEdit4() / TODO: If this is a RICHEDIT control, the control will not/ send this notification unless you override the CDialog:OnInitDialog()/ function and call CRichEditCtrl().SetEventMask()/ with the ENM_CHANGE flag ORed into the mask.float vmax=0; /选择dd2 CString string2;m_dd1.GetWindowText(string2); int dd2d=1; dd1=atof(string2);CString string3;m_i1.GetWindowText(string3); dd2d=dd1*(atof(string3) ); for (int idd2=idmin;idd235;idd2+) if (dgbidd20.05) SetDlgItemText(IDC_tishi,传动比误差太大，请重新选择dd1！); else CString st2; m_n1.GetWindowText(st2); v=(3.1415926/60000)*dd1* (atof(st2); if (m_vtype.GetCurSel() =3)|(m_vtype.GetCurSel() =4) vmax=30; if(vvmax) SetDlgItemText(IDC_tishi,v太大，无法选择！请重新选择原始参数); else SetDlgItemText(IDC_tishi,合理，传动比i误差和v均满足要求！); /输出a0范围 aa0=0.7*(dd1+dd2); aa1=2*(dd1+dd2);int aa01 = aa0;int aa11 = aa1;CString stra0;CString stra1;stra0.Format(%d,aa01);stra1.Format(%d,aa11);SetDlgItemText(IDC_a0,stra0+ = a0 vmax) SetDlgItemText(IDC_tishi,v太大，无法选择！请重新选择原始参数); else SetDlgItemText(IDC_tishi,合理，传动比i误差和v均满足要求！); /输出a0范围 aa0=0.7*(dd1+dd2); aa1=2*(dd1+dd2); int aa01 = aa0;int aa11 = aa1;CString stra0;CString stra1;stra0.Format(%d,aa01);stra1.Format(%d,aa11); SetDlgItemText(IDC_a0,stra0+ = a0 = + stra1); CString string4;string4.Format(%.2f,dd2);SetDlgItemText(IDC_dd1,dd1= +string2+mm dd2= +string4+mm);SetDlgItemText(IDC_dd2,dd1= +string2+mm dd2= +string4+mm); / TODO: Add your control notification handler code herevoid CTestvDlg:OnButton2() / TODO: Add your control notification handler code here int i=0 ; int a0=0,Ld0=0; int j=0,k=0,k1=0,k2=0; int j1=0,j2=0; float K16=0.449,0.794,1.48,3.15,4.57,0.246; float K26=19.02,50.6,143.2,507.3,951.5,7.44; float K36=0.765,1.31,2.34,4.77,7.06,0.441; float Kb6=0.7725,1.9875,5.625,19.95,37.35,0.2925; float Kaf14=1.2,1.15,1.1,1.05,1,0.98,0.95,0.92,0.89,0.86,0.82,0.78,0.73,0.68; float KLgb633=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,1.17,1.19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.82,0.84,0.86,0.88,0.90,0.92,0.95,0.98,1.00,1.03,1.05,1.07,1.09,1.13,1.15,1.18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.83,0.86,0.88,0.91,0.93,0.95,0.97,0.99,1.02,1.04,1.07,1.09,1.12,1.15,1.18,1.21,1.23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.83,0.86,0.89,0.91,0.93,0.96,0.98,1,1.03,1.06,1.08,1.11,1.14,1.17,1.2,1.22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.9,0.92,0.95,0.97,1,1.02,1.05,1.07,1.1,1.12,1.15,1.18,0.87,0.89,0.91,0.94,0.96,0.99,1,1.03,1.06,1.08,1.1,1.14,1.16,1.18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0; float ZL6=0.1,0.17,0.3,0.6,0.9,0.06; float P0=0,dtaP0=0,ki=1; float i1=1,kaf=1; float KL=1; /计算中心距a和基准长度LdCString st2; m_a.GetWindowText(st2); a0=atoi(st2 ); Ld0= 2*a0+(dd1+dd2)*3.1416/2+(dd2-dd1)*(dd2-dd1)/(4*a0); for( i=0;i39;i+) if(Ldgbi(Ld0-Ldgbi-1) Ld=Ldgbi-1 ; else ; break; a=a0+(Ld-Ld0)/2 ; /输出a Ld CString sa;sa.Format(%.2f,a);CString sld;sld.Format(%.2f,Ld);SetDlgItemText(IDC_Ld,a= +sa+mm Ld= +sld+ mm); / 包角af 和P0 af=180-(dd2-dd1)*57.3/a; j= m_vtype.GetCurSel(); ; P0=(K1j*pow(v,-0.09) -K2j/dd1-K3j*v*v/10000)*v; /计算dtaP CString string3;m_i1.GetWindowText(string3); i1=atof(string3 ); if(i1=1&i1=1.015&i1=1.045&i1=1.085&i1=1.125&i1=1.185&i1=1.245&i1=1.345&i1=1.515&i1=2) ki=1.1373; CString st9; m_n1.GetWindowText(st9); dtaP0= Kbj*(atof(st9) )*(1-1/ki)/1000; /包角系数确定 k2=220; kaf=1.2; for(k1=0;k114;k1+) if (afk2) k2=k2-10; else kaf= Kafk1; break; /长度系数Kl确定 j1=m_vtype.GetCurSel() ; j2=i-6; if (KLgbj1j2=0) SetDlgItemText(IDC_a0,基准长度Ld不合法，请重新选择dd1！); else KL=KLgbj1j2; float ka243 =1,1.1,1.2,1.1,1.2,1.3,1.2,1.3,1.4,1.3,1.4,1.5,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; /确定工作系数KA int index=m_cb.GetCurSel(); int index1=m_j.GetCurSel(); int index2=m_k.GetCurSel(); KA=kaindex2indexindex1; /输出Pd和n1以选择带型 float Pd; CString st1; m_P.GetWindowText(st1); Pd=KA*(atof(st1) ); / v带根数的确定 z = Pd/(P0+dtaP0)*kaf*KL) ; /初拉力计算 F0=500*Pd*(2.5-kaf) /(kaf*v*z)+ZLj*v*v; / 压着轴上的压力 float q=1; q=2*z*F0*sin(af*3.1415926/360) ; /输