/PREP7
/TITLE, 3D-Test
ANTYPE,STATIC

! Elementtypen
ET,1,SOLID45



! Material
MP,EX,1,10.4E6
MP,NUXY,1,.3



!Direkte Modelierung
!definiere Nodes
n,1,0,0,1.0000
n,2,1,0,1.0001
n,3,2,0,1.0002
n,4,3,0,1.0003
n,5,0,1,1.0000
n,6,1,1,1.0001
n,7,2,1,1.0002
n,8,3,1,1.0003
n,9,0,2,1.0000
n,10,1,2,1.0001
n,11,2,2,1.0002
n,12,3,2,1.0003
n,13,0,3,1.0000
n,14,1,3,1.0001
n,15,2,3,1.0002
n,16,3,3,1.0003

n,17,0,0,0
n,18,1,0,0
n,19,2,0,0
n,20,3,0,0
n,21,0,1,0
n,22,1,1,0
n,23,2,1,0
n,24,3,1,0
n,25,0,2,0
n,26,1,2,0
n,27,2,2,0
n,28,3,2,0
n,29,0,3,0
n,30,1,3,0
n,31,2,3,0
n,32,3,3,0



!definiere Elemente
e,1,2,5,17,18,21
e,2,6,5,18,22,21
e,2,3,6,18,19,22
e,3,7,6,19,23,22
e,3,4,7,19,20,23
e,4,8,7,20,24,23

e,5,6,9,21,22,25
e,6,10,9,22,26,25
e,6,7,10,22,23,26
e,7,11,10,23,27,26
e,7,8,11,23,24,27
e,8,12,11,24,28,27

e,9,10,13,25,26,29
e,10,14,13,26,30,29
e,10,11,14,26,27,30
e,11,15,14,27,31,30
e,11,12,15,27,28,31
e,12,16,15,28,32,31


!Bürste
!n,33,0,0,1.0004
!n,34,1,0,1.0004
!n,35,2,0,1.0004
!n,36,3,0,1.0004
!n,37,0,1,1.0004
n,38,1,1,1.0004
n,39,2,1,1.0004
!n,40,3,1,1.0004
!n,41,0,2,1.0004
n,42,1,2,1.0004
n,43,2,2,1.0004
!n,44,3,2,1.0004
!n,45,0,3,1.0004
!n,46,1,3,1.0004
!n,47,2,3,1.0004
!n,48,3,3,1.0004

!n,49,0,0,2
!n,50,1,0,2
!n,51,2,0,2
!n,52,3,0,2
!n,53,0,1,2
n,54,1,1,2
n,55,2,1,2
!n,56,3,1,2
!n,57,0,2,2
n,58,1,2,2
n,59,2,2,2
!n,60,3,2,2
!n,61,0,3,2
!n,62,1,3,2
!n,63,2,3,2
!n,64,3,3,2

!e,33,34,37,49,50,53
!e,34,38,37,50,54,53
!e,34,35,38,50,51,54
!e,35,39,38,51,55,54
!e,35,36,39,51,52,55
!e,36,40,39,52,56,55

!e,37,38,41,53,54,57
!e,38,42,41,54,58,57
e,38,39,42,54,55,58
e,39,43,42,55,59,58
!e,39,40,43,55,56,59
!e,40,44,43,56,60,59

!e,41,42,45,57,58,61
!e,42,46,45,58,62,61
!e,42,43,46,58,59,62
!e,43,47,46,59,63,62
!e,43,44,47,59,60,63
!e,44,48,47,60,64,63

ET,2,CONTAC52,,,,1     !3D-Point-Point-Contact

keyopt,2,1,0                                !Coulomb-Reibung
keyopt,2,3,0                                !keine schwache Feder im Spalt
keyopt,2,4,1                                !Anfangsabstand automatisch berechnen
keyopt,2,7,1                                !Voraussagen über vernünftige Schritte
mp,mu,2,1                                !Reibkoeffizient µ

r,2,11.5e13,,3,11.5e13

TYPE,2
REAL,2

!e,1,33
!e,2,34
!e,3,35
!e,4,36
!e,5,37
e,6,38
e,7,39
!e,8,40
!e,9,41
e,10,42
e,11,43
!e,12,44
!e,13,45
!e,14,46
!e,15,47
!e,16,48


FINISH

/SOLU
solcontrol,on,on                        !KEYOPT(7) aktiv


! Schleifring festhalten
NSEL,S,LOC,z,0
D,ALL,ALL


! seitliche Verschiebungen der Bürste verhindern
nsel,all
nsel,s,loc,z,2
d,all,ux,0
d,all,uy,0

! Anpressdruck
nsel,s,loc,z,2
nsel,r,loc,x,1,2
nsel,r,loc,y,1,2
SF,all,PRES,10

nsel,all
esel,all
allsel,all

SOLVE
FINISH