FINISH
/CLEAR

!parameter
breite = 0.025			!width of column [m]
hoehe = 0.003			!height of column [m]

length = 0.5 			!length of column [m]
eMaterial = 210e9

mass = 1.7898				!mass on top of the column [kg]

anz=10					!number of elements

p=8.4679

!preprozessor
/PREP7
!geometry

K,1,0,0
K,2,0,length

!lines
L,1,2

!number of elements
LSEL,s,length,,length
LESIZE,all,,,anz

ALLSEL
!element type
ET,1,BEAM188
MP,EX,1,eMaterial
MP,PRXY,1,0.3

!cross-section
SECTYPE,1,BEAM,RECT
SECDATA,hoehe,breite

!generate fe net
type,1
mat,1
LMESH,all

!mass element
ET,2,Mass21
Keyopt,2,1,0
KEYOPT,2,2,0
Keyopt,2,3,4

R,2,mass

!put on the mass
type,2
real,2
nsel,s,loc,y,length
*get,nodenr,node,0,num,max
E,nodenr

!Solution
/SOLU

ANTYPE,3


!constraints of DOF

D,all,UZ,0,,,,ROTX,ROTY			!system just in x and y

NSEL,s,loc,x,0
NSEL,r,loc,y,0
D,all,UY,0,,,,UX,ROTZ

NSEL,s,loc,y,length
D,all,UY,0,,,,ROTX,ROTY
ALLSEL


!apply force
f,2,fx,p

HARFRQ,3,10
NSUBST,7
KBC,1

SOLVE 
FINISH

!Post processor
/POST26
NSOL,2,2,U,X,UX
STORE,MERGE

PRVAR,2
PLVAR,2

FINISH