! 4.7  一對集中力作用下的圓環
! 本程序來源于邢靜忠編著的《ANSYS應用實例與分析》，科學出版社，2006年
!
FINISH
/CLEAR, NOSTART
! （1）定義文件名、標題、在前處理模塊中通過循環在柱坐標系下定義節點
/FILNAME, EX4.7(1)
/TITLE, EX4.7(1), Round Ring under concentrated force by direct modeling.
/PREP7
CSYS, 1
*DO, i, 1, 36, 1
*DO, j, 1, 11, 1
N, i+(j-1)*36, 50+5*(j-1), (i-1)*10
*ENDDO
*ENDDO
! (2)定義單元類型、實常數和材料參數, 利用循環定義單元
ET, 1, PLANE82, , , 3
R, 1, 1
MP, EX, 1, 2e3
MP, PRXY, 0.3
*DO, j, 1, 10, 1
*DO, i, 1, 35, 1
E, i+(j-1)*36, i+(j-1)*36+1, i+(j-0)*36+1, i+(j-0)*36
*ENDDO
E, 36+(j-1)*36, 1+(j-1)*36, 1+(j-0)*36, 36+(j-0)*36
*ENDDO
FINISH
! (3)施加位移邊界條件后，求解
/SOLU
D, 379, ALL, 0
D, 361, uy, 0
D, 361, ux, -1
SOLVE
FINISH
! (4)在后處理模塊, 顯示變形和應力結果
/POST1
PLDISP, 2
PLNSOL, S, X
PLNSOL, S, Y
PLNSOL, S, XY
PLNSOL, S, 1
PLNSOL, S, 3
PLNSOL, S, EQV
FINISH