/PREP7 
ET,1,SOLID186   
ET,2,MASS21
! 
/col,outl,0
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000 
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,7.85e-9  
!
!Volumenmodell erzeugen
!
CYLIND,20, ,-5,5,0,360,   
CYLIND,4, ,-20,20,0,360,
VSBV,       1,       2  
!
!Linien einteilen fuer Vernetzung
!
!Bohrungskanten
!
lesize,23,,,5
lesize,24,,,5
lesize,25,,,5
lesize,26,,,5
!
!Außenkanten
!
lesize,1,,,5
lesize,2,,,5
lesize,3,,,5
lesize,4,,,5
lesize,5,,,5
lesize,6,,,5
lesize,7,,,5
lesize,8,,,5
!
!Kanten_vertikal
!
lesize,21,,,2
lesize,22,,,2
lesize,9,,,2
lesize,10,,,2
!
!Vernetzen
!
vsweep,all
!
!Rigid Region setzen
!
N,10000,0,0,0,,,,   
!
! ab hier habs ich leider nur ueber GUI geschafft,
! aber es muesste trotzdem gehen
!
FLST,5,78,1,ORDE,10 
FITEM,5,307 
FITEM,5,-314
FITEM,5,335 
FITEM,5,-370
FITEM,5,372 
FITEM,5,-382
FITEM,5,461 
FITEM,5,-476
FITEM,5,478 
FITEM,5,-484
/NOPR   
CM,_NODECM,NODE 
*SET,_z1,   10000   
NSEL,S, , ,P51X 
NSEL,A, , ,_Z1  
CM,_CERGCM,NODE 
CMSEL,S,_NODECM 
/GO 
!*  
/NOPR   
CMSEL,S,_CERGCM 
/GO 
CERIG,10000,ALL,ALL, , , ,  
/NOPR   
CMSEL,S,_NODECM 
/GO