FINISH
/CLEAR,NOSTART
/PREP7
L=10
E=200E9
K,1,0,0,,
K,2,L,0,,
LSTR,1,2,10
ET,1,BEAM188
SECTYPE,1, BEAM, RECT, , 0
SECDATA,0.1,0.1,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,E
MPDATA,PRXY,1,,0.3
LMESH,ALL
N,999,L+1,0,0
! Define surface-based constraint type of pair
MAT,1
R,3
REAL,3
ET,2,169
ET,3,175
KEYOPT,3,12,5
KEYOPT,3,4,1
KEYOPT,3,2,2
KEYOPT,2,2,0
KEYOPT,2,4,111
TYPE,2
! Create a pilot node
TSHAP,PILO
E,999
! Generate the contact surface
NSEL,NONE
NSEL,A,,,2
CM,_CONTACT,NODE
TYPE,3
ESLN,S,0
ESURF
*SET,_REALID,3
ALLSEL
/SOLU
D,1,ALL,0
*DIM,myload,TABLE,10,,,TIME
*DO,i,1,10
myload(i,0)=i
myload(i)=i*i*100
*ENDDO
*DO,i,1,10
TIME,i
F,999,FY,%myload%
SOLVE
*ENDDO
/POST26
FILE,'file','rst','.'
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191
FORCE,TOTAL
FORCE,TOTAL
!*
!*
ESOL,2,11,999 ,F,Y,FY_2
STORE,MERGE
VPUT,myload(1),2