续上贴
3)采用solsh190、solid185、solid186、solid191进行计算,命令流和计算结果如下。
(注1:这些单元的计算结果比上述1)、2)中单元的计算结果大三倍左右,可以认为是错误的。)
(注2:同样为简洁,这里只列出了solsh190的命令流,其它的命令流非常相近,如有感兴趣的同志请跟帖,我再贴上来)
!*********************
!5--solsh190
!*********************
/PREP7
/TITLE, solsh190, x80y41, difftref
ET,1,SOLSH190 ! LAYERED SOLID-SHELL ELEMENT
KEYOPT,1,8,1 ! WRITE LAYER RESULTS
SECTYPE,1,SHELL
SECDATA,0.38,1 ! LAYER 1: 0.38 THK
SECDATA,0.5, 2 ! LAYER 2: 0.5 THK
secdata,0.5,3 !LAYER 3: 0.5 THK
secdata,3.2,4 !LAYER 4: 3.2 THK
MP,EX,1,3000 ! MATERIAL 1 PROPERTIES
MP,NUXY,1,0.4
mp,reft,1,99
MP,ALPX,1,26E-6
MP,EX,2,10.1 ! MATERIAL 2 PROPERTIES
MP,NUXY,2,0.42
mp,reft,2,55
MP,ALPX,2,140E-6
MP,EX,3,10.1 ! MATERIAL 3 PROPERTIES
MP,NUXY,3,0.42
mp,reft,3,55
MP,ALPX,3,140E-6
MP,EX,4,72000 ! MATERIAL 4 PROPERTIES
MP,NUXY,4,0.22
mp,reft,4,140
MP,ALPX,4,8.5E-6
BLOCK,0,80,0,41,0,4.58, !建立一个六面体
!*
!*
lsel,s,loc,x,40 !设置单元划分参数
lesize,all, , ,80, , , , ,0
lsel,s,loc,y,20.5
lesize,all, , ,41, , , , ,0
lsel,s,loc,z,2.29
lesize,all, , ,1, , , , , 0
allsel,all
!*
TYPE,1 !划分单元
MSHAPE,0,3D
MSHKEY,1
!*******
veorient,1,kp,2,5 !指定单元方向
!********
VMESH,all
!*
nsel,s,loc,y,0 !施加约束
DSYM,SYMM,Y, ,
nsel,s,loc,x,0
DSYM,SYMM,X, ,
nsel,s,loc,x,0
nsel,r,loc,y,0
nsel,r,loc,z,0
d,all,uz,0
ALLSEL,ALL
!*
BF,all,TEMP,-30 !施加载荷
ALLSEL,ALL
/SOLU
ANTYPE,0 !求解设置,非必须
NLGEOM,1
NSUBST,20,1000,20
OUTRES,ERASE
OUTRES,ALL,1
AUTOTS,1
TIME,20
ALLSEL,ALL
SAVE,'allok-miao-solsh190-x80y41-difftref','db',
/STATUS,SOLU
SOLVE !求解
FINISH
计算结果见下图(变形放大50倍,并设置/eshape,1)
[ 本帖最后由 phe666 于 2008-7-31 21:52 编辑 ] |