/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 AI
R GAP
NSEL,, LOC, X, 0
D, ALL, MAG, 0! SET FLUX-NORMAL BOUNDARY CONDITION
NSEL, ALL
p>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
This is a function with air Example of a permanent magnet with a gap!