/com Simulation 2D de l'effet de peau : simulation du conducteur seul


/prep7

emunit,mks


/com entrees de programme pour la simulation
freq=1e6			! frequence de la simulation


et,2,plane13,6			! materiau conducteur
mp,murx,2,1
mp,rsvx,2,1.72e-8


/com declaration des dimensions
r1=0.001		! rayon du conducteur
x=5e-3

y=5e-3


/com placement des Kpoints
k,10,0,0
k,1,r1,0
k,2,0,r1
k,3,-r1,0
k,4,0,-r1


local,11,1,0,0,0,,0,,1,1	! coordonnees cylindriques
/com trace de l'aire
csys,11
a,1,2,3,4			! a1


asel,s,,,1			! materiau conducteur
aatt,2,,2


ksel,s,,,10
ksel,a,,,1
lslk,s,1
lesize,all,,,50


ksel,all
lsel,all
asel,all

smrtsize,1			! precision du maillage
amesh,all			! maillage de toutes les aires

asel,s,,,1,,,1
CP,1,volt,all
I=1
asum
*get,area,area,1,area
*get,N1,node,,num,min
F,N1,amps,I

allsel,all


nsel,s,ext
d,all,az,0

nsel,all
esel,all
finish

/solu

antype,harmic
harfreq,freq
solve

/post1
set,1,1


esel,s,mat,,2   
nsle
eplo
POWERH  

ETABLE, ,JT,SUM 
PLETAB,JTSUM,AVG