需要ansys分析永磁体的例子,哪位有的能不能给发一下,

需要ansys分析永磁体的例子,哪位有的能不能给发一下,

/PREP7
smrt,off
/TITLE,VM169,PERMANENT MAGNET CIRCUIT WITH AN AIR GAP
!MAGNETO-SOLID MECHANICS,MOON,PG.275
!USING TETRAHEDRAL SOLID ELEMENTS (SOLID98)
ET,1,SOLID98,10 !TETRAHEDRAL COUPLED-FIELD SOLID
EMUNIT,MKS !MKS UNITS
MP,MURX,1,1
MP,MURX,2,1E5 !IRON RELATIVE PERMEABILITY
MP,MURX,3,5.30504 !PERMANENT MAGNET RELATIVE PERMEABILITY
MP,MGXX,3,129900 !MGXX
MP,MGZZ,3,-75000 !MGZZ
LOCAL,11,0,30 !ROTATED LOCAL CARTESIAN SYSTEM
K,1
K,2,1.5E-2
K,3,2.5E-2
KGEN,2,1,3,1,1E-2
KGEN,2,4,6,1,2E-2
KGEN,2,7,9,1,1E-3
KGEN,2,10,12,1,1E-2
A,1,2,5,4 !CREATE AREAS
A,2,3,6,5
A,5,6,9,8
A,10,11,14,13
A,11,12,15,14
A,8,9,12,11
K,16,1E-2
L,1,16
VDRAG,1,2,3,4,5,6,20 !DRAG AREAS TO CREATE VOLUMES
VSEL,S,1
VATT,3 !SET MATERIAL ATTRIBUTES
VSEL,S,6
VATT,1
VSEL,S,2,3
VSEL,A,4,5
VATT,2
VSEL,S,1,5
ESIZE,1
MSHK,0 !FREE VOLUME MESH
MSHA,1,3D !USING TETS
VMESH,ALL
VSEL,ALL
VMESH,6 !MESH AIR GAP
NSEL,LOC,X,0
D,ALL,MAG,0 !SET FLUX-NORMAL BOUNDARY CONDITION
NSEL,ALL
WSORT,Y !REORDER WAVEFRONT
FINISH
/SOLU
MAGSOLV,2 !RSP METHOD
FINISH
/POST1
RSYS,11
/VIEW,6E-2,5E-2,6E-2
/EDGE,1,1
/DEVICE,VECTOR,1 !TURN ON WIREFRAME MODE
PLVECT,B !DISPLAY B VECTOR
/VSCALE,1 !SET FOR UNIFORM VECTOR SCALING
PLVECT,H !DISPLAY H VECTOR
ESEL,MAT,1 !SELECT AIR ELEMENTS
PRNSOL,B,COMP !PRINT B
NSORT,B,SUM
*GET,B1,SORT,MAX
PRNSOL,H,COMP !PRINT H
NSORT,H,SUM
*GET,H1,SORT,MAX
ESEL,MAT,3 !SELECT PERMANENT MAGNET ELEMENTS
PRNSOL,B,COMP !PRINT B
NSORT,B,SUM
*GET,B2,SORT,MAX
PRNSOL,H,COMP !PRINT H
NSORT,H,SUM
*GET,H2,SORT,MAX
*status,parm
这是一个具有空气间隙的永久磁体的例子!