////고무 1////////////////
/prep7
et,1,hyper56,,,1
et,2,169
et,3,171
mp,nuxy,1,0.49
mp,mu,2,0.0
tb,mooney,1
tbmodif,2,1,80
tbmodif,3,1,20
r,2,,,1,0.1
r,3,,,1,0.1
local,11,1,1.41
wpcsys,11
pcirc,,0.06,,90
pcirc,,0.06,90,180
pcirc,,0.06,180,270
pcirc,,0.06,270,360
nummur,kp
mshkey,2
esiz,0.015
amesh,all
csys,0
k,20,1.23,-0.06
k,21,1.59,-0.06
k,22,1.59,-0.06
k,23,1.59,0.06
k,24,1.59,0.06
k,25,1.23,0.06
l,21,20
l,23,22
l,25,24
type,2
mat,2
real,2
lmesh,6
lmesh,9
real,3
lmesh,11
kmesh,25
csys,11
nsel,s,loc,x,0.06
type,3
real,2
esurf
real,3
esurf
allsel
csys,0
n_load=node(kx(25),ky(25),0)
/solu
nlgeom,on
solc,on
time,1
nsubst,50,100,30
d,n_load,uy,-0.06
outres,all,all
solve
/post1
plns,nl,hpre,2,1
//// 고무 2////////////////
/filename,seal
/prep7
et,1,hyper56
et,2,169
et,3,171
mp,nuxy,1,0.49
tb,mooney,1,1,2
tbmodif,2,1,80
tbmodif,3,1,20
mp,mu,2,0.2
r,2,,,0.5,0.1
r,3,,,0.5,0.1
k,1
k,2,0.333
k,3,0.867,0.867
k,4,1.1,0.867
k,5,1.1,1
k,6,0.8,1
k,7,0.267,0.133
k,8,,0.133
l,1,2
*repeat,7,1,1
l,8,1
lfill,1,2,0.2
lfill,2,3,0.15
lfill,5,6,0.2
lfill,6,7,0.15
lfill,7,8,0.05
lfill,8,1,0.05
al,all
k,25,-0.6
k,26,1.1
l,26,25
k,27,-0.6,1
k,28,1.1,1
l,27,28
lesi,8,,,2
lesi,13,,,4
lesi,14,,,4
esiz,0.035
amesh,all
lesi,15,,,1
lesi,16,,,1
type,2
mat,2
real,2
lmesh,15
real,3
lmesh,16
kmesk,27
lsel,s,,,1,3
lsel,a,,,9,10
lsel,a,,,14
nsll,s,1
type,3
real,2
esurf
lsel,s,,,5,8
lsel,a,,,11,13
nsll,s,1
real,3
esurf
allsel
n_load=node(kx(27),ky(27),0)
/solu
nlgeom,on
solc,on
lnsrch,on
time,100
nsubst,100,200,50
autots,on
outres,all,all
d,n_load,uy,-0.85
lsel,s,,,4
nsll,s,1
d,all,ux,0
allsel
solve
/post1
plnsol,s,eqv,2
!/post26
!rforce,2,n_load,u,y,fy
!plvari,2