ex1.3.txt

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

!1.3  超静定拉压杆的反力计算
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR,START
! (1) 设置工程的选项, 进入前处理模块,声明单元类型,实常数和材料参数
/FILNAME, EX1.3
/PREP7
/TITLE, EX1.3, STATICALLY INDETERMINATE REACTION FORCE ANALYSIS
ANTYPE,STATIC
ET,1,LINK1
R,1,1
MP,EX,1,210E9
! (2) 定义节点
N,1
N,2,,0.4
N,3,,0.7
N,4,,1.0
! (3) 定义单元
E,1,2
EGEN,3,1,1
! (4) 定义位移约束和荷载
D,1,ALL,,,4,3
F,2,FY,-500
F,3,FY,-1000
FINISH
! (5) 进入求解模块SOLU
/SOLU
OUTPR,BASIC,1
OUTPR,NLOAD,1
SOLVE
FINISH
! (6) 进入一般后处理模块POST1
/POST1
NSEL,S,LOC,Y,1.0
FSUM
*GET,REAC_1,FSUM,,ITEM,FY
NSEL,S,LOC,Y,0
FSUM
*GET,REAC_2,FSUM,,ITEM,FY
! (7) 申明数组,输出计算结果并比较
*DIM,LABEL,CHAR,2
*DIM,VALUE,,2,3
LABEL(1) = 'R1, N ','R2, N  '
*VFILL,VALUE(1,1),DATA,900,600
*VFILL,VALUE(1,2),DATA,ABS(REAC_1),ABS(REAC_2)
*VFILL,VALUE(1,3),DATA,ABS(REAC_1/900) ,ABS(REAC_2/600)
/OUT,EX1_3,out
/COM
/COM,------------------- EX1.3 RESULTS COMPARISON ---------------------
/COM,
/COM,         |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,'   ',F10.1,'  ',F10.1,'   ',1F5.3)
/COM,----------------------------------------------------------------
/OUT
FINISH
*LIST,EX1_3,out