FINISH
/Clear,Start
/COM, Structural

/PREP7  

!Definition des Elements
!-----------------------------------------------------------
ET,1,SHELL63
R,1,7.0
R,2,5.0

ET,2,SURF154,,1
R,3,,,,,,,
! KEYOPT,2,2,1
! KEYOPT,2,4,0
! KEYOPT,2,6,0
! KEYOPT,2,7,0
! KEYOPT,2,11,0
! KEYOPT,2,12,0


!Sections
!-----------------------------------------------------------
!sect,1,shell,,Zylinder
!secdata,0.02,1,,1
!secoffset,mid

!sect,2,shell,,Kugel
!secdata,0.005,1,,1
!secoffset,mid

!Material
!-----------------------------------------------------------
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,7850E-12 
MPDATA,EX,1,,210000  
MPDATA,PRXY,1,,0.3  

!Aufbau der Geometrie
!-----------------------------------------------------------
K,1,10000,0,0,
K,2,10000,13000,0,
K,3,10000,15000,0,
K,4,0,20000,0,
K,5,0,0,0

l,1,2,
l,2,3,
LARC,4,3,2,12500,

AROTAT,1,2 ,3 , , , ,4,5 ,360, , 


!Meshen
!-----------------------------------------------------------
!Zylinder
!-----------------------------------------------------------
asel,s,loc,y,0,15000
type,1
mat,1
real,1
aesize,all,1000
mshape,0,2d
mshkey,1
amesh,all
asel,all

!Kugel
!-----------------------------------------------------------
asel,s,loc,y,15000,20000
type,1
mat,1
real,2
aesize,all,1000
mshape,0,2d
mshkey,1
amesh,all

asel,s,,, 3, 12, 3
esla, s
eplot

local, 11, 0
esys, 11
type, 2
real, 3
esurf
! local, 11, 0
Druck = 0.1
esys, 11
esel, s, type,, 2
sfe, all, 2, pres,,0.1,
allsel

! /inp
!Belastung
!-----------------------------------------------------------
!Fl�ssigkeitsdruck
! asel,s,loc,y,0,
! sfgrad,pres,,y,13000,12.3E-6*1.1
! sfa,all,,pres

!Schneelast mit SURF154-Elementen


!/PSF,PRES,2	!Sichtbar machen der Last
!ESEL,S,TYPE,,2
!SFE,ALL,5,PRES,,520E-6/392.7E6,0,-1,0

!Schneelast mit Einzellasten
!asel,s,loc,y,15000,20000
!nsla,,1
!*get,nodenum_,node,,count
!f,all,fy,-163360/nodenum_

!Eigengewicht
! ACEL,0,-9.81E3*1.35,0, 



!Lagerung
!-----------------------------------------------------------

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

! lsel,s,loc,y,0
! dl,all,,ux
! dl,all,,uy
! dl,all,,uz
! dtran


allsel
FINISH  
/SOL
/STATUS,SOLU
SOLVE

/POST1
/dscale,,1
PLDISP,2