ex4.15(2).inp

ansys有限元分析程序

! 4.15  联轴器膜片多工况分析
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
! 扭矩传递引起每个膜片上的薄膜应力计算
FINISH
/CLEAR
/FILNAME, EX4.15(2)
/TITLE, EX4.15(2) Membrance of Axial Connector under Torsion Moment.
! （1）设置几何参数
WAIJ=139
NEIJ=95
XIAOJ=11
ZHONGJ=117
THICK=0.4
Pi=3.1415926
! XIAOJ1=(ZHONGJ-NEIJ-XIAOJ)/2+XIAOJ
zhouc=Pi/2*XIAOJ
power=400000e3
NR=2960/60*2*Pi
force=power/NR/ZHONGJ/80
! （2）根据对称性，建立实体模型
/PREP7
*AFUN, DEG
PCIRC, NEIJ, WAIJ, 0, 90
CYL4, ZHONGJ*COS(45), ZHONGJ*SIN(45), , , XIAOJ
CYL4, 0, ZHONGJ, , -90, XIAOJ, 90
CYL4, ZHONGJ, 0, , 0, XIAOJ, 180
AOverlap, ALL
ADele, 2, 4, 1, 1
! （3）选取单元，设置材料属性和实常数
ET, 1, SHELL63
MP, EX, 1, 198e3
MP, PRXY, 1, 0.3
MP, DENS, 1, 7.9e-9
R, 1, THICK
! （4）施加右边和上边小孔的固定条件和右上小孔里的压力荷载
DL, 9, , ALL, 0
DL, 12, , ALL, 0
DL, 15, , UY, 0
DL, 18, , UY, 0
DL, 16, , UX, 0
DL, 17, , UX, 0
SFL, 6, PRESS, force/zhouc
! （5）按照指定单元的大小，将面剖分为面单元
AESize, ALL, 4
AMESH, ALL
Finish
! （6）进入求解模块求解
/solu
Solve
Finish
! （7）进入一般后处理模块显示结果
/post1
PLNSol, s, eqv
PLNSol, s, 1
PLNSol, s, 3
FINISH