!Platte mit Loch
finish
/clear
*abbr,plalo2,/input,plalo2,txt
!Schätzing, 9.6.2009
!-----Parameter-----------
plaho=100e-3   !Platten_Höhe
plabrei=200e-3 !Platten_Breite
lorad=20e-3    !Loch-Radius
mw=plaho/20      !Maschen_Weite
!-------------------
/prep7     !Aufruf des Preprozessors
et,1,plane182      !Elementtyp
mp,ex,1,2.1e11     !E-Modul
mp,nuxy,1,0.3     !Materialeigenschaft
!----Geometrie------
rectng,-plabrei/2,plabrei/2,-plaho/2,plaho/2
pcirc,lorad
asba,1,2

!-----Vernetzung-------
esize,mw
amesh,all

!-----Randbedingungen----
nsel,s,loc,y,-plaho/2
d,all,uy,0
d,all,ux,0

!-----Last--------
nsel,s,loc,y,plaho/2
cp,1,uy,all
*get,n1,node,,num,min
f,n1,fy,-2e9
allsel     !alle Selektierungen aufgehoben
!---------Lösung---------
/solu      !Aufruf des Lösungsprozessors
solve
!---------Auswertung-----
/post1     !Aufruf des allgemeinen Postprozessors
/dscale,1,1
pldisp,2

!------Pfad-----
path,senkrecht,2,30,30
ppath,1,node,0,-plaho/2,0
ppath,2,node,0,+plaho/2,0
pdef,strx,s,x
pdef,stry,s,y
plpa,strx,stry
/pbc,path,1
!plns,s,int