FINISH  
/CLEAR,START
/input,start110,ans,'C:\Programme\ANSYS Inc\v110\ANSYS\apdl\',,,,,,,,,,,,,,,,1  
/go 
!
/TITLE,Torsionsversuch - UD0 Gelege - Schalenmodell Shell281
/FILNAME,Shear,0
/PREP7           																!Preprocessor starten  
/nerr,3,10000000                                                                !Fehlermeldungen
TOFFST,273         																!C-Skaleneinheit verwenden 
!   
!Parameter																		!Basiseinheiten: mm, ton, s -> N, MPa, N*mm  
!-------------------------------------------------------------------------------
*SET,l_g,200             														!Gesamtlänge des Probekörpers
*SET,l_m,100            														!Länge des Messbereichs
*SET,d_i,40+2																	!Innendurchmesser (+2 wegen Knoten in mid-plane)
*SET,s_l,2																		!globale Elementlänge
*SET,s_g,4																		!Elementlänge grob vernetzt
*SET,d_s,0.5																	!Schichtdicke der Einzellagen
!
!Elemente   
!-------------------------------------------------------------------------------
ET,1,SHELL281   
!  
KEYOPT,1,1,0
KEYOPT,1,8,2
KEYOPT,1,9,0
KEYOPT,1,10,0  
! 
!Material - UD 0° Gelege   														!bei Faservolumengehalt von 54,5% mittels Programm Compositor         
!-------------------------------------------------------------------------------    
MP,EX,1,11889 																	!entspricht E-Modul in Längsrichtung
MP,EY,1,41309																	!entspricht E-Modul in Umfangsrichtung
MP,EZ,1,11889 																	!entspricht E-Modul in Radialrichtung (=Laminatdickenrichtung)
MP,PRXY,1,0.28   
MP,PRYZ,1,0.28   
MP,PRXZ,1,0.35   
MP,GXY,1,4518 
MP,GYZ,1,4518 
MP,GXZ,1,1241
!
!Section
!-------------------------------------------------------------------------------
sect,1,shell,,Shear 
secdata, d_s,1,0,9
secdata, d_s,1,0,9   
secdata, d_s,1,0,9   
secdata, d_s,1,0,9
secoffset,MID  
seccontrol,,,, , , , 
!   
!Modellgenerierung  
!-------------------------------------------------------------------------------            
K,1,d_i/2,0,0
K,2,d_i/2,0,(l_g-l_m)/2
K,3,d_i/2,0,((l_g-l_m)/2+l_m)
K,4,d_i/2,0,l_g
K,5,0,0,0
K,6,0,0,l_g
!
LSTR,       1,       2  
LSTR,       2,       3  
LSTR,       3,       4   
AROTAT,ALL, , , , , ,5,6,360, , 
!
AGLUE,ALL
!
!Vernetzung
!-------------------------------------------------------------------------------
local,11,1,0,0,10,0,0,90
!
TYPE,1   
MAT,1
SECNUM,1 
ESYS,11
!
LSEL,S,LOC,Z,0,(l_g-l_m)/2
LSEL,A,LOC,Z,((l_g-l_m)/2+l_m),l_g
LSEL,U,LOC,Z,0
LSEL,U,LOC,Z,(l_g-l_m)/2
LSEL,U,LOC,Z,((l_g-l_m)/2+l_m)
LSEL,U,LOC,Z,l_g
LESIZE,ALL,s_g, , , ,1, , ,1, 
ALLSEL
!
ESIZE,s_l,0,  
MSHAPE,0,2D 
MSHKEY,1
!
AMESH,ALL
!
/psymb,esys,1
!/eshape,1,1
/VSCALE,1,5,0  
eplot
!
FINISH