! 2.3  超靜定拉壓桿的反力計算
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH
/CLEAR, START
! （1）設置工程的選項, 進入前處理模塊, 聲明單元類型, 實常數和材料參數
/FILNAME, EX2.3
/PREP7
/TITLE, EX2.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
*STATUS, PARM
FINISH