自适应划分.txt

是用apdl语言编的

/PREP7
SMRT,OFF

ANTYPE,STATIC   
ET,1,PLANE42,,,3            ! 定义平面应力单元有单元厚度 
                            
MP,EX,1,210E9               ! 定义材料属性
MP,NUXY,1,.3
R,1,0.1                     ! 给定厚度
LOCAL,11,1,,,,,,,0.5        ! 定义区域坐标系统为圆柱坐标系，Y轴是X的0.5倍。
K,1,2,90                     
K,2,2,0                      
L,1,2                        
LOCAL,12,1,,,,,,,0.8461585  ! 定义区域坐标系统为圆柱坐标系，Y轴是X的0.846倍。
K,3,3.25,90
K,4,3.25,0.0
L,3,4
CSYS,0                      !回到卡式坐标系下。
L,2,4
L,1,3
AL,2,4,1,3                  ! 创建面积
DL,4,1,SYMM                 ! 创建对称面约束 
DL,3,1,SYMM
SFL,2,PRES,-10E6            ! 定义线上的分布载荷
MSHK,2                      ! 混合网格划分
MSHA,0,2D                   ! 四边形网格
SAVE                        ! 备份数据库
FINISH
ADAPT,7,7,,,1               ! 求解次数为nsoln=4次，能量误差百分比stargt=7,单元尺寸改变最大比例因子facmx=1
                            
/POST1
EPLOT                       ! 绘制单元
PRERR                       ! 打印能量误差百分比
NSEL,S,LOC,Y,0.0
NSEL,R,LOC,X,2.0
*GET,MNODE,NODE,,NUM,MAX
*GET,SY_D,NODE,MNODE,S,Y    ! GET DESIRED STRESS SY VALUE
NSEL,ALL
ESEL,ALL
FINISH