!aus dem Forum von keyhoo2002
!Schätzing, 11.1.2015

fini
/clear
*abbr,keyhoo2,/input,keyhoo2,txt

l=100          ! Rohrlänge [mm]
tp=20           ! Plattenhöhe
tr=10 ! Stahlringdicke
r=150 ! Äußerer Radius außerer Stahlring
r1=30         ! Äußerer Radius innerer Stahlring !


E=210000
nu=0.3
Ecm=31900         ! E-Modul Beton [N/m^2]
fcm=33.0 
bfcm=3*fcm          ! einaxiale Druckfestigkeit Beton [N/m^2]
fctm=2.9          ! einaxiale Zugfestigkeit Beton [N/m^2]
nuc=0.2           ! Querdehn- bzw. -kontraktionszahl Beton [-]


z=5 !Anazhl Betonelemente in y-Richtung
y=2 !Anzahl Stahlelemente in y-Richtung
x=5 !Anazhl Elemente in Kreisrichtung
x=18
Pi=acos(-1) !PI
a=(pi*r)/(2) !Länge der Platte


ElGross=a/10 


/prep7
! --- GEOMETRIE --------------------------------------------------
!----- Platten-----
k,1,0,r,0
k,2,a,r,0
k,3,a,r,l
k,4,0,r,l
a,1,2,3,4

!-----äußerer Stahlring-----
cylind,r-tr,r,0,l/2,  0, 90
!-----Betonring-----
cylind,r1,r-tr,0,l/2,  0, 90
!-----innerer Stahlring-----
cylind,r1-tr,r1,0,l/2,  0, 90
vglue,all
numcmp,volu
!V1,3: Ringe   V2:Beton 
!-----Richtiges Vernetzen----
csys,1
lsel,s,loc,y,45
LESIZE,all, , ,x
lsel,all

lsel,s,loc,x,(r-tr+r)/2
lsel,a,loc,x,(r1-tr+r1)/2
LESIZE,all, , ,y
lsel,all

lsel,s,loc,x,(r1+r-tr)/2   !Beton
LESIZE,all, , ,z
lsel,all
csys,0
!------Material Stahl-----
vsel,s,,,1
vsel,a,,,3

et,2,SOLID185 !Element Stahl
mp,ex,2,E !E-Modul
mp,prxy,2,nu
!esize,ElGross
type,2 
mat,2

vmesh,all
vsel,all


!------Material Beton-----
vsel,s,,,2

et,1,solid65 !Element Beton
mp,ex,1,Ecm !E-Modul
mp,prxy,1,nuc !Querdehnzahl


type,1 !Zuweisung Element
mat,1 !Zuweisung Material
vmesh,all !Vernetzen
vsel,all

!-----------Lagerung---------------------------------------------
nsel,s,loc,x,0
d,all,ux,0

nsel,s,loc,y,0
d,all,uy,0

nsel,s,loc,z,0
d,all,uz,0
allsel

!/eof

! --- BELASTUNG ---------------------------------------------------
/solu

outres,all,all !gib alle resultate aus
autots,on
nsubst,5,20,3

versch=1.0    !Verschiebung
nsel,s,loc,y,r
d,all,uy,-versch
allsel
  solve


!---------------------------------------
/post1
/dscale,,1
pldi,2

!plns,s,eqv