!--- Kommentare ---

! Erst Geometrie erzeugen
! dann Temperaturen berechen
! danach Struktur berechnen

! Hier wird die Geometrie erzeugt


! 27.11.06

!--- Anfang ---

! -- Neustart
FINISH  
/CLEAR,START

! Datei- und Jobnamen definieren
/FILENAME,geometrie-G6,1

! Schriftgrösse anpassen
/dev,font,1,Courier*New,400,0,-16,0,0,,,
/dev,font,2,Courier*New,400,0,-16,0,0,,,

! Dateinamen einblenden
/PLOPTS,FILE,1  


! Preprozessor starten
/PREP7

! Einheiten setzen
/UNITS,SI


! -- Elemente definieren

! 3-D Structure Solid 
ET,1,SOLID45

! Materialeigenschaften
MP,EX,1,1.2E11
MP,PRXY,1,0.3
MP,DENS,1,7100
MP,ALPX,1,11e-6
MP,KXX,1,37
MP,C,1,600


CSYS,0

k,1,0.12375,0.002,-0.00325
k,2,0.12575,0,-0.00325
k,3,0.12375,0,-0.00325
k,4,0.07975,0,-0.00325
k,5,0.07775,0,-0.00325
k,6,0.07975,0.002,-0.00325
k,7,0.12375,0.007,-0.00325
k,8,0.13,0.007,-0.00325
k,9,0.13,0,-0.00325
k,10,0.072,0,-0.00325
k,11,0.072,0.007,-0.00325
k,12,0.07975,0.007,-0.00325

larc,1,2,3,0.002
l,2,3
l,3,4
l,4,5
larc,5,6,4,0.002
l,6,1

l,1,7
l,7,8
l,8,9
l,9,2

l,5,10
l,10,11
l,11,12
l,12,6

l,12,7

al,1,2,3,4,5,6
al,1,7,8,9,10
al,6,14,15,7
al,5,11,12,13,14

VOFFST,1,-0.00325

AFILLT,11,3,0.002
AFILLT,4,10,0.002
AFILLT,6,2,0.002

vdele,1

adele,3
adele,14
adele,16
adele,1
adele,21
adele,17
adele,20

aadd,7,8,9

ldele,12
ldele,13
ldele,44
ldele,15
ldele,6
ldele,8
ldele,9
ldele,53
ldele,43
ldele,37
ldele,1
ldele,46
ldele,5
ldele,38

l,5,28
al,1,28,48
l,2,35
al,5,11,35
al,42,45,1,4,3,2,5,52

aadd,1,2,3

adele,11
ldele,26
al,7,49,28,45

adele,10
numstr,area,10
al,11,36,14,52
numstr,area,1


va,1,4,5,6,7,10,12,13,15

VSYMM,Y,1,
VSYMM,Z,1,2

vadd,1,2,3,4

CSYS,1

k,76,0.128,5,-0.00325
k,77,0.128,5,-0.01125
k,78,0.0745,5,-0.01125
k,79,0.073,5,-0.00975
k,80,0.073,5,-0.01125
k,81,0.0715,5,-0.01125
k,82,0.071,5,-0.00325
k,83,0.071,5,-0.00825
k,84,0.066,5,-0.00825
k,85,0.066,5,-0.02375
k,86,0.064,5,-0.02375
k,87,0.07275,5,-0.02575
k,88,0.064,5,-0.02575
k,89,0.064,5,-0.02825
k,90,0.0375,5,-0.02825
k,91,0.032,5,-0.03275
k,92,0.032,5,-0.03575
k,93,0.07275,5,-0.03575

k,104,0.0745,5,-0.00325
k,105,0.128,5,-0.00525
k,106,0.0745,5,-0.00525
k,107,0.128,5,-0.00725
k,108,0.0745,5,-0.00725
k,109,0.128,5,-0.00925

l,92,91
l,91,90
l,90,89
l,89,88
larc,88,85,86,0.002
l,85,87
l,87,93
l,93,92

l,85,84
larc,84,82,83,0.005
l,82,104
l,104,76
l,76,105
l,105,107
l,107,109
l,109,77
l,77,78
larc,78,79,80,0.0015
larc,79,81,80,0.0015
l,81,87

l,104,106
l,106,108
l,108,79
l,105,106
l,107,108
l,109,79

al,8,9,10,12,13,17,18,19
al,17,22,23,24,38,55,56,35,37
aadd,1,2

al,38,25,26,57
al,55,57,30,59
al,56,59,31,60
al,32,33,34,60

k,94,0,0,0
k,95,0,0,0.01

vrotat,3,,,,,,94,95,-10
vrotat,1,,,,,,94,95,-10,5
vadd,1,2,3,4,5,6,7

vrotat,2,,,,,,94,95,-10,5
vadd,1,2,3,4,5,8

vrotat,5,,,,,,94,95,-10,5
vadd,1,2,3,4,5,6

vrotat,7,,,,,,94,95,-10,5
vadd,1,2,3,4,5,7

k,136,0.128,5,0.00575
k,137,0.07275,5,0.00575
k,138,0.07275,5,0.00325
k,139,0.128,5,0.00325
k,140,0.128,5,0.00775
k,141,0.07275,5,0.00775
k,142,0.128,5,0.00975
k,143,0.07275,5,0.00975

a,136,137,138,139
a,140,141,137,136
a,142,143,141,140

vrotat,28,,,,,,94,95,-10,5
vadd,1,2,3,4,5,6
vrotat,29,,,,,,94,95,-10,5
vadd,1,2,3,4,5,7
vrotat,30,,,,,,94,95,-10,5
vadd,1,2,3,4,5,6



! -- Vernetzung (erstmal grob für Testzwecke)

! Damit ein an den Symmetrieflächen identisches Netzmuster entsteht
CYCLIC

! Ansys wählt selbst den Tetrahedra Mesher 
MOPT,VMESH,DEFAULT 

! Identifies the level of tetrahedra improvement (1=default)
MOPT,TIMP,1

! ANSYS automatically creates transitional pyramid elements (on=default)
MOPT,PYRA,ON

! Mesh by ascending area size order (0=default)
MOPT,AORD,0

! Quad splitting option (1=default) 
MOPT,SPLIT,1

! Free meshing
MSHKEY,0

! Specifies placement of midside nodes (0=default)
MSHMID,0

! mesh with tetrahedral-shaped elements
MSHAPE,1,3D 

! Overall element size level for meshing 
smrtsize,10

! Volumen vernetzen
VMESH,7


! -- Alles speichern
SAVE,,,,ALL

! -- Geometrie-Datei schreiben  
CDWRITE,COMB,geometrie-G6,cdb,,,