没有合适的资源?快使用搜索试试~ 我知道了~
改文档中的APDL语言包括齿轮的建模和动力学仿真,结果可获得齿轮接触应力和变形
资源推荐
资源详情
资源评论
/FILNAME,Spur Gear Based on ANSYS,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 !定义小齿轮齿根圆半径
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*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)!定义大齿轮齿顶压力角
/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 !定义小齿轮齿根圆半径
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*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/PI !定义大齿轮分度圆展角
ET,1,SOLID185
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.06E11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,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,1 !定义9×1数组R
CSYS,1 !当前坐标系为柱坐标
ALFA(1,1)=0 !数组数ALFA(1,1)=0
K,100,Rk1,0 !生成关键点100
*DO,i,1,9,1 !循环生成其他关键点
ALFA(i+1,1)=ALFA(i,1)+ALFA_Dingn1
SITA(i,1)=(tan(alfa(i+1,1))-alfa(i+1,1))*180/PI
R(i,1)=Rk1/cos(alfa(i+1,1))
/prep7
K,i+100,R(i,1),sita(i,1)
*enddo !循环结束生成9个关键点
k,110,ra1,sita_ding1 !生成齿顶圆上的关键点
bsplin,all !用样条曲线连接所有点
SITA2=(tan(ALFA2)-ALFA2)*180/PI !定义大齿轮分度圆展角
ET,1,SOLID185
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.06E11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,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,1 !定义9×1数组R
CSYS,1 !当前坐标系为柱坐标
ALFA(1,1)=0 !数组数ALFA(1,1)=0
K,100,Rk1,0 !生成关键点100
*DO,i,1,9,1 !循环生成其他关键点
ALFA(i+1,1)=ALFA(i,1)+ALFA_Dingn1
SITA(i,1)=(tan(alfa(i+1,1))-alfa(i+1,1))*180/PI
R(i,1)=Rk1/cos(alfa(i+1,1))
/prep7
K,i+100,R(i,1),sita(i,1)
*enddo !循环结束生成9个关键点
k,110,ra1,sita_ding1 !生成齿顶圆上的关键点
bsplin,all !用样条曲线连接所有点
剩余26页未读,继续阅读
资源评论
zhouyanghit
- 粉丝: 1
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功