fini

/clear
/prep7
/title,Druckbehaelter

!---------------------------------------------------------------------------------------------------------------------------------

CSYS,1								! Zylinderkoordinaten
*afun,deg							! Winkel im Bogenmaß

!---------------------------------------------------------------------------------------------------------------------------------


!---------------------------------------------------------------------------------------------------------------------------------

!	Knoten erzeugen
!=======================================


n,1,3,-20,0		
n,2,3,20,0		
n,3,3,20,2		
n,4,3,-20,2		
n,5,3,0,0		
n,6,3,20,1
n,7,3,0,2
n,8,3,-20,1	
n,9,3,20,4
n,10,3,-20,4
n,11,3,20,3
n,12,3,0,4
n,13,3,-20,3



!---------------------------------------------------------------------------------------------------------------------------------

!	Vernetzen
!=======================================


ET,1,shell281
E,1,2,3,4,5,6,7,8
E,4,3,9,10,7,11,12,13


!---------------------------------------------------------------------------------------------------------------------------------

!	Randbedingungen
!=======================================

NSEL,S,LOC,y,20
D,ALL,UY,0
D,ALL,ROTX,0
D,ALL,ROTZ,0

NSEL,NONE

NSEL,S,LOC,y,-20
D,ALL,UY,0
D,ALL,ROTX,0
D,ALL,ROTZ,0


alls

sf,all,pres,-0.1

!---------------------------------------------------------------------------------------------------------------------------------

!	Materialdaten
!=======================================

SECTYPE,1,shell,,LA_1
	SECDATA,.01,1,50,3,Layer1
	SECDATA,.01,1,-50,3,Layer2


MP,ex,1,3e5
MP,ey,1,3e5
MP,ez,1,3e5
MP,gxy,4e3
MP,gxz,4e3
MP,gyz,4e3
MP,nuxy,1,.20
MP,nuxz,1,.20
MP,nuyz,1,.20
MP,dens,1,7e

!---------------------------------------------------------------------------------------------------------------------------------

!	Lösung 
!=======================================

/solu

solve


----


/VIEW,  1,-1,1,1
/ANG,   1,1 
/PBC,ALL,,1 
/REPLO  

fini