资源描述：
《多齿轮动态接触分析》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、多齿轮动态接触分析/FILNAME,SpurGearBasedonANSYS,0/PREP7!定义小齿轮齿轮参数M=2E-3!齿轮模数PI=3.1415!定义πZ1=36!小齿轮齿数ALFA1=20/180*PI!定义小齿轮的标准压力角Ha=1!定义齿顶高系数C=0.25!定义顶隙系数D1=M*Z1!定义小齿轮分度圆直径Dk1=M*Z1*COS(ALFA1)!定义小齿轮基圆直径Rk1=Dk1/2!定义小齿轮基圆半径Df1=D1-2*(Ha+C)*M!定义小齿轮齿根圆直径Rf1=Df1/2!定义小齿轮齿
2、根圆半径Da1=D1+2*Ha*M!定义小齿轮齿顶圆直径Ra1=Da1/2!定义小齿轮齿顶圆半径ALFA_Ding1=ACOS(Rk1/Ra1)!定义小齿轮齿顶压力角SITA_Ding1=(TAN(ALFA_Ding1)-ALFA_Ding1)*180/PI!定义小齿轮齿顶展角SITA1=(tan(ALFA1)-ALFA1)*180/PI!定义小齿轮分度圆展角!定义大齿轮几何参数Z2=45!大齿轮齿数ALFA2=20/180*PI!定义大齿轮的标准压力角D2=M*Z2!定义大齿轮分度圆直径Dk2=M*
3、Z2*COS(ALFA2)!定义大齿轮基圆直径Rk2=Dk2/2!定义大齿轮基圆半径Df2=D2-2*(Ha+C)*M!定义大齿轮齿根圆直径Rf2=Df2/2!定义大齿轮齿根圆半径Da2=D2+2*Ha*M!定义大齿轮齿顶圆直径Ra2=Da2/2!定义大齿轮齿顶圆半径ALFA_Ding2=ACOS(Rk2/Ra2)!定义大齿轮齿顶压力角SITA_Ding2=(TAN(ALFA_Ding2)-ALFA_Ding2)*180/PI!定义大齿轮齿顶展角SITA2=(tan(ALFA2)-ALFA2)*180
4、/PI!定义大齿轮分度圆展角ET,1,SOLID185MPTEMP,,,,,,,,MPTEMP,1,0MPDATA,EX,1,,2.06E11MPDATA,PRXY,1,,0.3MPTEMP,,,,,,,,MPTEMP,1,0MPDATA,DENS,1,,7850!定义小齿轮的渐开线ALFA_Dingn1=alfa_ding1/10!定义压力角份数*DIM,ALFA,ARRAY,10,1!定义10×1数组ALFA*DIM,SITA,ARRAY,9,1!定义9×1数组SITA*DIM,R,ARRAY,9
5、,1!定义9×1数组RCSYS,1!当前坐标系为柱坐标ALFA(1,1)=0!数组数ALFA(1,1)=0K,100,Rk1,0!生成关键点100*DO,i,1,9,1!循环生成其他关键点ALFA(i+1,1)=ALFA(i,1)+ALFA_Dingn1SITA(i,1)=(tan(alfa(i+1,1))-alfa(i+1,1))*180/PIR(i,1)=Rk1/cos(alfa(i+1,1))/prep7K,i+100,R(i,1),sita(i,1)*enddo!循环结束生成9个关键点k,11
6、0,ra1,sita_ding1!生成齿顶圆上的关键点bsplin,all!用样条曲线连接所有点!定义小齿轮齿根过渡曲线!定义小齿轮齿根圆FLST,2,2,8FITEM,2,0,0,0FITEM,2,Rf1,0,0CIRCLE,P51X,,,,360,,!定义线L,100,1!定义齿根过渡曲线LCOMB,1,6LFILLT,1,5,0.38*m,,LDELE,2,,,1LDELE,3,,,1LDELE,4,,,1LDELE,5,,,1LCOMB,1,6!定义单个齿的平面模型LOCAL,11,0,0,0
7、,0,SITA1+90/Z1,,,1,1,CSYS,11,LSYMM,Y,1,FLST,2,2,8FITEM,2,0,0,0FITEM,2,RF1,0,0CIRCLE,P51XFLST,2,2,8FITEM,2,0,0,0FITEM,2,RA1,0,0CIRCLE,P51XCSYS,1FLST,3,2,4,ORDE,2FITEM,3,1FITEM,3,-2LGEN,2,P51X,,,,360/Z1,,,0LOVLAP,ALL!搭接所有的线!删除指定的线LDELE,21,,,1LDELE,8,,,1LD
8、ELE,9,,,1LDELE,10,,,1LDELE,18,,,1LDELE,4,,,1LDELE,5,,,1LDELE,19,,,1LDELE,12,,,1LDELE,22,,,1LDELE,23,,,1LDELE,11,,,1LDELE,13,,,1LDELE,20,,,1LDELE,15,,,1LDELE,17,,,1!通过复制产生完整的齿轮轮廓LGEN,Z1,ALL,,,,360/Z1,,,0LGLUE,ALL!粘结所有的线!通过齿轮轮廓线建立齿
