fini
/cle



a=0.1
b=0.1









/prep7



!-----------------Elementtyp und Materialdaten---------------

et,2,plane121

!Hauptisolation_Grundwickel_Spaltglimmer_Nutkeil
mp,perx,1,50
!IPS
mp,perx,2,1
mp,rsvx,2,1
!Blechpaket

rect,0,a,0,b
rect,0,a,b,2*b
aglue,all

asel,s,area,,1
aatt,1
asel,s,area,,3
aatt,2
allsel
esize,0.01
mshkey,1
mshape,0,2d
amesh,all




lsel,s,line,,1
nsll
cp,1,volt,all
*get,n2,node,,num,min
d,n2,volt,20000
alls


lsel,s,line,,7
nsll
d,all,volt,0
allsel



 /solu
antype,harm
harfrq,50

solve
/post1

set,1,1
nsel,s,node,,3
fsum


set,1,1,,1
nsel,s,node,,3
fsum