real,5
e,1003,node(lp,-lp,0)
!*********** Put springs on UY **********
et,6,14
keyopt,6,2,2
r,6,k1
et,7,14
keyopt,7,2,2
r,7,k2
type,6
real,6
e,1000,node(-lp,lp,0)
e,1001,node(-lp,-lp,0)
e,1002,node(lp,lp,0)type,7
real,7
e,1003,node(lp,-lp,0)
!*********** Put springs on UZ ***********
et,8,14
keyopt,8,2,3
r,8,k1
et,9,14
keyopt,9,2,3
r,9,k2
type,8
real,8
e,1000,node(-lp,lp,0)
e,1001,node(-lp,-lp,0)
e,1002,node(lp,lp,0)
type,9
real,9
e,1003,node(lp,-lp,0)
finish
/solution
antype,static
nsel,,loc,z,lsp
d,all,all,0! Apply zero displacement on second node of springs
allsel
vsel,s,,,1,,,1
nsel,r,loc,x,-lp
d,all,ux,0! Apply zero UX displacement on constrained plate
vsel,s,,,2,,,1
nsel,r,loc,x,-lp
d,all,ux,.01! Force UX displacement on free plate
vsel,s,,,2,,,1
nsel,r,loc,y,-lp
d,all,uy,0! Apply zero UY displacement on free plate
allsel
nsel,s,loc,z,2*hp
sf,all,pres, pres1! Apply pressure on free plate
solc,,,nopl
nsel,all
esel,,type,,2
cm,contact2,elem! Make a contact component
allsel
outres,all,last
nlgeom,on
nropt,unsym! Use unsymmetric option for frictional contact
! so that QRDAMP or UNSYM eigensolver can be used
solve
finish
/solution
antype,,restart,,,perturbation
perturb,modalRelease 15.0 - © SAS IP, Inc. All rights reserved. - Contains proprietary and confidential informationLinear Perturbation Analysis