!aus dem Forum von UglyJoe
!Zweibandleitung
!Schätzing, 18.1.2012
!einfache Variante

finish
/clear
*abbr,uglyjoe1,/input,uglyjoe1,txt

!-----Parameter aus der Aufgabenstellung-----
h=20e-3     !BasisPlattenDicke
w=4e-3      !BandBreite
s=12e-3     !Bänderabstand
t=0.1e-3    !BandDicke
pot2=+1     !Potenzial rechter Leiter
pot1=-1     !Potenzial linker Leiter
epsr2=9.8   !Dielektrizitätszahl
tand=1e3    !Verlustfaktor

!-----Parameter gewählt-------
b=(2*w+s)*4          !BasisPlattenBreite
b=b*2
radin=b/2+10e-3      !Radius innen für Berechnungsbereich
radau=radin+60e-3    !Radius außen für Berechnungsbereich

!------------------------------
/prep7
et,1,plane121
mp,perx,1,1      !Permittivität Luft
mp,perx,2,epsr2  !Permittivität Basisplatte


!----Geometrie--------
pcirc,0,radin,-90, 90 !Berechnungsfläche
pcirc,0,radin, 90,270 !Berechnungsfläche

rectng,-b/2,b/2,0,-h  !Basisplatte

rectng,-w-s/2,-s/2,0,t  !linker Bandleiter
rectng,+s/2,+s/2+w,0,t  !rechter Bandleiter

aovlap,all
numcmp,area
!A1,2: Leiter,    A3,4:Basisplatte  
!A5,6: Luft
!/eof
!-----Vernetzung-----
type,1
mat,1
!esize,t
esize,w/4
amesh,1,2   !Vernetzung Leiter, später löschen

type,1
mat,2
esize,h/10
amesh,3,4   !Basisplatte

type,1
mat,1
esize,h/2
amesh,5,6   !Vernetzung Luft

!-----Potenzialzuweisung-----
asel,s,,,1  !linker Leiter
nsla,s,1
d,all,volt,pot1

asel,s,,,2  !linker Leiter
nsla,s,1
d,all,volt,pot2

!-----Elemente in Leiter löschen-------------

asel,s,,,1,2
aclear,all

!----Lösung-----
allsel
/solu
solve
!-----Auswertung-------
/post1
plnsol,volt

!-----Kapazität über Energie-------
!W=C/2*U**2
etable,energie,sene
pletab,energie,avg
ssum
*get,sumenergie,ssum,,item,energie
kapazi=2*sumenergie/((pot2-pot1)*(pot2-pot1))
!kapazität=52,25 pF/m  (53,31)