ex1.1.txt

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

!1.1  铰接杆在外力作用下的变形
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR,NOSTART
! (1) 设置工程的选项, 定义几何参数
/FileName, EX1.1
/TITLE, EX1.1, DEFLECTION OF A HINGED SUPPORT
*AFUN,DEG
THETA=30
A=10000
B=A/2*TAN(THETA)
! (2) 进入前处理模块, 定义节点
/PREP7
N,1
N,2,A/2,-B
N,3,A
! (3) 在前处理模块中,定义单元类型,材料参数和各个单元
ET,1,LINK1
R,1,1000
MP,EX,1,210E3
E,1,2
E,2,3
! (4) 在前处理模块中,定义位移约束
D,1,ALL,,,3,2
F,2,FY,-1000
OUTPR,,1
FINISH
! (5) 进入求解模块,开始求解
/SOLU
SOLVE
FINISH
! (6) 进入后处理模块,显示节点位移和杆件内力
/POST1
PLDISP,2
MID_NODE = NODE (A/2,-B,0 )

*GET,DISP,NODE,MID_NODE,U,Y
LEFT_EL = ENEARN (MID_NODE)
ETABLE,STRS,LS,1
*GET,STRSS,ELEM,LEFT_EL,ETAB,STRS
! (7) 申明数组,提取计算结果,并比较计算误差
*DIM,LABEL,CHAR,2
*DIM,VALUE,,2,3
LABEL(1) = 'STRS_MPa','DEF_mm'
*VFILL,VALUE(1,1),DATA,1,-0.05498
*VFILL,VALUE(1,2),DATA,STRSS,DISP
*VFILL,VALUE(1,3),DATA,ABS(STRSS /1 ) ,ABS( DISP /0.05498 )
/OUT,EX1_1,out
/COM
/COM,------------------- EX1.1 RESULTS COMPARISON ---------------------
/COM,
/COM,         |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,'   ',F10.3,'  ',F10.3,'   ',1F5.3)
/COM,----------------------------------------------------------------
/OUT
FINISH
*LIST,EX1_1,out