/CLEAR
/PREP7 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Definition Balken!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
k,,0,0,0
k,,2000,0,0
k,,2000,500,0
k,,4000,0,0 
l,1,2   
l,2,4
ET,1,BEAM188
SECTYPE,   1, BEAM, CTUBE, , 0  
SECOFFSET, CENT 
SECDATA,50,65,0,0,0,0,0,0,0,0   

mp,ex,1,210000
r,1,1
esize,,5
type,1
lmesh,all
n,12,2000,500,0

/solu
antype,4
trnopt,full
lumpm,0
kbc,0
time,1
flst,2,1,1,orde,1
fitem,2,1
!!!!!!!!!!!!!!!!!!!!!!!!!!!! Definition Verschiebungen !!!!!!!!!!!!!!!!!!!!!!

d,1,all
d,2,uy,-60
cs,11,0,2,7,12 !!!!!!! CS sollte mit Knoten mitwandern !!!!!!!!!!
lswrite,1

time,2
csys,11
d,7,uy,-60
lswrite,2
csys,0
allsel,all
lssolve,1,2,1

!!!!!!!!!!!!!!!!!!!!!! Post !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/post1
set,last
plnsol,u,sum