CURRENT CARRYING FERROMAGNETIC CONDUCTOR

songhancheng

CURRENT CARRYING FERROMAGNETIC CONDUCTOR.doc

hypo_qu

附件内容：

/COM,ANSYS MEDIA REL. 11.0 (10/27/2006) REF. VERIF. MANUAL: REL. 11.0
/VERIFY,VM165
/PREP7
SMRT,OFF
/TITLE, VM165, CURRENT CARRYING FERROMAGNETIC CONDUCTOR
C***           PRINCIPLES OF ELECTRIC AND MAGNETIC FIELDS, BOAST, PAGE 225
ET,1,PLANE13           ! 2-D COUPLED FIELD SOLID
ET,2,INFIN9            ! 2-D INFINITE BOUNDARY ELEMENT
EMUNIT,MKS             ! MKS UNITS
MP,MURX,1,1            ! SET RELATIVE PERMEABILITY FOR AIR TO 1
TB,BH,2                ! B-H CURVE FOR MATERIAL 2
TBPT,,150,.21          ! H AND B RESPECTIVELY
TBPT,,300,.55
TBPT,,460,.80
TBPT,,640,.95
TBPT,,720,1.0
TBPT,,890,1.1
TBPT,,1020,1.15
TBPT,,1280,1.25
TBPT,,1900,1.40
TBPLOT,BH,2
TBPLOT,NB,2
/wind,1,top
/wind,2,bottom
/gtype,1,grph,1
/gtype,2,grph,1
/gcmd,1,tbplot,bh,2
/gcmd,2,tbplot,nb,2
gplot
/wind,2,off
/wind,1,full
SF=.0254               ! SET CONVERSION (INCHES TO METERS)
CSYS,1
K,1
K,2,.3,-2.5            ! INNER RADIUS OF RING
K,3,.45,-2.5           ! OUTER RADIUS OF RING
K,4,.75,-2.5           ! OUTER RADIUS OF SURROUNDING AIR
KPSCALE,ALL,,,SF,,,,,1 ! MOVE ORIGINAL KEYPOINTS TO NEW POSITION
CSYS,0
L,1,2
LESIZE,1,,,5
L,2,3
LESIZE,2,,,6
L,3,4
LSYMM,2,ALL
NUMMRG,KP              ! MERGE KEYPOINTS
L,4,8                  ! DEFINE OUTER RADIUS LINE SEGMENT
LESIZE,7,,,1
TYPE,2
ESIZE,,,1
LMESH,7                ! MESH LINE SEGMENT (WITH BOUNDARY ELEMENT)
A,2,6,1,1
A,2,3,7,6
A,3,4,8,7
ASEL,S,AREA,,2
AATT,2                 ! ASSIGN MATERIAL 2 TO STEEL AREA
ASEL,ALL
ESIZE,,1               ! DEFAULT ELEMENT DIVISIONS=1
TYPE,1
AMESH,1,2
LDVA
AMESH,3
FINISH
/SOLU                  ! ENTER SOLVER
BFA,2,JS,,,438559      ! APPLY CURRENT DENSITY JS(Z)       
MAGSOLV
FINISH
/POST1
CSYS,1
NSEL,S,LOC,X,.325*SF
NSEL,A,LOC,X,.375*SF
NSEL,A,LOC,X,.425*SF
RSYS,1                 ! SET RESULTS C.S. TO CYLINDRICAL
PRNSOL,B,COMP          ! PRINT NODAL FLUX DENSITY
*GET,B1,NODE,21,B,SUM
*GET,B2,NODE,23,B,SUM
*GET,B3,NODE,25,B,SUM
*DIM,LABEL,CHAR,3,2
*DIM,VALUE,,3,3
LABEL(1,1) = '@ R=','@ R=','@ R='
LABEL(1,2) = '.325','.375','.425'
*VFILL,VALUE(1,1),DATA,.48,1.03,1.22
*VFILL,VALUE(1,2),DATA,B1,B2,B3
*VFILL,VALUE(1,3),DATA,ABS(B1/.48),ABS(B2/1.03),ABS(B3/1.22)
/COM
/OUT,vm165,vrt
/COM,------------------- VM165 RESULTS COMPARISON --------------
/COM,
/COM,B, TESLA
/COM,                 |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,'   ',F10.2,'  ',F10.2,'   ',1F5.3)
/COM,
/COM,-----------------------------------------------------------
/OUT
FINISH
*LIST,vm165,vrt

mandingo

好资料，谢谢分享