!Zylinder-Spule
!Schätzing	16.02.2001
!Görnandt	29.03.2001
!Schätzing  3.7.2008

finish
/clear
*abbr,spirale,/inp,spirale_3d,txt

!------Kenngrößen-----------------------
rad=30e-3		!Radius der Spule innen
breilei=10e-3		!Breite Leiter
holei=4e-3		!Höhe Leiter
spalt=1e-3		!Spalt zwischen zwei Leitern
wdg=5			!Spiralwindungen
winkel=360*(wdg-1)+340	!Spiralelänge in Grad
pi=3.14159265359

!------Modellerstellung---------------
/prep7
et,1,plane42
et,2,solid97
!/eof
!------Material Kupfer------------------
mp,rsvx,1,1/56e6
mp,murx,1,1
!-------Luft---------------------
mp,murx,1,1


!------SPULE/SPIRALE--------------------------
!------Keypoints und Linie für Spirale---------
csys,1
vteile=winkel/10	!alle 10 Grad ein Keypoint
*do,i,0,vteile
k,i+1,rad,10*i,5e-3*wdg*i/vteile
*enddo
*do,j,1,vteile
l,j,j+1
*enddo
!------Querschnittsfläche des Leiters-----------
csys,0
n,1000,0,0,0
n,1001,1,0,0
n,1002,1,0,1
cs,11,0,1000,1001,1002	!x --> x , z --> y , y --> -z
wpcsys,,11	!Arbeitskoordinatensystem
rectng,rad,rad+breilei,0,holei
!------Volumenelemente der Spirale---------------
csys,1
vdrag,1,,,,,,1
*do,i,0,(vteile-2)
vdrag,(i+1)*6-i,,,,,,i+2
*enddo

/eof

!--------Lufthülle----------------
csys,0
wpcsys,0
cylind,,rad*2,-spalt,(holei+spalt)*wdg+holei+spalt

vovlap,all

!------Vernetzungsparameter----------------------
k=2			!Teilung der Volumenelemente
type,2 $esize,,k
!------Vernetzung der Spirale------------------
vmesh,1,vteile,1

!-----------------------
mshkey,0
mshape,1,3d
vmesh,180

nummrg,node
nummrg,kp
eteile=vteile*k		!Elemente entlang gesamten Spiralweg
eplot