fini
/output,a
/cle
/output
/AUTO,1 		!U.M.>PlotCtrls>Pan Zoom Rotate><FIT>  oder rechts <Fit View>
			!Automatische Fensteranpassung
/REPLOT 		!U.M.>Plot>Replot
			!Ausführung des letzten Display-Kommandos

			!Einstellungen des Grafikbildschirms    			
/PLOPTS,INFO,1  		!U.M.>PlotCtrls>Window Controls>Window Options>INFO: Legend on  OK
			!Einschalten einer Bildlegende
  


			!1.	Modellerstellung
			!1.1	Voreinstellungen
KEYW,PR_SET,1		!M.M>Preferences> <Electric>    
KEYW,PR_ELMAG,1	!wird nur für GUI benötigt   
KEYW,MAGELC,1   
			
			!1.2	Parameter
			!Vereinbarung von Variablen und Konstanten und Zuweisung eines Startwertes
			!Eingabe direkt ins Eingabefenster oder über das Menü mit
			!U.M.>Parameter>Scalar Parameters> 



			!1.3	Geometrie
/prep7			!M.M.>Prep.>		!aktiviert den Preprozessor

b=50

RECTNG,-b/2,b/2,0,20,		!Isolator
RECTNG,-10,-6,20,20.1,		!Leiter1
RECTNG,10,6,20,20.1,		!Leiter2



/PNUM,AREA,1		!U.M.>PlotCtrls>Numbering>AREA: on <OK>
			!Nummerierung der Flächen
APlot			!Flächen darstellen	

		

FLST,2,3,5,ORDE,2   	!Flächen überlappend verbinden
FITEM,2,1   		!glue Befehl ging nicht (Prep->Modeling->Operate->Boolean->Glue->Areas
FITEM,2,-3   
AGlue,P51X 

NumCmp,all		!M.M.>Prep.>Numbering Ctrls>Compress Numbers:
			!Label: all <OK>
			!Verdichtet die Nummer aller Positionen, dient der Speicherplatzreduzierung vor allen
			!bei großen Anordnungen
APlot			!U.M.>Plot>Areas


			!1.4	Elementtyp

ET,1,plane121		!	    >Element Type>Add/Edit/Del.>
			!<Add> 	Electrotstatic	2D Quad 121
			!<Ok>:	Type 1	Plane 121 <CLOSE>

MP,perx,1,1
			!1.5	Materialeigenschaften
MP,perx,2,9.8		!M.M.>Prep.>Material Props>Material Models>
			!Electromag.: Rel. Permittivity: Const: PERX:  9.8 < OK>
			!Material: EXIT
			!Definiert lineare Dielektrizitätskonstante des Luftraums


			!1.6	Vernetzen
			!Die Vernetzung soll zuerst grob von Hand erfolgen. An der Stelle mit der größten 
			!Energiedichte, und zwar zwischen den Leitern sind die Elemente am dichtesten
			!zu legen. 	 
/PNUM,LINE,1		!PlotCtrls>Numbering>LINE: on OK
			!Schaltet die Liniennummerierung ein
LPlot			!U.M.>Plot>Line
			!Die Energiedichte des elektrischen Feldes ist im Luftraum an den Leitern

LESize,1,,,10
LESize,2,,,10,0.2
LESize,3,,,10,5
LESize,12,,,10,0.2
LESize,13,,,10,0.2
LESize,14,,,20		! von leiter 1 zu mitte abnehmend, ab mitte zu leiter 2 zunehmend ?!
LESize,4,,,10
LEsize,5,,,5
LESize,6,,,10
LEsize,7,,,5
LESize,8,,,10
LESize,9,,,5
LESize,10,,,10
LESize,11,,,5



FLST,2,4,4,ORDE,2   
FITEM,2,4   
FITEM,2,-7  
/GO 
!*  
DL,P51X, ,VOLT,-1   
		 	!FLIST,FeldTyp,Anzahl Linien,Typ,Anzahl Commands (wahrscheinlich)
			!Prep -> Loads -> Define Loads -> Apply -> Electric -> boundary  	
			!-> voltage -> on lines
			!Potential Leiter_links = -1V

FLST,2,4,4,ORDE,2   
FITEM,2,8   
FITEM,2,-11 
/GO 
!*  
DL,P51X, ,VOLT,1
			!Prep -> Loads -> Define Loads -> Apply -> Electric -> boundary
  			!-> voltage -> on lines
			!Potential Leiter_rechts = 1V


CM,_Y,AREA  		!Materialeigenschaften festlegen (Prep -> Meshing -> Meshtool -> Areas[set], dann werte festlegen)
ASEL, , , ,       3 	
CM,_Y1,AREA 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
AATT,       2, ,   1,       0,  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  

 
/pnum,mat,1 		!Materialeigenschaftsnummerierung aktivieren

amesh, all  		!Vernetzen

			!Leiter haben falsche Dielektrizitätszahl!?

/eof