FINISH
/CLEAR
/PREP7

!----PARAMETER
anz=84   !Anzahl der Werte

*dim,avlf,array,anz,4
*vread,avlf(1,1),Beschleunigungszeitverlauf,txt,,jik,4,anz,,1
(1f12.6,1f15.8,1f15.8,1f15.8)

!----ELEMENTTYPPE
et,1,beam44
sectype,1,beam,I
secdata,0.3,0.3,0.390,0.0013,0.0013,0.0011
mp,ex,1,210000
mp,dens,1,8.5
mp,prxy,1,0.3

!----GEOMETRIE
k,1,0,0,0
k,2,0,0,1
k,3,2,0,1
k,4,2,0,0

l,1,2
l,2,3
l,3,4

!----VERNETZEN
type,1
real,1
mat,1
lesize,all,,,10
lmesh,all

dk,1,all
dk,4,all

!----SOLU
/solu
 
antype,trans             
kbc,0 
outres,all,last      
solcontrol,on
nropt,full
autots,off  
pstres,on         


timint,off,struc    
acel,0,0,9.81
time,0.0001/3      
solve
lswrite,              
timint,on,struc

pstres,on 
*do,n,1,20,1 !anz
 time,avlf(n,1)
 acel,avlf(n,2), 1.0*avlf(n,3), 9.81+1.0*avlf(n,4)
 solve
*enddo

/eof