feap * * Übung ebene Scheibe * *
  0 0 0 3 3 8
! 0 0 0 2D-3D DOFs/Knoten Knotenanzahl/Element 


parameter
n1 = 3		! Anzahl der Elemente
n2 = 2		! Anzahl der Elemente
n3 = 1
a  = 40		! Abmessung
b  = 50		! Abmessung
d  = 5		! Dicke
f  = 1		! Kraft F
E  = 1		! E-Modul
nu = 1/3.0		! Querdehnzahl

block			! Erzeugt einen Block mit kart-Koord
 cart n1 n2 n3 
  1    0   0   0	! Pkt. x-Koord. y-Koord.
  2    a   0   0	! Pkt. x-Koord. y-Koord.
  3    a   b   0	! Pkt. x-Koord. y-Koord.
  4    0   b   0	! Pkt. x-Koord. y-Koord.
  5    0   0   d
  6    a   0   d
  7    a   b   d
  8    0   b   d

eboun			! Randbedingungen
  1 0 1 1 1		! Richtung (x,y-Koord), Länge, DOF-x, DOF-y

cforce		! Knotenlast
  NODE a b/2.0 0 0 f/2 0	! NODE x-Koord. y-Koord. x-Kraft y-Kraft
  NODE a b/2.0 d 0 f/2 0

mate 1		! Materialkarte
  solid
    elastic isotropic  E nu
    

end			! Ende der Netzgenerierung

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

batch 
  disp,coor,1,0   ! Ausgabe der Verschiebung bei x=0
  stress,coor,1,0 ! Ausgabe der Hauptspannung bei x=0
  disp,node,1     ! Ausgabe der Spannungen für Knoten 1
  stress,node,1   ! Ausgabe der Spannungen für Knoten 1
end




batch
 plot pers,1
 plot,hide
end
0
100 100 100
0 0 1

inter			! Ausgabe auf den Bildschirm
stop