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=206000
V2=0.3

/prep7

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

et,1,plane182,,,2	!Elemente Grundkörper
et,2,plane182,,,2

et,3,conta171,,,2	!Kontaktelemente Draht/Kugel
et,4,targe169		

!-------------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
esize,0.3
amesh,1			!Vernetzung von Draht

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


!-----------KOntakte------------------------------------
lsel,s,,,1
nsll,s,0
type,3
real,3
esurf

lsel,s,,,4
nsll,s,0
type,4
esurf


!---------------Randbedingungen-------------------------

nsel,s,loc,y,0
d,all,all

nsel,s,loc,y,D1/2+D2/2
cp,1,uy,all

nsel,s,loc,y,D1/2+D2/2
d,all,ux,0
cm,ANG,node

allsel

!********************SOLUTION******************************

/solu
nlgeom,on
nsubst,10,10,10
outres,all,all


f,ang,fy,-10
solve

/post1

pldisp,2