finish

/clear



!ABBRES,NEW,'Startersatz','inp',C:\Users\DaWink

/title,cyclic_Modell_Gechwindigkeit



*afun,DEG

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



rD = 4             !Durchmesser Draht

rK = 0.3           !Durchmesser Kugel

ALP = 10           !Winkelabschnitt

vK = 60000          !Geschwindigkeit in mm/s

ANZ = 3             !Anzahl Kugeln



lD = rD*ALP*3.141/180            !Länge Drahtabschnitt



!***************Prepos



/prep7



etcon,set           ! allow ANSYS to choose best KEYOP's for 180x elements

et,1,solid186       !quadratische Hexader mit Mittelknoten

keyo,1,2,1          ! set full integration on SOLID186

et,2,solid187

et,10,mesh200,7     !Quadratisch mit Mittelknoten

et,11,mesh200,5



MP,DENS,1,7.85e-09,	! tonne mm^-3

MP,EX,1,206000,	! tonne s^-2 mm^-1

MP,NUXY,1,0.3,





MP,DENS,2,7.85e-09,	! tonne mm^-3

MP,EX,2,206000,	! tonne s^-2 mm^-1

MP,NUXY,2,0.3,





!*************Geometrie und Vernetzung



cylind,,11/12*rD,-lD/2,0,90-ALP/2,90

cylind,11/12*rD,rD,-lD/2,0,90-ALP/2,90

wpoffs,,rD+rK

wprota,,90

sphere,rK,,270,360



vglue,1,2



!************Vernetzung



N1=5    !Anzahl Einteilungen Tiefe

NS1=5   !SpaceRation zu N1

N2=5    !Anzahl Einteilungen Fläche



lesize,27,,,N1,1/NS1  !Oberes Drahtvolumen (Mapped Netz)

lesize,29,,,N1,1/NS1  !Oberes Drahtvolumen (Mapped Netz)

lesize,28,,,N1,1/NS1  !Oberes Drahtvolumen (Mapped Netz)

lesize,30,,,N1,1/NS1  !Oberes Drahtvolumen (Mapped Netz)



type,1

mat,1

real,1

esize,,N2

mshkey,2

vmesh,4



type,10

mshkey,0

smrtsize,8!,,2,2

amesh,4

mshcopy,area,4,5,1,,ALP/2

amesh,1

mshcopy,area,1,2,0,,,lD/2



type,2

vmesh,1



aclear,all