FINISH
/CLEAR
/Title, IPE220 Fließzonenberechnung
L=5000	!STABL+AMQ-NGE
E=210000    !E-MODUL
QDEHN=0.3   !QUERDEHNZAHL
G=8100

/PREP7       !STARTEN PREPROCESSOR
!Material elastisch
MP,EX,1,E    !ZUWEISUNG MAT1 E-MODUL
MP,PRXY,1,QDEHN	!ZUWEISUNG MAT1 QUERDEHNZAHL
MP,DENS,1,7.8E-9 !Zuweisung Masse
MP,GXY,1,G   !ZUWEISUNG MAT1 SCHUBMODUL

!Material plastisch
!Material plastisch
TB,Bkin,1,
TBDAT,,460,
tbplot,bkin,1 !Grafische Darstellung Spannung/Dehnung


!DEFINITION DER ELEMENTE
ET,1,BEAM188    !DEFINITION ELEMENTTYP 1
!KEYOPT,1,1,1    !VERW+ANY-LBUNG EINGESCHALTET
SECTYPE,1,BEAM,MESH, !Einlesen des Querschnitts aus textdatei
SECOFFSET,CENT,,,   
SECREAD,'4Zellen','txt','.\Desktop\Studium\Master\Masterarbeit\Ansysy Versuchsrechnungen\',MESH
!*  

! Einlesen der Knotenpunkte

N,1,0,0,0,, ! Einlesen der Knotenpunkte ( optional mit Verdrehung)
!*DO,I,1,N_EL   !SCHLEIFENSTART
!N,I+1,400*I,0,0
!*ENDDO
N,2,100,0,0,,
N,3,800,0,0,,
N,4,1200,0,0,,
N,5,1300,0,0,,
N,6,1600,0,0,,
N,7,2000,0,0,,
N,8,2400,0,0,,
N,9,2600,0,0,,
N,10,2800,0,0,,
N,11,3200,0,0,,
N,12,3460,0,0,,
N,13,3600,0,0,,
N,14,4000,0,0,,
N,15,4400,0,0,,
N,16,4500,0,0,,
N,17,4600,0,0,,
N,18,4800,0,0,,
N,19,5000,0,0,,
N,20,5100,0,0,,
N,21,5200,0,0,,
!Nrotat,all

!Definition der Elemente
!*DO,I,1,12   !SCHLEIFENSTART
!E,I,I+1
!*ENDDO
E,1,2
E,2,3
E,3,4
E,4,5
E,5,6
E,6,7
E,7,8
E,8,9
E,9,10
E,10,11
E,11,12
E,12,13
E,13,14
E,14,15
E,15,16
E,16,17
E,17,18
E,18,19
E,19,20
E,20,21

!Zuweisen des Materials
Type,1
MAT,1
Real,1


!Vernetzen
ESIZE,,20
ALLS
MESH,ALL
/ESHAPE,1 !Als Volumenelement darstellen

/SOLU
!Auflagerbedingungen
D,1,UX,,,,,UY,UZ,ROTx
D,16,UY,,,,,UZ,ROTx

!Eigenspannung aufbringen
inistate,read,'EigenspannungIPE220','txt','.\Desktop\Studium\Master\Masterarbeit\Ansysy Versuchsrechnungen\',
! List the initial stresses
inistate,list
outres,all,all

!geometrisch nicht lineare Berechnung
 nlgeom,on
NROPT,AUTO,CRPL
Pstres,on
AutoTS,ON			!Lastzeitschrittautomatik
NSUB,100,1000,30			!nummer of supsteps,max. no. of supsteps,min. no. of supsteps
outres,all,all			!Ergebnisse der Zwischenschritte werden mitgeschrieben
PRED,ON				!Nummerischer Hilfe zur Interation