!4.2 一对集中力作用下的圆环
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR,NOSTART
! (1) 定义文件名,标题,在前处理模块中通过循环在柱坐标系下定义节点
/FileName,EX4.2
/TITLE,EX4.2, Round Ring under a pair of concentrated force by direct modeling method.
/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,1
PLNSOL,s,3
PLNSOL,s,eqv
FINISH
