FINISH
/CLEAR,START
/UNITS,si
/CONFIG,nres,10000
/PREP7
/TITLE,6.3 BEAM3 CP transient
!SPALThoe=2000E-6
!--> Elementtypen, Materialeigenschaften, Konstanten
ET,1,BEAM3              !Amboss
MP,dens,1,7850
MP,ex,1,1E+11
MP,gxy,1,79.3E+9
R,1,0.1E-3,1,0.1E-3

!--> Geometrieerstellung
LOCAL,11,1,0,0,0           !Amboss
K,1,0,0,0                
K,2,48E-3,120,0
K,3,48E-3,120+21.2,0
L,1,2,1
L,1,3,1
LARC,2,3,1,48E-3
CSYS,0
LESIZE,3,,,20           

LOCAL,12,1,0,96E-3,0           !Sonotrode
K,101,0,0,0                
K,102,48E-3,240,0
K,103,48E-3,240-21.2,0
L,101,102,1
L,101,103,1
LARC,102,103,101,48E-3
CSYS,0
LESIZE,6,,,20  

!--> Vernetzung
TYPE,1     !Amboss
MAT,1
REAL,1
LMESH,1,6,1

CSYS,11
NSEL,s,loc,x,47.999E-3,48.001E-3
NSEL,r,loc,y,120,120+21.2
NSEL,a,node,,1
CSYS,0
CERIG,2,ALL,ALL, , , , 

CSYS,12
NSEL,s,loc,x,47.999E-3,48.001E-3
NSEL,r,loc,y,240-21.2,240
NSEL,a,node,,23
CSYS,0
CERIG,24,ALL,ALL, , , , 

allsel,all,all
EPLOT
FINISH

/SOLU
/DSCALE,all,1
ANTYPE,trans
NLGEOM,on 
TRNOPT,full 
AUTOTS,on

D,1,ux,0.0,0.0 
D,1,uy,0.0,0.0
D,23,ux,0.0,0.0  
D,23,uy,0.0,0.0

DT=0.01
*DO,I,1,100,1
TIMINT,on     !Zeitintegration (on), kann off gemacht werden bei statischen Anfangsbelastungen (extra LoadStep)
TIME,I*DT
D,2,rotz,-0.01*I
D,24,rotz,+0.01*I
KBC,1
SOLVE
*ENDDO
FINISH