/PREP7
!定义单元和材料
ET,1,SOLID164
MP,DENS,1,7800
MP,EX,1,2.1e11
MP,NUXY,1,0.3
EDMP,RIGI,2,7,4
MP,DENS,2,7800
MP,EX,2,2.1e11
MP,NUXY,2,0.3
!画刚体和弹性体的实体模型
BLOCK,-0.1,0.1,0.4,0.6,0,0.05,
BLOCK,-0.05,0.05,0.45,0.55,0.05,0.1,
KWPAVE, 9
wpro,,90.000000,
VSBW, 1
KWPAVE, 10
VSBW, 3
VGLUE,all
!确定实体模型上线条的网格密度
LESIZE,all,0.025, , , , , , ,1
lesize,11,,,2
lesize,12,,,2
lesize,31,,,2
lesize,32,,,2
lesize,9,,,2
lesize,10,,,2
lesize,39,,,2
lesize,40,,,2
lesize,21,,,2
lesize,22,,,2
lesize,23,,,2
lesize,24,,,2
numcmp,volu
!划分单元
vsweep,2
vsweep,3
vsweep,4
mat,2
vsweep,1
!建立part
edpart,create
!定义载荷数组
*DIM,time,ARRAY,2,1,1, , ,
*SET,TIME(2,1,1) , 10
*DIM,wz,ARRAY,2,1,1, , ,
*SET,WZ(1,1,1) , 5
*SET,WZ(2,1,1) , 5
!加载
EDLOAD,ADD,RBOZ,0, 2,TIME,WZ, 0, , , , ,
!定义分析选项
FINISH
/SOL
TIME,0.5,
EDRST,30,
EDHTIME,50,
EDDUMP,1,
EDENERGY,1,1,1,1
/STATUS,SOLU
SOLVE
!输出动画
FINISH
/POST1
SET,LAST
/DSCALE,1,1.0
/REPLOT
PLDI, ,
ANTIME,50,0.1, ,1,2,0,0
FINISH
|