finish
/Clear,start

!Parameter_Start***************************************************************************
/fil,Test_Sector_Pret,1
/Title,Test_Sector_Pretension

*ask,prestress,Vorspannkraft [N],1500		
!Parameter_End*****************************************************************************

/prep7

!Material und Elemente_Start***************************************************************
!***Elementtyp***
ET,1,Solid186		

!***Material***
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,2.1e5
MPDATA,PRXY,1,,0.3  
MPDATA,DENS,1,,7.85e-9
!Material und Elemente_End*****************************************************************


!Geometrie_Start***************************************************************************
CSYS,1  
CLOCAL,11,0,45,0,0, , , ,1,1,
CSYS,1

cylind,30,60,-2.5,2.5,-22.5,22.5
cylind,40,50,-2.5,2.5,-12.5,12.5
VSBV,1,2

cylind,40,50,-2.5,2.5,-2.5,2.5
vglue,all
!Geometrie_End*****************************************************************************

!Vernetzung_Start**************************************************************************
cyclic				!diesen Befehl ausschalten und die Rechnung läuft, warum?

ESIZE,0.6,0,  
Vsweep,1
ESIZE,2,0,  
Vsweep,2

!vsel,s,volu,,1,1,1
psmesh,,pret1,,volu,1,11,x,0,,,,pretension1
CMSEL,s,pretension1
/replo
allsel,all,all
/replo
!Vernetzung_End***************************************************************************

/solu

!Solution_Start***************************************************************************
DA,4,All					
SLOAD,ALL,9,LOCK,FORC,prestress, 1,2

solve