feap * * Beispiel Kragkalken
  0 0 0 2 2 4 
! 0 0 0 2D-3D DOFs/Knoten Knotenanzahl/Element 

global
 plane stress ! 2D-Spannungszustand

parameter
n1 = 6
n2 = 12
k  = 100
b  = 20
q  = 3.75       ! Maximum der Parabellast
E  = 200000     ! E-Modul
nu = 0.3        ! Querdehnzahl
d  = 1          ! Dicke

block           ! 4-Punkte-Block generieren: Kap. 5.2.3
 cart n1 n2     ! Kart. KOS_# Elem. vert._# Elem horiz.bv
  1    0   b    ! Punktnummer_x-Koordinate_y-Koordinate
  2    0  -b
  3    k  -b
  4    k   b

eboun           ! "Edge-Boundary-Condition": Kap. 5.4.2
 1 k 1 1

csurface        ! Kap. 5.5
  tangential, data ! Richtung_ data
  quadratic      ! Parabellast
  1, 0, b, 0.0   ! Anfangspunkt
  2, 0,-b, 0.0   ! Endpunkt
  3, 0, 0,   q   ! Mittelpunkt


mate 1
  solid
    elastic isotropic  E nu
    thick section d

end              ! Ende der Netzgenerierung und Materialdefinition

batch
  tangent
  form
  solve
!  disp,all       ! Daten ins O-File
!  stre all       ! Daten ins O-File
!  reac all       ! Daten ins O-File
end

batch
!   plot post ! schreibe den plot zwischen diesem "plot post"...
   plot mesh
   plot boun
   plot defo 400 1
   plot mesh
!   plot post
end

batch
   print
   disp,coor,2,0  ! Ausgabe Knotenverschiebung bei y=0 ins O-File
end

inter
stop