ex1.5.txt

通过实例详细介绍Ansys在实际工程中的应用

!1.5  端部有间隙的杆的热膨胀
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR,START
! (1) 定义分析类型,单元类型,截面面积和材料的力学,热学参数
/FILNAME, EX1.5
/PREP7
/TITLE, EX1.5, THERMAL EXPANSION TO CLOSE A GAP AT A RIGID SURFACE
ANTYPE,STATIC
ET,1,CONTAC26
R,1,2.625E15
ET,2,PLANE42,,,3
R,2,1
MP,EX,1,72.4E3
MP,ALPX,1,2.25E-5
MP,NUXY,1,0
! (2) 定义节点信息
N,1,2000,1000
N,2,3000,1000
N,3,3000,4000
N,4,2000,4000
N,11,1000,998
N,12,4000,998
! (3) 定义单元信息
E,1,11,12
E,2,11,12
TYPE,2
REAL,2
E,1,2,3,4
TREF,21
BFUNIF,TEMP,77
! (4) 定义位移约束
D,3,ALL,,,4
D,1,UX,,,2,1
OUTPR,BASIC,LAST
FINISH
! (5) 在求解模块开始求解
/SOLU
SOLVE
FINISH
! (6) 在一般后处理模块中,定义水平应力和铅直应力单元表,并提取3号单元的应力结果
/POST1
ETABLE,STRSX,S,X
ETABLE,STRSY,S,Y
*GET,STRSSX,ELEM,3,ETAB,STRSX
*GET,STRSSY,ELEM,3,ETAB,STRSY
! (7) 将计算结果输出到结果文件
*DIM,LABEL,CHAR,2,2
*DIM,VALUE,,2,3
LABEL(1,1) = 'SIGX, (M','SIGY, (M'
LABEL(1,2) = 'Pa)    ','Pa)    '
*VFILL,VALUE(1,1),DATA,-91.22,-42.96
*VFILL,VALUE(1,2),DATA,STRSSX,STRSSY
*VFILL,VALUE(1,3),DATA,ABS(STRSSX/91.22) ,ABS(STRSSY/42.96)
/COM
/OUT,EX1_5, out
/COM,------------------- EX1.5  RESULTS COMPARISON --------------
/COM,
/COM,                 |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,'   ',F10.3,'  ',F10.3,'   ',1F5.3)
/COM,----------------------------------------------------------
/OUT
FINISH
*LIST,EX1_5,out