马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
/prep7
et,1,42 $et,2,169$et,3,172 $keyopt,3,12,2 $keyopt,3,9,0!定义单元类型和实常数
mp,ex,1,3e8 $mp,nuxy,1,0.3$mp,dens,1,2500 !定义船闸闸首材料
mp,ex,2,3e7 $mp,nuxy,2,0.4$mp,dens,2,2000$mp,mu,2,0.3 !定义土线性材料属性
tb,dp,2
tbdata,1,19,32 !定义土的非线性
!闸首建模
k,1,0,0
k,2,10,0
k,3,30,0
k,4,40,0
k,5,40,30
k,6,30,30
k,7,30,5
k,8,10,5
k,9,10,30
k,10,0,30
a,1,2,9,10
a,2,3,7,8
a,3,4,5,6
asel,s,,,1,3,1
aglue,all
numcmp,all
esize,2.5
type,1
mat,1
amesh,all
!土体建模
rectng,-40,0,0,30
rectng,-40,0,-50,0
rectng,0,40,-50,0
rectng,40,80,-50,0
rectng,40,80,0,30
asel,s,,,4,8,1
aglue,all
numcmp,all
esize,2.5
type,1
mat,2
amesh,all
!接触面设定
r,10
real,10
lsel,s,,,3
lsel,a,,,1
lsel,a,,,4
lsel,a,,,8
lsel,a,,,9
nsll,s,1
type,2
esurf,all
lsel,s,,,14
lsel,a,,,25
lsel,a,,,27
nsll,s,1
type,3
esurf,all
allsel
finish
!施加荷载
/solu
allsel
acel,0,9.8,0
lsel,s,loc,x,-40
lsel,a,loc,x,80
lsel,a,loc,y,-50
nsll,s,1
d,all,all
allsel
time,1
nsubst,100
solv
|