/PREP7             
et,1,181               !Elementnr und Elementart
r,1,1                  !Gibt die Real-Werte für das Element 1 an z.B.Dicke...
mp,ex,1,2.1e5          !E-Modul für Stahl
mp,nuxy,1,0.3          !Querdehnungszahl
pcirc,,100,0,90        !Viertelkreis mit 100mm Radius im Punkt 0 und von 0-90Grad
ASEL,S,,,al+1,al+4     !Selektiert die Flächen
LSLA                   !Selektiert die zu den Flächen zugehörigen Linien
KSLL                   !Selektiert die zu den Linien gehörigen Knoten 
LESI,ALL,,,8           !Alle Linien erhalten 8-fache Unterteilung
ESHA,2                 !Lässt nur Viereckiege Elemente zu
AMESH,al+1             !Vernetzung dieser Fläche
ARSYM,Y,ALL            !Spiegelung in Y-Richtung (->oberer Halbkreis)
ARSYM,X,ALL            !Spiegelung in X-Richtung (->Vollkreis)
NummRG,all             !Beseitigt Doppel-knoten und Linien
C***NUMMRG,NODE            !Doppelknoten beseitigen Wird durch obere Zeile all ausgedrückt!
C***NUMMRG,KP              !Beseitigung von Mehrfachpunkten auf den Spiegelungsachsen
EPLOT                  !Gibt Elemente aus
fini                   !Verlassen des Preprozessors
/solu                  !Solutionprozessor
antype,static          !Statische Berechnung vor der Beul-Berechnung
PSTRES,ON              !Vorspannung mit einberechnen
D,all,Ux,0             !Keine Ahnung,ob das stimmt
D,all,Uy,0             !Keine AHnung, ob das Stimmt
sfl,all,pres,50         !Flächenlast (Druck) auf alle Punkte
solve
fini
/solu
antype,buckle,new      !Beulfunktion
Bucopt,lanb
solve
fini