Finish
/Clear,start
!Parameter definieren:
*set,h,980       

*set,r0,40/2    
*set,r1,45/2   
*set,r2,50/2   
*set,r3,55/2   

*set,h0,0
*set,h1,(2/3)*1000
*set,h2,(1/3)*1000   

*set,ele,30*h/250
*set,gel,0.008
*set,rele,8 

*set,r4,(r3)-((r3)/8)
*set,h3,(h0)+((h2)/(ele/2.4))

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

/prep7       !Preprozessor starten

seltol,0.00001 

!Knoten erzeugen
k,101,-r0,h,0       
k,102,-r1,h1,0
k,103,-r2,h2,0
k,104,-r3,h0,0

k,105,0,h,0 
k,106,0,h1,0 
k,107,0,h2,0 
k,108,0,h0,0


k,109,-r4,h0,0
k,110,-r3,h3,0
k,111,-r4,h3,0
k,112,0,h3,0


spline,101,102,103,104

l,105,101
l,106,102
l,107,103
l,112,110
l,108,104

l,105,106
l,106,107
l,107,112
l,107,108

spline,101,102,103,110

l,111,112
l,109,108
l,111,109
l,112,108

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

al,13,6,11,7

al,16,14,17,15

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

!Elemente definieren:

!Beton
ET,1,SOLID186

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

!Vernetzen
Type,1         !Element festlegen
mat,1          !Material festlegen


lesize,1,,,ele/2.4,
lesize,2,,,ele/2.4,
lesize,3,,,ele/2.4,
lesize,9,,,ele/2.4,
lesize,10,,,ele/2.4,
lesize,12,,,ele/2.4,

lesize,13,,,(ele/2.4)-1
lesize,11,,,(ele/2.4)-1


lesize,4,,,rele,
lesize,5,,,rele,
lesize,6,,,rele,
lesize,7,,,rele,
lesize,8,,,rele,

lesize,14,,,8,
lesize,15,,,8,

lesize,16,,,1,
lesize,17,,,1,



vrotat,all,,,,,,105,106,360

vdele,18,,,1
vdele,3,,,1
vdele,10,,,1
vdele,15,,,1
vdele,9,,,1
vdele,14,,,1

vglue,all

vmesh,all