!Ermittlung der Potentialverteilung
!eines Quaders mit Riss
!Riss durch doppelte Knoten bei Z=0
!Vernetzung mit Quadern
!Schätzing 23.12.2021
finish $/clear
*abbr,riss,/input,riss,inp

!-----Parameter-----------
tief=10e-3         !Tiefe des Quaders y
hoch=20e-3         !Höhe
breit=20e-3        !Breite des Quaders x
ribr=7e-3          !RissBreite
strom=1000         !eingeprägter Strom
!-------------------
/prep7
et,1,solid231      !Quader 20 Knoten
!et,1,solid232     !Tetraeder 10 Knoten
mp,rsvx,1,1/56e6   !Kupfer

!----Geometrie------
/VIEW,  1, -0.3, -0.9,  0.28
/ANG,   1,   32
block,0,breit,0,tief,0,hoch/2,  !V1

!------Vernetzung----------
esize,1e-3
vmesh,all
vsymm,z,1     !Spiegelung
eplot

!--------Verbunden-(nicht Riss)---------
nsel,s,loc,z,0           
nsel,r,loc,x,ribr,breit  
nummrg,node              

!-----Lasten--Stromfluss in Z-Richtung--
nsel,s,loc,z,hoch/2
cp,1,volt,all
*get,node1,node,,num,min
f,node1,amps,strom 
nsel,s,loc,z,-hoch/2
d,all,volt,0
allsel 

!------Lösung-----
/solu
solve
!------Auswertung-----
/post1
/plopts,minm,0
plns,volt
*get,spannung,node,node1,volt
widerst=spannung/strom
!0.2123e-5

/eof

!-----Feldstärke----
/cont,,128,0,,0.12
plns,ef,sum