/PREP7  
/Title, Vorbetrachtung


!----Elementtypen------

ET,1,PLANE13,4            ! Luft und den Blechstreifen
ET,2,Plane13,2            ! Elementtyp für die Spulen
ET,3,Plane13              ! ET für den Kern (Eisen) und Gehause(Alu)


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

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

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,2000            ! Permeability (Blechstreifen)
MP,RSVX,4,70e-8           ! Define armature resistivity
MP,EX,4,,2.1e**6         ! E-Modul des Blechstreifen
MP,PRXY,4,,               ! Querkontraktionszahl = 0


/pnum,Area,1              !Nummerierung der Areas   
  
BLC4,-50,0,100,40         !Geometrie     
BLC4,-20,0,40,35
BLC4,-10,10,20,25   
BLC4,-5,10,10,25
BLC4,-50,36,100,0.5 
BLC4,-20,35,40,1 

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


!Selektion der Luft Areas (MP 1 und ET 1 Zuweisung)  

FLST,5,4,5,ORDE,3   
FITEM,5,4   
FITEM,5,-6  
FITEM,5,8   
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       1, ,   1,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  

!Selektion der Spulen Areas (MP 3 und ET 2 Zuweisung) 

FLST,5,2,5,ORDE,2   
FITEM,5,2   
FITEM,5,-3  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       3, ,   2,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  

!Selektion des Kern und Gehause Areas (MP 2 und ET 3 Zuweisung) 

FLST,5,2,5,ORDE,2   
FITEM,5,1   
FITEM,5,9   
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       2, ,   3,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1
  
!Selektion des Blechstreifens (MP 4 und ET 1 Zuweisung) 

CM,_Y,AREA  
ASEL, , , ,       7 
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       4, ,   1,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1   



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

! Mesh esrtellen mit 1 mm Gitterlänge
ESIZE,1,0,  
MSHAPE,0,2D 
MSHKEY,0
!*  
FLST,5,9,5,ORDE,2   
FITEM,5,1   
FITEM,5,-9  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  

! Scale von mm auf Meter wegen mks system für Magnete

FLST,2,9,5,ORDE,2   
FITEM,2,1   
FITEM,2,-9  
ARSCALE,P51X, , ,0.001,0.001,1, ,0,1
/replot

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

FMAGBC,'BLECH'          
ALLSEL,ALL

! Stromdichte in den Spulen
FLST,2,2,5,ORDE,2   
FITEM,2,2   
FITEM,2,-3  
!*  
BFA,P51X,JS, , ,3250000,0 

! Lagerung des Blechstreifen rechts und links an den Linien

FLST,2,2,4,ORDE,2   
FITEM,2,18  
FITEM,2,20  
!*  
/GO 
DL,P51X, ,ALL,0 

! Flux Parallel an der Aussenseite

FLST,2,10,4,ORDE,8  
FITEM,2,3   
FITEM,2,5   
FITEM,2,18  
FITEM,2,20  
FITEM,2,29  
FITEM,2,-32 
FITEM,2,35  
FITEM,2,-36 
DL,P51X, ,ASYM