/Units,MPA


!------PREP7-------
/Prep7
!------Variablen-------


!------Elementtyp-------
et,1,181 !181,99
r,1,5

Keyopt,1,11,0
Keyopt,1,8,1
/PLOPTS,DATE,0

LOCAL,11,0	!Lokales Koordinatensystem definieren = GLobalem
ESYS,11 	!Elementkoordinatensysteme ausrichten

!------Lagenaufbau-------
sectype,secnr,shell,,,
secdata,2,1,45,5
secdata,1,1,0,5
secdata,2,1,45,5
secoffset,MID
seccontrols,,,,,,,

!------Material--------
MP,EX,1,121480		![MPA]		E-Modul in RIchtung1
MP,EY,1,7630		![MPA]		E-Modul in RIchtung2
!MP,EZ,1,7630		![MPA]		E-Modul in RIchtung3
MP,PRXY,1,0.275		![]		Poisson vxy
MP,PRXZ,1,0.017		![]		Poisson vxz
MP,PRYZ,1,0.017		![]		Poisson vyz
MP,GXY,1,3250		![MPA]		Schubmodul
MP,GXZ,1,10		![MPA]		Schubmodul
MP,GYZ,1,10	![MPA]		Schubmodul
!MP,DENS,1,1351E-12	![t/mm^3]	Dichte: 1351 kg/m^3


!------Geometrie-------
rectng,0,50,0,50

!------Vernetzen-------
type,1
real,1
esize,5
amesh,all


!------Lösen-------
/Solution
lsel,s,loc,x,0
lsel,a,loc,x,50
sfl,all,pres,-800

lsel,s,loc,y,0
lsel,a,loc,y,50
sfl,all,pres,-250

ALLSEL,ALL
solve
FINISH

/Post1
RSYS,SOLU
SET,First

!------Maximal/Minimal Schubspannungsausgabe-------

*GET,nLayer,SHEL,1,Prop,NLAY

*do,i,1,nLayer,1
Layer,i
ETABLE,Versuch,S,XY
ESORT,Etab,Versuch
*GET,maxEv%i%,sort,,max
*GET,maxEn%i%,sort,,imax
*GET,minEv%i%,sort,,min
*GET,minEn%i%,sort,,imin
!*Get,maxCoordX%i%,ETAB,10,Elem,maxEni
!*Get,maxCoordY%i%,ETAB,11,Elem,maxEni
!*Get,maxCoordZ%i%,ETAB,12,Elem,maxEni
!*Get,minCoordX%i%,ETAB,10,Elem,minEni
!*Get,minCoordY%i%,ETAB,11,Elem,minEni
!*Get,minCoordZ%i%,ETAB,12,Elem,minEni
*enddo

!------Ausgabe-------
*CFOPEN,'ZZ_SXY','dat','D:\Technik\Arbeiten\Diplomarbeit\43\Balken'
*VWRITE,'Layer','Max_SXY','Elem_Nr','Min_SXY','Elem_Nr'
(a8,2Xa10,2Xa10,2Xa10,2Xa10)
*do,i,1,nLayer,1
*VWRITE,i,maxEv%i%,maxEn%i%,minEv%i%,minEn%i%
((f8.0),(f12.3),(f8.0),2X,(f12.3),(f8.0))
*enddo
*CFCLOS

!------Maximal/Minimal Schubspannungsausgabe-------

*GET,nLayer,SHEL,1,Prop,NLAY

*do,i,1,nLayer,1
Layer,i
ETABLE,Versuch2,S,X
ESORT,Etab,Versuch2
*GET,maxEv%i%,sort,,max
*GET,maxEn%i%,sort,,imax
*GET,minEv%i%,sort,,min
*GET,minEn%i%,sort,,imin
!*Get,maxCoordX%i%,ETAB,10,Elem,maxEni
!*Get,maxCoordY%i%,ETAB,11,Elem,maxEni
!*Get,maxCoordZ%i%,ETAB,12,Elem,maxEni
!*Get,minCoordX%i%,ETAB,10,Elem,minEni
!*Get,minCoordY%i%,ETAB,11,Elem,minEni
!*Get,minCoordZ%i%,ETAB,12,Elem,minEni
*enddo

!------Ausgabe-------
*CFOPEN,'ZZ_SX','dat','D:\Technik\Arbeiten\Diplomarbeit\43\Balken'
*VWRITE,'Layer','Max_SX','Elem_Nr','Min_SX','Elem_Nr'
(a8,2Xa10,2Xa10,2Xa10,2Xa10)
*do,i,1,nLayer,1
*VWRITE,i,maxEv%i%,maxEn%i%,minEv%i%,minEn%i%
((f8.0),(f12.3),(f8.0),2X,(f12.3),(f8.0))
*enddo
*CFCLOS

FINISH