!aus dem Forum von Nichtlinearer-humanoide 
finish
/clear
*abbr,flaechen,/input,flaechen2,txt


a=1
b=a/10
/prep7
rectng,  0,a/2,  0,b
rectng,  0,a/2,  b,a-b
rectng,  0,a/2,a-b,a
rectng,a/2,a  ,  0,b
rectng,a/2,a  ,  b,a-b
rectng,a/2,a  ,a-b,a

!/pnum,area,1
!/pnum,line,1
!/number,2
aplot

aglue,1,2
aglue,3,7
aglue,4,5
aglue,7,6


numcmp,area
numcmp,line

!---Vernetzung----
et,1,mesh200,6
amesh,all

!---doppelte Knoten entfernen----
lsel,s,,,8
lsel,a,,,20
nsll,s,1
nummrg,node

lsel,s,,,2
lsel,a,,,14
nsll,s,1
nummrg,node

!/pnum,node,1
nplot

!-------Test------
et,1,plane13,3
mp,ex,1,210e9
mp,nuxy,1,0.3
mp,dens,1,7860
!----Randbedingung--
nsel,s,loc,x,0
d,all,all
nsel,s,loc,x,a
d,all,ux,a/10

allsel
!------Lösung----
/solu
solve
!----Auswertung----
/post1
/dscale,1,1
pldi