finish  
/clear  

/PREP7    ! Enter preprocessor  
K,1,0,0    ! Keypoints  
K,2,10000,0 
L,1,2      ! Connect keypoints with line
ET,1,BEAM3     ! Element type   
R,1,191082.80,4761904,437 ! Real constants   
MP,EX,1,210000  ! Young's modulus 
MP,PRXY,1,0.28    ! Poisson's ratio 
MP,DENS,1,7.85E-09    ! Density 
LESIZE,ALL,,,2  ! Element size  
LMESH,1    ! Mesh the line  
FINISH  
/SOLU      ! Enter solution phase   
!*  
ANTYPE,2
!*  
MSAVE,0 
!*  
MODOPT,REDUC,0  
EQSLV,FRONT 
MXPAND,0, , ,0  
LUMPM,0 
PSTRES,0
!*  
MODOPT,REDUC,0,0,1000,1000,OFF 
NSEL,S,,,2,3,          ! select nodes 2 - 11
M,All,UY, , ,            ! Define Master DOFs   
NSEL,ALL     ! Reselect all nodes   
D,1,ALL
F,3,FY,-500  
/output,Dynamik !(where filename is any name you desire)
solve   
/output