!Windung und Platte 3D
!3D-Modell
!Schätzing, 20,6,2008
!------------------------------------------------
finish  $/clear
*abbr,windung,/input,windung_platte_3d.txt

!------Parameter-----------------------
wiho=10e-3		!Windungs-Höhe
wiradin=40e-3		!Windungs-Radius innen
wiradau=50e-3		!Windungs-Radius außen
radau=100e-3		!Radius außen
strom=200
freq=1000
pladi=6e-3              !Platten-Dicke
plara=60e-3             !Platten-Radius
abst=2e-3               !Abstand Windung-Platte
!---------------------------
wikappa=56e6		!spez. el. Leitfähigkeit der Wicklungen
plakappa=10e6

!------Elementtypen------------------------------
/prep7			!Aufruf des Preprozessors
et,1,solid97,0		!Luft
et,2,solid97,1		!Windung
et,3,solid97,1          !Platte
!------Materialeigenschaften------------------------
mp,murx,1,1       	!Luft
mp,murx,2,1		!Wicklung
mp,rsvx,2,1/wikappa	!spez. el. Leitfähigkeit (Wicklung)
mp,murx,3,1             !Platte
mp,rsvx,3,1/plakappa

!------Geometrie------------------
!------Wicklung---------------
cylind,wiradin,wiradau,-wiho,0,  0,350
!-----Platte-----------------
cylind,0,plara,abst,abst+pladi
!------Luft--------
sphere,,radau,  0, 90   
sphere,,radau, 90,180   
sphere,,radau,180,270   
sphere,,radau,270,360   

vovlap,all             
numcmp,volu           
!V1,2,3,4:Platte, V5,6,7,8:Windung,  V9,10,11,12:Umgebung
!/eof

!-------Vernetzung Windung-------------
!esize,wiho/5  		!Maschenweite
type,2	$mat,2	  	!Windung
vmesh,5,8
!-------Vernetzung Platte-------------
!esize,pladi/5  	!Maschenweite
type,3	$mat,3	  	!Windung
vmesh,1,4

!------Vernetzung der Umgebung-------------
esize
mshkey,0		
mshape,1,3D		
type,1	$mat,1	
vmesh,9,12
	
!------Rand----------------------
nsel,s,ext
d,all,az,0
d,all,ax,0
d,all,ay,0

!------Lasten-----
!A5: Eintritt   A6: Austritt
asel,s,,,5
nsla,s,1
cp,1,volt,all
*get,n_ein,node,0,num,max
f,n_ein,amps,strom
!---------------------
asel,s,,,6
nsla,s,1
d,all,volt,0

!------LÖSUNG----------------------------------
/solu			
allsel			
antype,harm	
harfre,freq
solve

!-------------------
/post1
esel,s,mat,,3
ples,jheat