FINISH  	!Stoppen des vorherigen Projektes
/CLEAR,START	!Nuestart Ansys

/FIL,beisp14


!######## Parameter ##########
strom = 1
win = 100


/PREP7

ET,1,SOLID96
ET,2,SOURC36
ET,3,PLANE13

MP,MURX,1,1	!LUft
MP,MURX,2,2000	!Eisen

*DIM,a,array,2,1,1,,,,0
a(1)=1
a(2)=-1

!######## 2D #######
!-------- Geometrie ----------
RECT,-8,8,-10,10
RECT,-4,4,-6,6
RECT,4,8,2,3

AOVL,ALL	!scheidet aus der großen Fläche die kleinen aus
ADEL,4		!Löschen der Fläche im Inneren des Ankers

!-------- Netz --------------

ESIZE,1		!Standard Elementgröße
LESI,10,,,3	!3 Elementteilungen an Linie 10
LESI,12,,,3

TYPE,3		!Auswahl von Element 3

AMESH,3		!Vernetzen von Fläche 3 (Luftspalt)

ESIZ,2.2

AMESH,5		!Vernetzen von Fläche 5 (Anker)

!######## 3D #######
!-------- Geometrie ----------

KGEN,2,1,1,,,,-2
/PNUM,KP,1
KPLOT
/VIEW,,1,2,3
L,1,13,3

LESI,2,,,3
TYPE,1
VDRAG,ALL,,,,,,2

ACLEAR,ALL	!entfernen der Flächenelemente
NUMCMP,ELEM	!Zusammenschieben der Elementnummern
NUMM,KP		!Verbindet gleich definierte Keypoints, Linien, Flächen und Volumen
VLSCAL,ALL,,,1e-3,1e-3,1e-3,,,1		!Skallieren der Maße von m auf mm

VSEL,S,,,2,,,1	!selektieren des Ankervolumens
ESLV,S		!selektieren der zugehörigen Elemente
EPLOT

EMOD,ALL,MAT,2	!Änderen des Materials aller selektierten Elemente auf 2

ALLSEL		!Alles wird selektiert





CSYS,0
ETDELE,3

LOCAL,13,0,,,-7.5e-3
WPCSYS,1,13
BLC4,-2.5e-2,-2.5e-2,5e-2,5e-2,1.5e-2		
allsel
vovlap,all

MSHAPE,1,3D 
MSHKEY,0
TYPE,1
MAT,1

SMRT,1
vmesh,4

/ESHA,1		!Anzeigen der Spule bei EPLOT
/PNUM,MAT,1	!Anzeigen der Materialien
EPLOT


*DO,schritt,1,2,1
	/PREP7

	R,2,1,strom*win*a(schritt),2e-3,10e-3
	
	*ENDIF
	LOCAL,11,,-6e-3		!Erstellen und Aktivieren einens lokalen Koordinatensystems

	N,4900,4e-3
	N,4910,,,4e-3
	N,4920

	TYPE,2	
	MAT,3	
	REAL,2

	E,4900,4910,4920

	ALLSEL
	/SOLU
	SFA,4,,MXWF
	MAGSOLV,3

	ALLSEL
	/POST1
	PLVECT,B, , , ,VECT,ELEM,ON,0  				!Darstellen der Flussdichte als Vektor
	/UI,COPY,SAVE,EMF,GRAPH,COLOR,REVERSE,PORTRAIT,YES 	!Speichert das Bild mit negierten Hintergrundfarben in Ansyswork
	/wait,5
*ENDDO