/PREP7  
/Title, Vorbetrachtung


!----Elementtypen------
 
ET,1,PLANE53              ! Luft 
ET,2,Plane13,4              ! Blechstreifen

ET,3,Plane53,3            ! Spule

ET,4,Plane53              ! Kern (Eisen) 
ET,5,Plane53              ! Gehause(Alu)

!----Material-------

MP,MURX,1,1               ! Permeabilität (Luft)

MP,MURX,2,2000            ! Permeability (Blechstreifen)
MP,RSVX,2,70e-8           ! Define armature resistivity
MP,EX,2,,2.1e**11         ! E-Modul des Blechstreifen
MP,PRXY,2,,               ! Querkontraktionszahl = 0

MP,MURX,3,1               ! Permeability (Spulen)
MP,RSVX,3,3e-8            ! Widerstand der Spulen
MP,Kxx,3,1                ! Wegen Fehler eingefügt wie im BSP.

MP,MURX,4,1000            ! Permeability (Kern)

MP,Murx,5,1               ! Permeabilitaet (ALU)



!---Geometrie-----

/pnum,Area,1                            !Nummerierung der Areas   
  
BLC4,-50e-3,-5e-3,100e-3,45e-3          !Umgebende Luft     
BLC4,-20e-3,0,40e-3,35e-3               !Gehäuse
BLC4,-10e-3,10e-3,20e-3,25e-3           !Spule beide Seiten
BLC4,-5e-3,10e-3,10e-3,25e-3            !Kern
BLC4,-45e-3,36e-3,90e-3,0.5e-3          !Blechstreifen
BLC4,-20e-3,35e-3,40e-3,1e-3            !Luftspalt

AOVLAP,ALL                              ! Überschneidende Areas neu aufteilen
NUMCMP,AREA                             ! Compress out unused area numbers
APLOT                                   ! neu plotten



!----mesh-----

type,2 $mat,2            !Blechstreifen
esize,0.4e-3
amesh,4

type,1 $mat,1            !Luftspalt
esize,0.4e-3
amesh,5


type,3 $mat,3            !Spule
esize
amesh,2
amesh,3

type,4 $mat,4            !Kern
esize
amesh,1

type,5 $mat,5            !Gehaeuse
esize
amesh,6

type,1 $mat,1            !restliche Luft
SMRTSIZE,3 
amesh,7


/PNUM,MAT,1       ! NUmmerierung nach Material 
/REPLOT 




/eof




!ESEL,S,MAT,,4         ! Selection des Blech bzw. Material 4   
!CM,Blech,ELEM         ! Componente Blech erstellen

!FMAGBC,'BLECH'          
!ALLSEL,ALL

!----------Stromdichte in den Spulen----------


! Querschnitt einer Spule ist 5x25 mm
! als Stromdichte bei 100 Windungen und 8 A
! 100*8/(0.005*0.025)= 6.4e6  

!---- rechte Spule Wert Positiv

FLST,2,1,5,ORDE,1   
FITEM,2,2   
!*  
BFA,P51X,JS, , ,6400000,0   

!----linke Spule Wert negativ

FLST,2,1,5,ORDE,1   
FITEM,2,3   
!*  
BFA,P51X,JS, , ,-6400000,0  

!------Flux Parallel an der Aussenseite-------

allsel
lsel,s,ext
nsll,s,1
d,all,az,0