finish
/clear

/title,mehrere Kugeln (starr) 2D
/filename,Mehrfacheindruck

!******************Variablen**********************

!Geometrie
D2=1		!Kugeldurchmesser
D1=6		!Drahtdurchmesser

!Material
E1=206000	!Emodul
V1=0.3		!Querkontraktionszahl
E2=300000
V2=0.3


!*****************Prep7******************************

/prep7

!--------------Elemente-----------------------------

et,1,plane182,,,2	!EbenerSpannungszustand
et,2,plane182,,,2
et,3,conta171,,,2	!Ebener Spannungszustand
et,4,targe169		!2D Zielkontaktfläche

!-------------Material------------------------------

mp,ex,1,E1
mp,nuxy,1,V1

tb,biso,1
tbdata,1,1200,E1/100

mp,ex,2,E2
mp,nuxy,2,V2

!----------Modellgenerierung

cyl4,0,0,,0,D1/2,180			!Kreis,x,y,Radius innen,Startwinkel,Radius außen, Endwinkel
cyl4,0,D1/2+D2/2,D2/2,180,,360

!----------Vernetzung-------------------------------

type,1
mat,1
real,1
esize,0.3
amesh,1			!Vernetzung von Draht

type,2
mat,2
real,2
esize,.1
amesh,2   		 !Vernetzung Kugel

!----Erstellung von Komponeneten--------------------

local,11,1              !Definition von KOS
local,12,1,,D1/2+D2/2

csys,11
esel,s,mat,,1
nsle
nsel,r,loc,x,D1/2
nsel,r,loc,y,60,120
cm,TARGET,node		!Kontaktknoten unterer Kreis

csys,12
esel,s,mat,,2
nsle
nsel,r,loc,x,D2/2
nsel,r,loc,y,240,300
cm,CONTACT,node		!Kontaktknoten oberer Kreis

csys,0
nsel,s,loc,y,0
cm,SLAVE,node		!Slave für Pilotknoten
allsel

*get,nmax,node,,num,max
PILOT_N=Nmax+1
n,PILOT_N
nsel,s,node,,PILOT_N
cm,PILOT,node		!Pilotknoten
allsel

cmlist,,1,node