!vernetzung Denizcan
!Hohlzylinder mit Bohrung

finish
/clear
*abbr,Netz_Rohr,/input,Netz_Rohr,inp

!----Parameter------
Innen_R=4
Aussen_R=14
Hoehe=20

/Prep7
Et,1,solid45      !es ist auch mit der anderen solid elements versucht.
mp,ex,1,210000
mp,prxy,0.3

!----Geometrie-----
!rectng,Innen_R,Aussen_R,,Hoehe
rectng,Innen_R,Aussen_R,,Hoehe/2
K,10
k,11,,10
vrotat,all,,,,,,10,11,90,1
!cyl4,,10,4,360
cyl4,0,0,4,360
voffst,7,-20
vsbv,1,2

!-------Zerteilen------
block,0,innen_r,0,hoehe,0,-hoehe
vovlap,all   !V2,4,5
vdele,5,,,1

!------Vernetzung------
mat,1
type,1
meshkey,1
esize,innen_r/3
vmesh,all

!-----Spiegelung-----
vsymm,x,all
vsymm,y,all
vsymm,z,all
nummrg,kpoi
nummrg,node

/solu
antype,static

/com, Randbedingungen
asel,s,loc,y,-10
nsla,r,1
d,all,all
allsel,all
eplot

/com, Last angaben
Innen_Druck=5 !MPa
csys,5
asel,s,loc,x,Innen_R
nsla,r,1
sf,all,pres,5
allsel
eplot
allsel,all
save,Last

SOLVE