- 积分
- 130
- 回帖
- 0
- 西莫币
-
- 贡献
-
- 威望
-
- 存款
-
- 阅读权限
- 10
- 最后登录
- 1970-1-1
该用户从未签到
|
Begin here:
A coil in air, axisimetric model, 1/4 model
COM,ANSYS MEDIA REL. 130 (09/30/2010) REF. VERIF. MANUAL: REL. 130
/VERIFY,VM207
/PREP7
SMRT,OFF
/TITLE,VM207, STRANDED COIL MODEL, CIRCUIT-FED OPTION
/COM, REF: BOAST "ELECTRIC AND MAGNETIC FIELDS", PG. 247, EQN. 12.18
ET,1,53,,,1 ! AIR
ET,2,53,3,,1 ! CIRCUIT-COUPLED STRANDED COIL
ET,3,110,,,1 ! FAR-FIELD
ET,4,124,0 ! EXTERNAL RESISTOR
ET,5,124,4,4 ! INDEPENDENT VOLTAGE SOURCE, PIECEWISE LINEAR LOAD
ET,6,124,5 ! STRANDED COIL (TO FEA DOMAIN)
R,2,2 ! 2 OHM RESISTOR
R,3,1 ! SYMMETRY FACTOR FOR COIL
EMUNIT,MKS
MP,MURX,1,1
MP,MURX,2,1
MP,RSVX,2,3.04878E-8 ! RESISTIVITY OF COIL
S=.02
N=500
R=3*S/2
N,1 ! CREATE NODES FOR CIRCUIT ELEMENTS
*REPEAT,4,1
RECTNG,S,2*S,0,S/2
PCIRC,0,6*S,0,90
PCIRC,0,12*S,0,90
AOVLAP,ALL
ASEL,S,AREA,,1
AATT,2,1,2
ASUM
*GET,A,AREA,,AREA ! AREA OF 1/2 COIL CROSS-SECTION
ASEL,S,AREA,,5
AATT,1,1,1
ASEL,S,AREA,,4
AATT,1,1,3
ASEL,ALL
CSYS,1
LSEL,S,LOC,X,9*S
LESIZE,ALL,,,1
ESIZE,,8
AMESH,4
*GET,A,AREA,,AREA ! AREA OF 1/2 COIL CROSS-SECTION
R,1,2*A,500,,1,.9
ASEL,S,AREA,,1
LSLA,S
LESIZE,ALL,,,5
LSEL,ALL
ASEL,ALL
CSYS,0
KSEL,S,LOC,X,0
KSEL,R,LOC,Y,0
KESIZE,ALL,S/5
AMESH,ALL
N1=NODE(S,0,0) ! GET A NODE ON THE COIL
TYPE,5 ! VOLTAGE SOURCE
R,4,0,12,.01,12,.010001,0 ! PIECEWISE LINEAR LOAD
REAL,4
E,2,1,4 ! VOLTAGE SOURCE ELEMENT
TYPE,4 ! RESISTOR
REAL,2
E,2,3 ! EXTERNAL RESISTOR ELEMENT
TYPE,6 ! STRANDED COIL (TO FEA DOMAIN)
REAL,3
E,3,1,N1 ! STRANDED COIL "ELEMENT"
ESEL,S,MAT,,2 ! GET COIL ELEMENTS
NSLE,S
CP,1,CURR,ALL ! COUPLE CURR DOF IN COIL
CP,2,EMF,ALL ! COUPLE EMF DOF IN COIL
*GET,ELM,ELEM,,NUM,MIN ! GET AN ELEMENT NUMBER IN THE COIL REGION
NSEL,ALL
ESEL,ALL
FINISH
/SOLU
ANTYPE,STATIC
TIME,1E-9
CSYS,1
NSEL,S,LOC,X,12*S
SF,ALL,INF ! APPLY INFINITE SURFACE FLAG
CSYS,0
NSEL,S,LOC,X,0
D,ALL,AZ,0
NSEL,ALL
D,1,VOLT,0 ! GROUND
SOLVE
FINISH
/POST1
SET,LAST
ESEL,S,MAT,,2 ! SELECT COIL ELEMENTS
ETABLE,RES,NMISC,8 ! STORE ELEMENT RESISTANCE
ETABLE,IND,NMISC,9 ! STORE ELEMENT INDUCTANCE
SSUM
*GET,CRES,SSUM,,ITEM,RES ! GET COIL RESISTANCE
*GET,CIND,SSUM,,ITEM,IND ! GET COIL INDUCTANCE
CRES=2*CRES
CIND=2*CIND
ESEL,ALL
FINISH
/SOLU
ANTYPE,TRANS
OUTRES,ALL,ALL ! STORE EVERY SUBSTEP
DELTIM,.0004
TIME,.01
SOLVE
FINISH |
|