/CLEAR 
/FILNAM,BEAM2BEAM Contact Simple Example
/prep7

et,1,188			!Elementtyp festlegen

kraft=(-10/11)

MP,EX,1,210e3			!Standardwerte von Stahl - E-Modul
MP, NUXY, 1, 0.3		!Querkontraktionszahl




K,1,0,0,0			!Startkeypoint erstellen
K,2,100,0,0
L,1,2

SECTYPE,1,BEAM,csolid,,0	!Vernetzung des Horizontalbalkens
SECDATA,2
SECOFFSET,CENT,,,   
Secplot,1
SECN,1
Lsel,s,line,,1
lesize,all,2.5		
lmesh,all

K,3,0,4,0			!Startkeypoint erstellen
K,4,100,4,0
L,3,4
Lsel,s,line,,2
lesize,all,2.5		
lmesh,all

et,3,170
!tb,fric,3,1,,iso
et,4,176		!3D-Line-to-Line

keyopt,4,3,0		!Crossing Beams
keyopt,4,10,2		
KEYOPT,4,12,6		!Contact Behavior
R,4,2,2,,,,		!Radien korresponideren mit den geometrischen Abstaenden

lsel,S,Line,,1
esll,s
type,3
real,4
esurf
type,4
esurf
allsel

lsel,S,Line,,2
esll,s
type,4
real,4
esurf
type,3
esurf
allsel


allsel				!Plotten					
/eshape,1
eplot,all

finsh


!-------------------
cncheck,trim

!------------------Solution

/solu
cncheck,trim
nsub,50,200


ksel,s,kp,,1
!ksel,a,kp,,2
ksel,a,kp,,3
!ksel,a,kp,,4
dk,all,all,0



lsel,s,,,2
nsll
*get,nodenum_,node,,count
f,all,fy,-10/nodenum_
allsel


solve