finish
/clear 
    
/TITLE, Dynamic Analysis
/FILNAME,Dynamic,0		! This sets the jobname to 'Dynamic'   
/PREP7				! Enter preprocessor

K,1,0,0 			! Keypoints
K,2,1,0 
L,1,2   			! Connect keypoints with line

ET,1,BEAM3  			! Element type
R,1,0.0001,8.33e-10,0.01	! Real constants

MP,EX,1,2.068e11		! Young's modulus
MP,PRXY,1,0.33  		! Poisson's ratio
MP,DENS,1,7830  		! Density

LESIZE,ALL,,,10 		! Element size
LMESH,1 			! Mesh the line

FINISH  
/SOLU   			! Enter solution phase

ANTYPE, TRANS			! Transient analysis
  
!TRNOPT,REDUC,		        ! reduced solution method
DELTIM,0.001			! Specifies the time step sizes

!-----------Daten einlesen-------------------------------------
*DIM,testin,ARRAY,6,4 
*VREAD,testin,'datei','txt',,jik,4,6
(4f10.2)
!Wert=testin(3,4)

!-----------Transiente Rechnung--------------------------------
!At time equals 0s
NSEL,S,,,2,11,		        ! select nodes 2 - 11
M,All,UY, , ,           	! Define Master DOFs
NSEL,ALL  			! Reselect all nodes
 
D,1,ALL			        ! Constrain left end
D,2,UY,0
!F,2,FY,-100			! Load right end
LSWRITE

!At time equals 1s
TIME,1				! Sets time to 1 seconds
KBC,1				! Ramped load step
!FDELE,2,ALL  			! Delete the load at the end
LSWRITE


!---------------Zeitschritte----------------------
t=2
n=1
*DO,I,1,5


TIME,t				! Sets time to t second
t=t+1
D,2,UY,testin(n,1)
n=n+1
KBC,1				! Ramped load step
LSWRITE


*ENDDO
!---------------Ende Zeitschritte-----------------
!At time equals 3s
TIME,3  			! Sets time to 3 second
KBC,1				! Ramped load step
LSWRITE

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


TIME,5 
FINISH  
/POST26 			! Enter time history

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

FILE,'Dynamic','rdsp','.'	! Calls the dynamic file
 
NSOL,2,3,U,Y, UY_2		! Calls data for UY deflection at node 2
STORE,MERGE  			! Stores the data
PLVAR,2,			! Plots vs. time




!/input,Dateneinlesen,inp