finish
/clear

! Parameter
breit=40e-3
hoch=40e-3
lang=40e-3
rad=60e-3
strom=1
freq=50

/prep7
et,1,solid117		! AZ		Luft
et,2,solid117,1		! AZ, VOLT	Leiter
mp,murx,1,1
mp,murx,2,1
mp,rsvx,2,1/56e6

! Geometrie
/view,,1,2,3		! Blickwinkel

!block,-breit/2,breit/2,-hoch/2,hoch/2,0,lang
cylind,,rad/8,0,lang

cylind,,rad,0,lang
vovlap,all
! V1: Leiter;	V3: Luft

! Vernetzung-Leiter
lsel,s,loc,z,lang/2
lsel,r,loc,x,-breit/2,breit/2
!lesize,all,,,4
type,2
mat,2
esize,breit/30
mshape,1,3d	! Quader
mshkey,0	! mapped
vmesh,1

!---
type,1
mat,1
esize,lang/8
mshape,1,3d
mshkey,0
vmesh,3



! Randbedingungen
csys,1			! Zylinderkoordinaten
asel,s,loc,x,rad	! Umfangsflächen
da,all,az,0
asel,s,loc,z,0		! Stirnfläche vorn
asel,a,loc,z,lang	! Stirnfläche hinten
da,all,az,0

! Last
esel,s,mat,2
nsle
nsel,r,loc,z,0	! vorn
cp,1,volt,all	! Kopplung
*get,n1,node,,num,min
f,n1,amps,strom

esel,s,mat,,2		! Leiter
nsle
nsel,r,loc,z,lang	! hinten
d,all,volt,0


/solu
allsel
antype,harm
harfrq,freq
solve

/post1
/plopt,minm,off
set,1,1			! real

esel,s,mat,,2			! Leiter
etable,jtr,nmisc,15		! Stromdichtebetrag
pletab,jtr,avg			! Bildschirmausgabe
!---
set,1,1,,1
etable,jti,nmisc,15
pletab,jti,avg