finish  
/clear,start

LD=4	!Lochdurchmesser in mm
LAB=7	!Lochabstand in mm
LOCHANZAHL_LANG=6	!Gerade Zahl
DICKE=0.7

!-----------------------------------
/prep7
et,1,solid185
et,2,mesh200,6
!-------Material-----
EMAT=20
AMAT=30
!==================================================================!
! Alu        ======================================================!
!==================================================================!

mp,ex,AMAT,69000	! E-Modul in N/mm^2
mp,prxy,AMAT,0.334	! Querkontraktion

!==================================================================!
! Epoxid ==========================================================!
!==================================================================!

mp,ex,EMAT,3926.55	! E-Modul in N/mm^2
mp,prxy,EMAT,0.39	! Querkontraktion

!--------Geometrie---------
numstr,kp,100
numstr,area,100
numstr,line,100
rectng,0,LAB/2,0,LAB*sqrt(3)/4
cyl4,,,LD/2
asba,100,101,

lccat,101,102
type,2
esize,LAB/12
mshkey,1
mat,AMAT
amesh,102
ldele,100

arsym,x,all
arsym,y,all

numstr,area,130
numstr,line,130
numstr,kp,130
k,130,0,0,0
circle,130,LD/2,x

LDIV,130, , ,2,0
LDIV,131, , ,2,0
LDIV,132, , ,2,0
LDIV,133, , ,2,0

k,151,-LD/4,-LD/4,0
k,152,LD/4,-LD/4,0
k,153,LD/4,LD/4,0
k,154,-LD/4,LD/4,0

LSTR,151,152
LSTR,152,153
LSTR,153,154
LSTR,154,151 

LSTR,153,135 
LSTR,154,136 
LSTR,151,137 
LSTR,152,138 

numstr,line,150

al,145,137,130,142,139	!Fläche 130
al,142,134,131,143,140	!Fläche 131
al,143,135,132,144,141	!Fläche 132
al,144,136,133,145,138	!Fläche 133
al,138,139,140,141	!Fläche 134

lccat,130,137
lccat,134,131
lccat,135,132
lccat,136,133

csys,1
asel,s,loc,x,0,LD/2
csys,0
mat,EMAT
amesh,all

ldele,150
ldele,151
ldele,152
ldele,153

type,1
esize,,1 
vext,all,,,0,0,DICKE

ASEL,INVE
mat,AMAT
vext,all,,,0,0,DICKE

allsel

vgen,LOCHANZAHL_LANG/2,all, , ,LAB,0,0, ,0
vsel,s,loc,x,-LAB/2,LAB/2
vgen,LOCHANZAHL_LANG/2,all, , ,-LAB,0,0, ,0
vsel,s,loc,x,-LAB/2,LAB/2
vgen,2,all, , ,-2.5*LAB,LAB*sqrt(3)/2,0, ,0     
vsel,s,loc,y,-LAB*sqrt(3)/4,LAB*sqrt(3)/4
vgen,2,all, , ,LAB/2,LAB*sqrt(3)/2,0, ,0

k,1000000,(LOCHANZAHL_LANG)*LAB/2,LAB*sqrt(3)/4,0
k,1000001,(LOCHANZAHL_LANG-1)*LAB/2,LAB*sqrt(3)/4,0
k,1000002,(LOCHANZAHL_LANG-1)*LAB/2,-LAB*sqrt(3)/4,0
k,1000003,(LOCHANZAHL_LANG)*LAB/2,-LAB*sqrt(3)/4,0

k,1000004,-(LOCHANZAHL_LANG)*LAB/2,LAB*sqrt(3)/4,0
k,1000005,-(LOCHANZAHL_LANG-1)*LAB/2,LAB*sqrt(3)/4,0
k,1000006,-(LOCHANZAHL_LANG-1)*LAB/2,-LAB*sqrt(3)/4,0
k,1000007,-(LOCHANZAHL_LANG)*LAB/2,-LAB*sqrt(3)/4,0

asel,none

a,1000000,1000001,1000002,1000003
a,1000004,1000005,1000006,1000007

type,2
esize,LAB/13
amesh,all
type,1
esize,,1 
vext,all,,,0,0,DICKE
  
vsel,s,loc,y,-LAB*sqrt(3)/4,LAB*sqrt(3)/4
vgen,2,all, , ,0,2*LAB*sqrt(3)/2,0, ,0 
vsel,s,loc,y,-LAB*sqrt(3)/4,LAB*sqrt(3)*3/4
vgen,2,all, , ,0,-2*LAB*sqrt(3)/2,0, ,0 

vsel,s,loc,x,-3.5,3.5
vsel,u,loc,y,3,20
vsel,u,loc,y,-20,-3
vclear,all 

vsel,s,loc,x,-3.5,3.5 
vsel,u,mat,,20
vsel,u,loc,y,6.5,20
vsel,u,loc,y,-20,-6.5    
vclear,all 

asel,s,loc,x,-3.5,3.5
asel,u,loc,y,3,20
asel,u,loc,y,-20,-3
aclear,all 

asel,s,loc,x,-3.5,3.5 
asel,u,mat,,20
asel,u,loc,y,6.5,20
asel,u,loc,y,-20,-6.5    
aclear,all

vsel,s,loc,x,-3.5,3.5
vsel,u,loc,y,3,20
vsel,u,loc,y,-20,-3
vdele,all,,,1

vsel,s,loc,x,-3.5,3.5 
vsel,u,mat,,20
vsel,u,loc,y,6.5,20
vsel,u,loc,y,-20,-6.5  
vdele,all,,,1

lsel,none
asel,none
vsel,none

numstr,line,1000000 
numstr,area,1000000
recting,0,3.5,0,3.5,
cyl4,0,0,3.165,0, ,90
  
asba,1000000,1000001,
lccat,1000001,1000002

!esize,LAB/60
!mshkey,1
!mat,AMAT
!amesh,all
!ldele,1000000
!type,1
!esize,,1 
!vext,all,,,0,0,DICKE

!lsel,none
!asel,none
!vsel,none

numstr,area,1000050
numstr,line,1000050
recting,0,LAB/2,LAB/2,sqrt(3)/2*LAB,
cyl4,LAB/2,sqrt(3)/2*LAB,LD/2,180, ,270

asba,1000050,1000051,
lccat,1000050,1000053

type,2
esize,LAB/48
mat,AMAT
amesh,all
ldele,1000000
ldele,1000051
type,1
mshkey,1
esize,,1 
vext,all,,,0,0,DICKE

vsymm,x,all
vsymm,y,all
allsel

nummrg,node
nummrg,kp

asel,s,loc,x,-21
da,all,all,0

asel,s,loc,x,21
da,all,ux,2

allsel

/solution