!   Commands inserted into this file will be executed just prior to the ANSYS SOLVE command.
!   These commands may supersede command settings set by Workbench.

!   Active UNIT system in Workbench when this object was created:  Metric (mm, kg, N, s, mV, mA)
!   NOTE:  Any data that requires units (such as mass) is assumed to be in the consistent solver unit system.
!                See Solving Units in the help system for more information.

/SOLU

!I) Definition des 3. LS

LSDELE,1,3,1 								!SPÄTER BEARBEITEN: Löscht alle Loadstepfiles der ersten drei LS dieser Simulation (ggf. unnötig, durch Rumprobiererei vorhanden und soll nach späteren Tests entfernt werden, wenn dadurch die Funktion nicht gestört wird.
PARRES,NEW,Pars_ 							!Läd die Parameter aus dem letzten LS, damit sie auch in diesem vorhanden sind und genutzt werden können

!Lagerung Bolzen unten
ALLSEL 								!Wählt alles aus

KBC,0 									!Die Last wird Rampenförmig (mit der Zeit steigend) aufgebracht

CMSEL,S,BBEDGE,NODE 							!Auswahl der Unterkante des Bolzens (Ort der Lagerung für diesen LS)
D,BBEDGE,UY,0 							!Legt die untere Kante des Bolzens fest (Lagerung (Y-Richtung))
D,BBEDGE,UX,0 							!Lagerung in X-Richtung (vermutlich nicht nötig, da es keine Kräfte in X-Richtung geben sollte und das Berechnungsproblem axialsymmetrisch ist)
CMLIST,BBEDGE,1,NODE 						!Zeigt die ausgewählten Nodes an

!Heranfahren der Auspressmatrize
ALLSEL 								!Wählt alles aus

CMSEL,S,ABEDGE,NODE 							!Wählt die Nodes der Komponente ABEDGE aus (Unterkante der Auspressmatrize)
D,ABEDGE,UY,29.98 							!Prägt die Verschiebung auf, die die Auspressmatrize bis direkt vor die Nabe fährt.


ALLSEL 								!Wählt alles aus

T3=T2+30/1 								!Verfahrgeschw. 1 mm/s
*STATUS,T3 								!Gibt die Zeit T3 nach dem dritten LS aus
TIME,T3 								!Legt die Zeit nach dem Lastschritt fest
LSWRITE,3 								!Schreibt den gerade definierten Lastschritt in eine Datei, von der aus er später geladen und gelöst werden kann.
ALLSEL 								!Wählt alles aus

!-------------------------------------------------------------

!II) Lösen des 3. LS
PARSAV,ALL,Pars_ 							!Schreibt die genutzten und erstellten Parameter in eine Datei, die im nächsten LS (nach dem Restart) auch dort genutzt werden sollen

RESCONTROL,DEFINE,1,1,-1 						!Sorgt dafür, dass in jedem Substep des ersten LS ein Restartfile geschrieben wird (max999, dann überschreiben der ältesten), damit der Punkt unmittelbar for den 90KN als Restartpunkt verfügbar ist!
LSSOLVE,3,3,1 							!Lösten den dritten LS
FINISH 								!Verlässt den Solution-Processor

!-------------------------------------------------------------

!III) Übergang in den nächsten LS

/POST1 								!Geht in den Postprocessinf-Processor
SET,3 									!GGF. UNNÖTIG: Defaults zum letzten Substep im LS, wechselt dahin, um die Nummer des letzten SS im LS zu ermitteln
*GET,FINSS3_,ACTIVE,0,SOLU,NCMSS 					!Ermittelt Anzahl der Substeps für den LS
*STATUS,FINSS3_ 							!Gibt die Anzahl der SS im LS aus (entsprich der Nummer des letzten SS im LS)
/SOLU

ANTYPE,STATIC,RESTART,3,FINSS3_,ENDSTEP 				!Startet den LS im letzten SS neu und beendet diesen, damit es keine Probleme beim Übergang zum nächsten LS mehr gibt. Ja, das hört sich komisch an, aber sonst funktioniert es nicht :(

!-------------------------------------------------------------

/COM,---------------------------------------------------------
/COM,-------------------- LS3 SUCCESSFULL --------------------
/COM,-------------------- LS3 SUCCESSFULL --------------------
/COM,-------------------- LS3 SUCCESSFULL --------------------
/COM,---------------------------------------------------------

!/EXIT