FINISH
/CLEAR,START
/PREP7
L=10
K,1,0,0,,
K,2,L,0,,
LSTR,1,2
ET,1,BEAM188
SECTYPE,1,BEAM,RECT
SECOFFSET,CENT
SECDATA,0.1,0.1
ET,2,FOLLW201
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,200E9
MPDATA,PRXY,1,,0.3
ESIZE,,10
LMESH,ALL
D,1,ALL
!############################################################################
!# #
!# Follower force #
!# #
!############################################################################
NSEL,S,LOC,X,L,L
*GET,Loadnode,NODE,0,NUM,MAX
NSEL,ALL
R,201,0,1.0
REAL,201
TYPE,2
E,Loadnode
ESEL,S,ENAME,,201
*GET,followelem,ELEM,0,NUM,MIN
ALLSEL
SFE,followelem,1,PRES,1,100000
!#############################################################################
/SOLU
NLGEOM,ON
DELTIM,0.01,0.0001,0.1
OUTRES,ALL,ALL
SOLVE
FINISH
/POST1
/EFACET,1
PLNSOL, U,SUM, 0,1.0