Work File

Download as txt, pdf, or txt
Download as txt, pdf, or txt
You are on page 1of 8

FINISH

/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

You might also like