/prep7
! 
! Element type
! 
et,1,182
! 
! Keyopt(1) - 0 = full integration, 1 = uniform reduced integration
! 2 = enhanced strain
! 
!keyopt,1,1,0
!keyopt,1,1,1
keyopt,1,1,2
! 
! Keyopt(3) - 0 = plane stress, 2 = plane strain
! 
keyopt,1,3,2
! 
! Keyopt(6) - 0 = disp (u) formulation, 1 = mixed (u-p) formulation
! 
!keyopt,1,6,0
keyopt,1,6,1
! 
! Material properties
! 
mp,ex,1,1000.0
mp,prxy,1,0.499999
!
! Create nodes
!
n,1,0,0
n,2,2,0
n,3,2,3
n,4,0,2
n,5,0.4,0.4
n,6,1.4,0.6
n,7,1.5,2
n,8,0.3,1.6
!
! Create elements
!
e, 1, 2, 6, 5
e, 2, 3, 7, 6
e, 7, 3, 4, 8
e, 1, 5, 8, 4
e, 5, 6, 7, 8
!
! Apply displacements to the boundary nodes
!
d,1,ux,0.001
d,1,uy,-0.001
d,2,ux,0.005
d,2,uy,-0.005
d,3,ux,0.014
d,3,uy,-0.014
d,4,ux,0.007
d,4,uy,-0.007
fini
!
! Solve (Ku = f)
!
/solu
solve
fini
!
! Write out results
!
/post1
/output,plane182Patch,out
prnsol, u, comp
presol, s, comp 
presol, epel, comp
/output,,
fini