finish
/clear
/config,nres,2000
/PREP7
BLC4,,,1200,2400,33000
wpoff,-400,-2600,1000
BLC4,,,2000,2600,4000
vgen,4,2,2,0,0,0,9000
wpcsys,-1
vglue,all
numcmp,all
nummrg,all
allsel,all
et,1,solid65
keyopt,1,1,0
keyopt,1,7,1
mp,ex,1,13585
mp,prxy,1,0.2
fc=14.3
ft=1.43
tb,concr,1
tbdata,,0.5,0.95,ft,fc
tb,miso,1,,11
tbpt,,0.0002,fc*0.19
tbpt,,0.0004,fc*0.36
tbpt,,0.0006,fc*0.51
tbpt,,0.0008,fc*0.64
tbpt,,0.0010,fc*0.75
tbpt,,0.0012,fc*0.84
tbpt,,0.0014,fc*0.91
tbpt,,0.0016,fc*0.96
tbpt,,0.0018,fc*0.99
tbpt,,0.002,fc
r,1
LESIZE,all,200 ,,,,,,,1
vsel,all
vatt,1,1,1
vsweep,all
n,,600,-2600,3000
n,,600,-2600,12000
n,,600,-2600,21000
n,,600,-2600,30000
et,2,MATRIX27
keyopt,2,3,4
r,2,1200000
type,2
real,2
e,5092,27455
e,5892,27456
e,6692,27457
e,7492,27458
*do,i,1,4
nsel,s,loc,y,-2600
nsel,r,loc,x,400,800
nsel,r,loc,z,2800+9000*(i-1),3200+9000*(i-1)
cerig,27455+(i-1),all,ux
cerig,27455+(i-1),all,uy
cerig,27455+(i-1),all,uz
*enddo
n,,600,-5600,3000
n,,600,-5600,12000
n,,600,-5600,21000
n,,600,-5600,30000
et,3,combin14
r,3,1200000
type,3
real,3
e,27455,27459
e,27456,27460
e,27457,27461
e,27458,27462
nsel,s,loc,y,-5600
d,all,all
asel,s,loc,z,0
da,all,ux
da,all,uz
asel,s,loc,z,33000
da,all,ux
da,all,uz
asel,s,loc,y,2400
sfa,all,,pres,1000
numcmp,all
nummrg,all
allsel,all
/solu
antype,0
cnvtol,u,,0.015,
nsubst,50
outres,all,all
autos,on
ncnv,2
neqit,50
solve
用弹簧模拟的桩不知道问题在哪
|