!Elektrostatik 3D
!für dresner83
!Schätzing, 4.4.2010

finish
/clear

*abbr,elektrostatik_3D,/input,elektrostatik_3D,txt

breitg=18e-3   !Breit Gesamt
breit1=12e-3
tiefg=18e-3    !Tief Gesamt
tief1=6e-3
fuge=1e-3
dick=3e-3
pot1=10		!Potenzial1
pot2=8		!Potenzial2
pot3=5		!Potenzial3

/prep7
et,1,solid122
et,2,mesh200,7   !Vernetzungshife
mp,perx,1,1
!----Geometrie-----
rectng,0,breitg,0,tiefg
rectng,breit1,breit1+fuge,0,tiefg
rectng,0,breitg,tief1,tief1+fuge
aovlap,all
!A12,   4,5,6,7:  Fugen
!----Vernetzung der Flächen-----
type,2
esize,fuge/4
amesh,12

amesh,4,7
esize,fuge
amesh,all

!----Flächen extrudieren-------
type,1
mat,1
esize,,4
vext,all,,,,,-dick
aclear,all
!----Elektroden---------------
!A8,9,10,11
nsel,s,loc,z,-dick
d,all,volt,0
!-----Elektrode1-----
asel,s,,,8
nsla,s,1
d,all,volt,pot1
!-----Elektrode2-----
asel,s,,,9
nsla,s,1
d,all,volt,pot2
!-----Elektrode3-----
asel,s,,,10
nsla,s,1
d,all,volt,pot3
!-----Elektrode4-nicht beschaltet----
asel,s,,,11
nsla,s,1
cp,1,volt,all

allsel
!--------Lösung------
/solu
solve
!------Auswertung------
/post1
/view,,-0.5,-0.7,0.4
plns,volt
/wait,1
plns,ef,sum
/wait,2
/ctype,1
plns,volt