Work File
Work File
Work File
/CLEAR,START
!---Title---
/TITLE,TEMBUE
/PREP7
et,1,PLANE13,0,0,0
et,2,13,6,0,0
et,3,13,6,0,0
KEYOPT,2,1,6
KEYOPT,2,2,0
KEYOPT,2,3,0
KEYOPT,2,4,0
KEYOPT,2,5,0
KEYOPT,3,1,6
KEYOPT,3,2,0
KEYOPT,3,3,0
KEYOPT,3,4,0
KEYOPT,3,5,0
EMUNIT,MKS
!Air
mp,rsvx,1,1.0e+20
mp,murx,1,1.0
!Wire
mp,rsvx,2,2.0e-08
mp,murx,2,1.0
mp,murx,3,1.0
mp,rsvx,3,2e-8
!SAVE,'1','db','D:\'
!RESUME,'1','db','D:\',0,0
!FINISH
!/INPUT,'_text','_txt','D:\',,0
!/eof
!--Input data--
I1=15
!f=56224.22 ! δ=0.3 mm
!f=5060.18 ! δ=1.0 mm
!f=1265.05 ! δ=2.0 mm
!f=202.41 ! δ=5.0 mm
f=50.60 ! δ=10.0 mm
!--Model sizes--
a=11/1000
b=10/1000
c=12/1000
d=18/1000
e=15/1000
l=a+b+c
h=d+e
!Delta=0.3/1000
!Delta=1/1000
!Delta=2/1000
!Delta=5/1000
Delta=10/1000
pk=60*3.1415926535/180
vx=cos(pk)
vy=sin(pk)
dx=vx*Delta
dy=vy*Delta
!---Grid---
!Wire
nx_x1_x2=20
nx_x1_x2n=-4
nx_x2_x3=20
nx_x2_x3n=-4
nx_x3_x4=20
nx_x3_x4n=-4
ny_y1_y2=20
ny_y1_y2n=-4
ny_y2_y3=20
ny_y2_y3n=-4
nz=20
nzn=-4
!Air
nx_x0_x5=40
nx_x0_x5n=-8
ny_y0_y4=40
ny_y0_y4n=-8
!---Coordinates---
x0=0.0
y0=0.0
!Wire
x1=x0+5*l
x2=x1+a
x3=x2+b
x4=x3+c
x21=x1+dx
x22=x2-dx
x23=x3+dx
x24=x4-dx
y1=y0+5*h
y2=y1+d
y3=y2+e
y21=y1+dy
y22=y2-dy
y23=y3-dy
!Air
x5=x4+5*l
y4=y3+5*h
!---Keypoints---
!Wire
k,1,x1,y1
k,2,x2,y1
k,3,x3,y1
k,4,x4,y1
k,5,x1,y2
k,6,x2,y2
k,7,x3,y2
k,8,x4,y2
k,9,x1,y3
k,10,x2,y3
k,11,x3,y3
k,12,x4,y3
k,17,x21,y21
k,18,x22,y21
k,19,x23,y21
k,20,x24,y21
k,21,x21,y22
k,22,x22,y22
k,23,x23,y22
k,24,x24,y22
k,25,x21,y23
k,26,x22,y23
k,27,x23,y23
k,28,x24,y23
!Air
k,13,x0,y0
k,14,x5,y0
k,15,x0,y4
k,16,x5,y4
!---Lines---
!Wire
lstr,1,2
lstr,5,6
lstr,9,10
lesize,all,,,nx_x1_x2,nx_x1_x2n
lstr,2,3
lstr,6,7
lesize,all,,,nx_x2_x3,nx_x2_x3n
lstr,3,4
lstr,7,8
lstr,11,12
lesize,all,,,nx_x3_x4,nx_x3_x4n
lstr,1,5
lstr,2,6
lstr,3,7
lstr,4,8
lesize,all,,,ny_y1_y2,ny_y1_y2n
lstr,5,9
lstr,6,10
lstr,7,11
lstr,8,12
lesize,all,,,ny_y2_y3,ny_y2_y3n
lstr,17,20
lstr,25,26
lstr,27,28
lstr,22,23
lesize,all,,,nx_x1_x2,nx_x1_x2n
lstr,22,26
lstr,17,25
lstr,23,27
lstr,20,28
lesize,all,,,ny_y1_y2,ny_y1_y2n
lstr,17,1
lstr,25,9
lstr,26,10
lstr,22,6
lstr,23,7
lstr,27,11
lstr,28,12
lstr,20,4
lesize,all,,,nz,nzn
!Air
lstr,13,14
lstr,15,16
lesize,all,,,nx_x0_x5,nx_x0_x5n
lstr,13,15
lstr,14,16
lesize,all,,,ny_y0_y4,ny_y0_y4n
!---Areas---
!Wire
a,1,9,25,17
a,9,10,26,25
a,10,6,22,26
a,6,7,23,22
a,7,11,27,23
a,11,12,28,27
a,12,4,20,28
a,4,1,17,20
a,17,25,26,22,23,27,28,20
!Air
a,13,15,16,14
asel,all
aplot
aovlap,all
NUMCMP,ALL
!---Mesh Attributes---
!Wire
ksel,s,,,25
ksel,a,,,9
ksel,a,,,17
ksel,a,,,1
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,25
ksel,a,,,26
ksel,a,,,9
ksel,a,,,10
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,22
ksel,a,,,26
ksel,a,,,6
ksel,a,,,10
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,22
ksel,a,,,23
ksel,a,,,6
ksel,a,,,7
lslk,s,1
asll,s,1
aatt,2,2,2
ksel,s,,,7
ksel,a,,,11
ksel,a,,,23
ksel,a,,,27
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,11
ksel,a,,,12
ksel,a,,,27
ksel,a,,,28
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,20
ksel,a,,,28
ksel,a,,,4
ksel,a,,,12
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,1
ksel,a,,,4
ksel,a,,,17
ksel,a,,,20
lslk,s,1
asll,s,1
aatt,2,1,2
ksel,s,,,17,28
lslk,s,1
asll,s,1
asel,u,mat,,1,9999
aatt,3,1,3
!Air
asel,all
asel,u,mat,,1,9999
aatt,1,1,1
/PNUM,KP,0
/PNUM,LINE,1
/PNUM,AREA,1
/PNUM,VOLU,O
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/PNUM,DOMA,0
/NUMBER,1
/PNUM,MAT,1
/REPLOT
asel,s,mat,,2
mshape,0,2d
mshkey,1
amesh,all
esel,all
nsel,all
eplot
asel,s,mat,,3
mshape,1,2d
mshkey,0
mopt,expnd,0.7
amesh,all
esel,all
eplot
asel,s,mat,,1,1
mshape,1,2d
mshkey,0
amesh,all
esel,all
nsell,all
eplot
/PREP7
!---Wire---
esel,s,mat,,2
esel,a,mat,,3
nsle
cp,1,volt,all
/SOLU
esel,s,mat,,2
esel,a,mat,,3
nsle
*GET,nmin,NODE,0,NUM,MIN
f,nmin,amps,I1,0
allsel,all
nsel,s,ext
nplot
d,all,,0,0,,,az
antype,harmic
nsubst,,
kbc,1
eqslv,sparse,1e-008
harfrq,f,f
allsel,all
solve
/POST1
!---Contour Plot---
SET,1,LAST,1,0
/DEVICE,VECTOR,0
PLNSOL, A,Z, 0
/EFACET,1
/DEVICE,VECTOR,1
PLNSOL, A,Z, 0
/DEVICE,VECTOR,0
SET,1,LAST,1,0, , ,
esel,s,mat,,2
esel,a,mat,,3
PLESOL, JT,SUM, 0
!---Power---
Esel,all
SENERGY
PLETAB,MG_ENG,NOAV
esel,s,mat,,2
esel,a,mat,,3
POWERH
PLETAB,PLOSSD,NOAV
!---Path---
PATH,first,2,30,20
PPATH,1,0,x1,y1+d/2,0,0,
PPATH,2,0,x4,y1+d/2,0,0,
PDEF,,B,SUM,AVG
PLPATH,BSUM
PLPAGM,BSUM,0.25,NODE
PRPATH,BSUM
PATH,second,2,30,20
PPATH,1,0,x2+b/2,y1,0,0,
PPATH,2,0,x2+b/2,y2,0,0,
PDEF,,B,SUM,AVG
PLPATH,BSUM
PLPAGM,BSUM,0.25,NODE
PRPATH,BSUM
SET,1,LAST,1,0, , ,
ETABLE,JTZr,JT,Z
SET,1,LAST,1,1, , ,
ETABLE,JTZi,JT,Z
SMULT,JTZr2,JTZR,JTZR,1,1,
SMULT,JTZi2,JTZI,JTZI,1,1,
SADD,JTZ2,JTZR2,JTZI2,1,1, ,
SEXP,AJTZ,JTZ2,JTZ2,0.25,0.25,
PLETAB,AJTZ,NOAV
PATH, first
PDEF, ,ETAB,AJTZ,NOAVG
/PBC,PATH, ,0
PLPATH,ETABAJTZ
PATH, second
PDEF, ,ETAB,AJTZ,NOAVG
/PBC,PATH, ,0
PLPATH,ETABAJTZ
/DEVICE,VECTOR,0
SET,1,LAST,1,0
PLVECT,JT,,,,VECT,ELEM,ON,0
SET,1,LAST,1,1
PLVECT,JT,,,,VECT,ELEM,ON,0
SAVE
PARSAV,SCALAR
/eof