[分享]桩土接触

freddieaid

fini
/cle
/BATCH  
!/input,start81,ans,';d:\Program Files\Ansys Inc\v81\ANSYS\apdl\';,,,,,,,,,,,,,,,,1
/prep7  
et,1,solid45
mp,ex,1,2.5e10  
mp,nuxy,1,0.2   
mp,dens,1,2500  
mp,ex,2,2.5e7   
mp,nuxy,2,0.4   
tb,dp,2
tbdata,1,19000,32,30   
k,1,
k,2,1,  
k,3,1,0,-1  
k,4,,,-1
k,5,,8,
k,6,1,8,
k,7,1,8,-1  
k,8,,8,-1   
k,9,6,  
k,10,6,,-1  
k,11,1,6,   
k,12,1,6,-1
k,13,6,6,   
k,14,6,6,-1
k,15,,-16,  
k,16,6,-16,
k,17,6,-16,-1   
k,18,,-16,-1
k,19,,-16,-6
k,20,6,-16,-6   
k,21,,,-6   
k,22,6,,-6  
k,23,,6,-1
k,24,,6,-6  
k,25,6,6,-6
k,26,1,-16,
k,27,1,-16,-1
k,28,1,-16,-6
k,29,1,,-6
k,30,1,6,-6
k,31,,6,
k,32,
k,33,1,  
k,34,1,0,-1  
k,35,,,-1
k,36,1,6,   
k,37,1,6,-1
k,38,,6,-1
v,1,2,3,4,31,11,12,23
v,31,11,12,23,5,6,7,8
v,15,26,27,18,32,33,34,35
v,26,16,17,27,33,9,10,34  
v,33,9,10,34,36,13,14,37
v,27,17,20,28,34,10,22,29
v,34,10,22,29,37,14,25,30
v,18,27,28,19,35,34,29,21
v,35,34,29,21,38,37,30,24
vglue,1,2
type,1
mat,1
vsel,s,,,1,2,1
ASLV,S  
LSLA,S  
lesize,all,0.5  
vmesh,1,2,1
vplot
!eslv,s
!nslv,s,1
!eplot
!nummrg,all
!numcmp,all

vglue,3,4,5,6,7,8,9
vsel,s,,,3,9,1
type,1
mat,2
ASLV,S  
LSLA,S  
lesize,all,1.5
vmesh,3,9,1
vplot
!eslv,s
!nslv,s,1
!eplot
!nummrg,all
!numcmp,all
allsel
/view,1,1,1,1
/ang,1
gplot
allsel
et,2,170
et,3,173
keyopt,3,9,0
!keyopt,3,12,2
r,10,0,0,5,0.0001
mp,mu,3,0.2
vsel,s,,,1,2,1
vplot
asel,s,,,1
asel,a,,,3,4,1
asel,a,,,8,9,1
aplot
cm,target,area
type,2
real,10
mat,3
nsla,s,1
esurf,all
esel,s,type,,2
cm,tarsur,elem
eplot
/psymb,esys,1
allsel
vsel,s,,,3,5,2
vsel,a,,,9
vplot
asel,s,,,17
asel,a,,,26
asel,a,,,41
aplot
cm,contact,area
type,3
real,10
mat,3
nsla,s,1
esurf,all
esel,s,type,,3
cm,consur,elem
eplot
/psymb,esys,0
allsel
eplot
save
FINISH  
/solu
antype,static
asel,s,loc,x,0
aplot
da,all,symm
asel,s,loc,x,6
da,all,ux
aplot
asel,s,loc,z,0
da,all,symm
asel,s,loc,z,-6
da,all,uz
asel,s,loc,y,-16
da,all,uy
allsel
acel,0,9.8,0,
nsel,s,loc,y,8
esln,s
eplot
sfe,all,3,pres,,50000
allsel
nlgeom,on
time,1
nsub,20