/input,statisch,inp		!Statisches Modell laden

FINISH  
/SOLU  				!Datei einlesen


ANTYPE, TRANS			! Transient analysis  
TRNOPT, REDUC,		        ! full solution method
DELTIM,0.05
OUTRES,ALL,ALL


*DIM,Eingabe,ARRAY,6,4 			!Datei einlesen
*VREAD,Eingabe,'datei','txt',,jik,4,6	!Datei einlesen
(4f10.2)

M,ALL,ALL


TIME,1
KBC,1
LSWRITE



TIME,10
KBC,1

!D,593,UZ,10
LSWRITE
!t=1
!n=1
!*DO,I,1,5
!
!TIME,t
!KBC,1
!t=t+1
!
!n=n+1
!NSEL,S,,,593
!NSEL,A,,,597	
!NSEL,A,,,621	
!NSEL,A,,,624
!NSEL,A,,,611
!NSEL,A,,,616
!NSEL,A,,,601
!NSEL,A,,,606
!D,593,UZ,Eingabe(n,1)		!Knoten mit x=-1250 komplett festhalten
!LSWRITE
!ALLSEL

!*ENDDO


!--------------Lösung-------------------------

LSSOLVE,1,4,1       		! geht bis t=5-1

!--------------Postprocessing-----------------
FINISH  
/POST26 			! Enter time history

!DATA,1,1,1,1,123.dat,0

FILE,'Dynamic','rdsp','.'	! Calls the dynamic file

NSOL,2,593,U,Z, UZ_593		! Calls data for UY deflection at node 2
STORE,MERGE  			! Stores the data
PLVAR,2,			! Plots vs. time





!/input,INPUT,inp