Learning_DYNA 发表于 2006-9-7 20:20

大家帮忙看看这算例的结果对不?(DYNA的,急呀)

代码如下:
/PREP7
!*
ET,1,PLANE162   
!*
KEYOPT,1,3,1
KEYOPT,1,5,0
!*
KEYOPT,1,2,1
!*
!*
MP,DENS,1,7.8E-006
MP,EX,1,196000000   
MP,NUXY,1,0.3   
TB,BISO,1,,,,   
TBDAT,1,885
TBDAT,2,81000000

!EDMP,RIGI,1,0,0
!MP,DENS,1,7.8E-006
!MP,EX,1,1.96E+008   
!MP,NUXY,1,0.3

!*
MP,DENS,2,2.7E-006
MP,EX,2,72000000
MP,NUXY,2,0.31
TB,BISO,2,,,,   
TBDAT,1,505
TBDAT,2,27000000


RECTNG,0,20,0,20,
RECTNG,0,20,25,45,

*DO,i,1,8,1
LESIZE,i, , ,20, , , , ,1
*ENDDO

MSHAPE,0,2D                     !平面四边形
MSHKEY,1                        !映射划分
AATT,1,,1,0,
AMESH,1
AATT,2,,1,0,   
AMESH,2

!定义数组变量,为压力赋值
*DIM,TIME,,36
*DIM,PRESS,,36
*VREAD,TIME(1),TIME,txt,
(1F9.0)
*VREAD,PRESS(1),PRESS,txt,
(1F9.0)

LSEL,S, , ,    7
NSLL,S
ESLN,S

CM,PRESSPOS,ELEM   
ALLSEL,ALL
EDLOAD,ADD,PRES,3,PRESSPOS,TIME,PRESS, 0, , , , ,

NSEL,S,LOC,X,0
CM,XCONSTRAIN,NODE
ALLSEL,ALL
D,XCONSTRAIN, ,0, , , ,UX, , , , ,
!*
EDPART,CREATE   
!!!!!!!!!!!!!!!!!!!*
EDCGEN,ASS2D, , ,0,0,0,0,0, , , , ,0,10000000,0,0   
!!!!!!!!!!!!!!!!!!!!!!!!!!!
FINISH
/SOL
EDENERGY,1,1,1,1
EDBVIS,1.5,0.06,
TIME,0.00694,   
EDOPT,ADD,blank,BOTH
EDRST,30,   
EDHTIME,100,
EDDUMP,1,   
!*

!*


单位为:千克,毫米,秒
附件是命令流里须要的数组文件,在工作目录下即可

我在用lsprepost观察结果时,两体之间接触上了,可在ANSYS里一步一步观察时,两体之间始终有缝隙,这是为什么呀?这样的结果对吗?为什么在两种后处理器里的结果大不一样,哪个对,还是都不对?
页: [1]
查看完整版本: 大家帮忙看看这算例的结果对不?(DYNA的,急呀)