ex4.15(3).inp

ansys有限元分析程序

! 4.15  联轴器膜片多工况分析
! 本程序来源于邢静忠编著的《ANSYS应用实例与分析》，科学出版社，2006年
! 轴向变形引起的弯曲应力计算
FINISH
/CLEAR
/FILNAME, EX4.15(3)
/TITLE, EX4.15(3) Membrance of Axial Connector under Axial Displacement.
! （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
! （5）给右上方小孔施加轴向位移
LSel, S, Line, , 5, 8, 1
DL, ALL, , UZ, THICK*7/2
LSel, ALL
! （6）按照指定单元的大小，将面剖分为面单元
AESize, ALL, 4
AMESH, ALL
Finish
! （7）进入求解模块求解
/solu
Solve
Finish
! （8）进入一般后处理模块显示结果
/post1
PLNSol, S, eqv
PLNSol, S, 1
PLNSol, S, 3
FINISH