!!!!!APDL!!!!!!!!!
finish
/clear
/filname,Shearlock

/prep7
et,1,182
keyopt,1,1,0
et,2,182
keyopt,2,1,1
et,3,182
keyopt,3,1,2
r,1

  tb,hyper,1,1,2,mooney
  tbtemp,0
  tbdata,1,8,2
  tbdata,3,2e-4


et,5,153
keyopt,5,4,1
r,5


rectng,,30,,1
lsel,s,loc,x,0
lesize,all,,,2
lsel,s,loc,y,0
lesize,all,,,40
allsel,all
agen,3,all,,,0,-1*5,0
asel,s,area,,1
aatt,1,1,1
asel,s,area,,2
aatt,1,1,2
asel,s,area,,3
aatt,1,1,3
asel,all
mshape,0
mshkey,1
amesh,all


lsel,s,loc,x,30
nsll,s,1
type,5$real,5
esurf

allsel,all
finish

/solu

antype,static
nlgeom,on
rescon,define,none
outres,all,all
nsubst,10,1000,1
kbc,0


esel,s,type,,5
sfe,all,2,pres,,0.01


lsel,s,loc,x,0
nsll,s,1
d,all,ux
d,node(0,0,0),uy
d,node(0,-1*5,0),uy
d,node(0,-1*10,0),uy


allsel,all

  solve
  finish
  
  /post1
  set,last
  ples,s,eqv,2
