fini
/clear
/prep7

Di=700
Wanddicke=50
Beschichtung=0
LRohr=6300

DRohr=Di+Wanddicke*2+Beschichtung*2

ET,2,SOLSH190
MP,EX,2,89643					!Material FaserMatrix: CF-EP (anisotrop!!!)
MP,EY,2,27625  
MP,PRXY,2,0.283 
MP,GXY,2,9437  
MP,DENS,2,1.563e-9

mp,ex,3,50						!Materialdaten Gummibeschichtung
mp,prxy,3,0.49
mp,dens,3,1.3e-9

sect,1,shell,,CFK   
secdata, 5,1,90,3 
secdata, 10,1,45,3 
secdata, 10,1,-45,3
secdata, 25,1,0,3  
secoffset,BOT   
seccontrol,,,, , , ,

csys,1					!Zylinderkoordinatensystem

k,17,Di/2,45,LRohr/2			
k,18,Di/2,135,LRohr/2
k,19,Di/2,225,LRohr/2
k,20,Di/2,315,LRohr/2

k,21,DRohr/2,45, LRohr/2
k,22,DRohr/2,135,LRohr/2
k,23,DRohr/2,225,LRohr/2
k,24,DRohr/2,315,LRohr/2

l,17,18					
l,18,19
l,19,20
l,20,17

l,21,22
l,22,23
l,23,24
l,24,21

lesize,all,,,8									!Einteilung der Kreislinien 

l,17,21
l,18,22
l,19,23
l,20,24

lsel,s,loc,x,(Di/2+DRohr/2)/2
lesize,all,,,1
alls

al,1,5,9,10
al,2,6,10,11
al,3,7,11,12
al,4,8,12,9

vext,all,,,,,(-LRohr/2)

lsel,s,loc,z,0,LRohr/2				!Einteilen der Längslinien
lesize,all,,,40

!---------------------------------------------------
!**Vernetzen
!---------------------------------------------------

mshkey,1

!**AUSRICHTEN DER SCHALEN-ELEMENT-KOORDINATENSYSTEM AM GLOBALEN KARTESISCHEN KS
local,11,1,0,0,50,0,0,90
esys,11

type,2									!Vernetzen des Laminats und der KEEL-Außenschalen mit Solid Shell Elementen	
mat,2
secnum,2
vsweep,all
alls
/psymb,esys,1
/eshape,1,1
eplot