!   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.


!I) Einlesen der im letzten LS vor dem Restart gespeicherten Parameern, damit diese auch nach dem Restart in diesem LS nutzbar sind

PARRES,NEW,Pars_ 							!Läd die zuvor in LS1 mit PARSAV gespeicherten Parameter, damit diese nach dem Restart wieder verwendbar sind

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

!II) Definition des zweiten Lastschrittes, damit dieser seperat über das LSSOLVE-Command ausgeführt werden kann

!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 Bolzend (Ort der Lagerung für diesen LS)
D,BBEDGE,UY,0 								!Legt die untere Kante des Bolzens fest (Lagerung)


!Kraft Einpressmatrize oben
ALLSEL 									!Wählt alle Nodes aus

CMSEL,S,ETEDGE,NODE 							!Auswahl der Oberkante der Einpressmatrize
F,ETEDGE,FY,-90000							!Beaufschlagt die Oberkante der Einpressmatrize mit 90KN
DCUM,ADD 								!Relikt zum Merken, Rauskommentiert. Sorgt dafür, dass die nachfolgenden aufgebrachten Lasten die vorherigen nicht ersetzen, sondern diese überlagern


ALLSEL 									!Wählt alles aus

T2=T1NEU_+10 								!Berechnet die Zeit nach dem 2. LS fest (eine Sekunde nach Ende des 1. LS)
*STATUS,T2 								!Gibt die Zeit T2 nach dem zweiten LS aus
TIME,T2 								!Legt die Zeit nach dem 2. LS fest
LSWRITE,2 								!Schreibt den gerade definierten Lastschritt in eine Datei, von der aus er später geladen und gelöst werden kann.

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

!III) Lösen des zweiten Lastschrittes

LSSOLVE,2,2,1 								!Löst den zweiten LS
FINISH 									!Verlässt den Solution Processor

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

!IV) Prüfen, ob die Reaktionskräfte sich so verhalten, wie wenn die 90KN mit dem UI aufgeprägt wurden (wird die axialsymmetrie vernünftig angewendet?)

!Größtenteils übernommen aus LS1 Command-Block
/POST1 									!Wechselt in den Post-Processor
SET,2,LAST								!Setzt den aktuell betrachteten LS auf 2 (ggf. nicht nötig, da her momentan rauskommentiert)

FYSUM_=0

*DO,l,1,BBEDGENODENUMBER_,1 						!Schleife über die nodes, die die untere Kante ausmachen

	*GET,FYNODE_,NODE,BBEDGENODES_(l),RF,FY 			!Ermittelt die nodale Reaktionskraft in FY-Richtung für jede Node der unteren Kante und speichert sie in FYNODE_
	*STATUS,FYNODE_ 						!Gibt die Größe der Reaktionskraft an jeder Node zur Kontrolle aus (nicht nötig, nur zu Fehlersuche)
	FYSUM_=FYSUM_+FYNODE_ 						!Addiert die Reaktionskräfte der Nodes auf, um die Gesamtreaktionskraft zu ermitteln
	*STATUS,FYSUM_ !Fehlersuche

*ENDDO

REAKTIONSKRAFTCHECK_=FYSUM_ 						!Überträgt den ermittelten Wert der Gesamtreaktionskraft (eigentlich unnötig)
*STATUS,REAKTIONSKRAFTCHECK_ 						!Gibt den Wert der Gesamtreaktionskraft aus (sollte in diesem (2.) LS genau 90KN entsprechen!
/SOLU 									!Wechselt wieder in den /SOLU Processor, damit die Rechnung ordentlich beendet werden kann

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

/EXIT 									!Beendet die Berechnung