!---------------------------------------------------------
!   Biegebalken (fest-los) mit Einzellast in der Mitte
!---------------------------------------------------------

!Starten des Preprocessors
 /prep7

!Erzeugen der Keypoints
 k,1,0,0
 k,2,1,0
 k,3,2,0

!Erzeugen der Verbindungslinien
 l,1,2
 l,2,3

!Elementtyp
 et,1,3

!Optionen der Ergebnisausgabe
 keyopt,1,6,1
 keyopt,1,9,0

mp,ex,,2.1*10**8
mp,prxy,,0.3
r,,5*10**(-3),35*10**(-6),0.1,0
!Elementgröße und Vernetzen
 esize,1
 lmesh,all

!Lagerung
 nsel,s,loc,x,0
 d,all,uy
 nsel,all
 nsel,s,loc,x,2
 d,all,ux
 d,all,uy
 nsel,all

!Last
 nsel,s,loc,x,1
 f,all,fy,-5
 nsel,all

 finish
 /solu
 solve
 finish
 /post1

etable,mi,smisc,6
etable,mj,smisc,12

/wind,all,off
/wind,1,ltop
/wind,2,rtop

gplot

/gcmd,1,pldisp,1
/gcmd,2,plls,mi,mj

/replot
/eof