!zwei unabhängige Spannungsquellen
!für Elektriker1
!Schätzing, 13.6.2010

finish
/clear

*abbr,zwei_u,/input,zwei_u,txt

breit=0.8e-3		
hoch=0.45e-3		
span1=50      !Spannung der Quelle1
span2=30      !Spannung der Quelle2

/prep7
et,1,plane230
mp,rsvx,1,1
et,2,circu124,4
r,2,span1
r,3,span2
!----Geometrie-----
rectng,0,breit,0,hoch

!----Vernetzung-----
esize,breit/32
amesh,all
	
!----Elektroden---------------
!-----unten-----
nsel,s,loc,y,0
nsel,r,loc,x,breit/3,breit/3*2
d,all,volt,0
*get,n1,node,,num,min

!-----oben-----
nsel,s,loc,y,hoch
nsel,r,loc,x,breit/3,breit/3*2
cp,1,volt,all
*get,n2,node,,num,min

!----links-----
nsel,s,loc,x,0
nsel,r,loc,y,hoch/3,hoch/3*2
cp,2,volt,all
*get,n3,node,,num,min

!----rechts-----
nsel,s,loc,x,breit
nsel,r,loc,y,hoch/3,hoch/3*2
cp,3,volt,all
*get,n4,node,,num,min

!----Quellen------
type,2   $real,2
e,n2,n1,n1
eplot
type,2  $real,3
e,n3,n4,n4
eplot

allsel
!--------Lösung------
/solu
solve
!------Auswertung------
/post1
esel,u,type,,2
plns,volt

/eof

allsel
presol,elem