!********************************* Vorbereitung *******************************************

FINISH  
/CLEAR,START

/config,nproc,1

/triad,ltop  					! Anzeigen des globelen KO-Systems im Display
/dev,font,2,times*new*roman,medium,r,14,,,,,   	! Manipulation der Anzeige im Fenster (z.B. Schrift)

/PNUM,LINE,1  					! Einschalten der Elementnummerierung und Farbkodierung im Plot (hier für Line)
/PNUM,KPOI,1  					! Einschalten der Elementnummerierung und Farbkodierung im Plot (hier für Keypoint)
/PNUM,area,1  					! Einschalten der Elementnummerierung und Farbkodierung im Plot (hier für Area)

/FILNAM,RFID_V2_1,1
/TITLE,	RFID Chip
/TRIAD,LTOP

!********************************* Pre-Processor ******************************************

/prep7

/graphics,full
et,1,plane42
et,5,solid45
et,2,conta173,,1,,,3,
  keyopt,2,5,3
  keyopt,2,9,0
  keyopt,2,10,2
  keyopt,2,12,3
et,3,targe170
et,4,conta173,,1,,,3,
  keyopt,4,5,3
  keyopt,4,9,0
  keyopt,4,10,2
  keyopt,4,12,0
mp,ex,1,169204
mp,ey,1,169204
mp,ez,1,130208					! E-Modul von Silizium 130 - 180 GPa (Hier 169000 N/mm2)
mp,dens,1,2330e-12				! Dichte in t/mm3
mp,prxy,1,0.06255				! Querkontraktionszahl (Poisson-Konstante)
mp,pryz,1,0.36129
mp,prxz,1,0.36129
mp,Gxy,1,50950
mp,Gyz,1,79600
mp,Gxz,1,79600
acel,,,9810					! 9810 mm/s2

mp,mu,2,0

! ---- Geometrie ----

hoehe   = 0.1
laenge  = 10
l_auf	= 4
breite	= 10

r_auf = 1
r_last = 25	! Joghurtbecher

netz_b = 5*breite
netz_l = 10*breite/2

Verschiebung = 0.51

! ---- Knotenpunkte ----

k,1,0,0,0
k,2,0,breite/2,0

! Balken
k,3,-laenge/2,0,-r_last+0.51
k,4,-laenge/2,breite/2,-r_last+0.51
k,5,0,breite/2,-r_last+0.51
k,6,0,0,-r_last+0.51

csys,5
! Schale unten
k,7,-r_last-hoehe,-90,0
k,8,-r_last-hoehe,-78,0
k,9,-r_last-hoehe,-78,breite/2
k,10,-r_last-hoehe,-90,breite/2
csys,0

! ---- Linien ----

! Balken
l,3,4,netz_l
l,4,5,netz_b
l,6,5,netz_l
l,3,6,netz_b

! Senke
l,10,7,netz_b
l,9,8,netz_b
larc,9,10,2,r_last+hoehe
larc,8,7,1,r_last+hoehe

lesize,7,,,netz_l
lesize,8,,,netz_l

! ---- Flächen ----

al,1,2,3,4
type,1
mat,1
amesh,1

type,5
mat,1
extopt,esize,3,0,
vext,1,1,1,,,-hoehe

esel,u,type,,1

asel,s,,,1
aclear,all
allsel

csys,5
al,5,6,7,8

numcmp,all
allsel
csys,0

! ---- Kontaktpaar Auflage - Chip

asel,s,,,2
nsla,s,1
r,2,,,1e-2,,,12
type,4
mat,2
real,2
esurf,,
allsel


type,3
real,2
mat,2
amesh,7
asel,s,,,7
esla,s,1
esurf,,reverse

allsel

! ---- Kontaktpaar Last - Chip

*get,nodenum,node,,num,max
last_li_start = nodenum + 1
last_li_end = nodenum + 2

tshape,cyli
r,3,r_last,,1e-2,,,12
type,3
mat,2
real,3
n,last_li_start,0,0,0.51
n,last_li_end,0,breite/2,0.51
e,last_li_start,last_li_end

*get,nodenum,node,,num,max
pilot_last_1 = nodenum + 1

n,pilot_last_1,0,breite/4,0.51
type,3
real,3
mat,2
tshape,pilo
e,pilot_last_1

allsel
asel,s,,,1
nsla,s,1
type,2
mat,2
real,3
esurf,

allsel

! ************************************************ Solution *********************************************************

/solu

asel,s,,,7
nsla,s,1
d,all,all

allsel

nsel,s,,,pilot_last_1
d,all,uy,0
d,all,ux,0

allsel

asel,s,,,5
nsla,s,1
d,all,ux,0

allsel

asel,s,,,4
asel,a,,,6
nsla,s,1
d,all,uy,0

allsel

D,pilot_last_1,UZ,-Verschiebung

allsel

! -- Für Statikanalyse --
antype,static,new
nlgeom,off

autots,on
nsubst,10,200,10
outres,all,all

SOLVE
save
fini
/config,nproc,1