! Command File mode of Beam - Rundrohr

finish   $/clear
*abbr,macnite3,/input,macnite3,txt


! Geometrie-Parameter
Lang = 300
Rad = 5					! Radius Querschnitt
wd=1  !WandDicke
N = 12					! Querschnitt unterteilt gradweise
T = 20					! Querschnitt unterteilt von innen nach außen
a = Lang/20				! Anzahl Nodes in Line = a+1


/Prep7					!Enter Preprocessor

ET,1,mesh200,7     !mit Seitenmittenknoten sonst mesh200,6
et,2,mesh200,11    !mit Seitenmittenknoten sonst mesh200,10

!------Geometrie-QuerschnittsFläche----------------
cyl4,0,0,rad-wd,  0,rad, 90
cyl4,0,0,rad-wd, 90,rad,180
cyl4,0,0,rad-wd,180,rad,270
cyl4,0,0,rad-wd,270,rad,360
aglue,all

!----Vernetzung--------
type,1
csys,1
lsel,s,loc,x,rad-wd/2
lesize,all,,,2     !Teiler WandDicke
lsel,s,loc,x,rad
lesize,all,,,n     !Teiler Umfang
mshape,0
mshkey,1
amesh,all

!------Extrusion-----
type,2
esize,,a
vext,all,,,,,lang
aclear,all         !HilfsElemente löschen
eplot