- #1
s k gupta
- 5
- 0
Homework Statement
The problem is to model a permanent magnet with a torus core .I just wanted to know how to attach attribute of magnet to a volume in ansys 15.0. I solved the problem in 2D but in 3D the results are not satisfactory and I'm not able to point out the mistake by me. the construction could be assumed to be a regular torus core with a section of permanent magnet with Hc 100000 A/m. Just a basic BSUM static analysis would be fine. I think this would be sufficient if not kindly reply. thanking for your best efforts.
Homework Equations
take Hc=100000
The Attempt at a Solution
the solution was attempted for a cubical core in 3D with SOLID236 ELEMENT.
The generated log file is as below
/BATCH
/COM,ANSYS RELEASE 15.0 UP20131014 12:37:35 06/04/2015
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,1
KEYW,MAGNOD,1
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
/COM,
/COM,Preferences for GUI filtering have been set to display:
/COM, Magnetic-Nodal
!*
/PREP7
!*
ET,1,PLANE13
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,1,,1
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MGXX,1,,
MPDATA,MGYY,1,,1e6
MPDATA,MGZZ,1,,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,2,,1e6
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,3,,1
RECTNG,0,0.15,0,0.1,
*SET,al,0.2*0.15
*SET,cl,0.6*0.15
*SET,ct,0.01
*SET,lg,0.001
*SET,ch,0.03
*SET,mh,0.018
*SET,d,0.005
RECTNG,al,cl+al,0,ct,
RECTNG,al,0.04+al,ct,ct+ch,
RECTNG,al,0.04+al,ct,ct+ch,
FINISH ! Make sure we are at BEGIN level
/CLEAR,NOSTART ! Clear model since no SAVE found
/COM,ANSYS RELEASE 15.0 UP20131014 12:51:22 06/04/2015
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
!*
/NOPR
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,1
KEYW,MAGNOD,1
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
/GO
!*
!*
/PREP7
!*
ET,1,PLANE13
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,1,,1
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MGXX,1,,
MPDATA,MGYY,1,,1e6
MPDATA,MGZZ,1,,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,2,,1e6
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MURX,3,,1
RECTNG,0,0.15,0,0.1,
*SET,al,0.2*0.15
*SET,cl,0.6*0.15
*SET,ct,0.01
*SET,lg,0.001
*SET,ch,0.03
*SET,mh,0.018
*SET,d,0.005
RECTNG,al,cl+al,0,ct,
RECTNG,0.04+al,0.04+al+ct,ct,ct+ch,
APLOT
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
SAVE
FINISH
! /EXIT,NOSAV
/BATCH
/COM,ANSYS RELEASE 15.0 UP20131014 12:52:18 06/04/2015
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
RESUME
/COM,ANSYS RELEASE 15.0 UP20131014 12:52:21 06/04/2015
/PREP7
RECTNG,al+0.04-d,al+0.04+d,ct+ch+lg,ct+ch+lg+mh,
RECTNG,al+0.04,al+0.04+ct,ct+2*ch+lg*2+mh,ct+ch+2*lg+mh,
RECTNG,al,al+cl,ct+2*ch+lg*2+mh,ct+2*ch+2*lg+mh+ct,
RECTNG,al,al+cl,ct+2*ch+lg*2+mh,ct+2*ch+2*lg+mh+ct,
FLST,2,7,5,ORDE,2
FITEM,2,1
FITEM,2,-7
AOVLAP,P51X
FLST,5,4,5,ORDE,4
FITEM,5,3
FITEM,5,5
FITEM,5,8
FITEM,5,-9
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 4
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 10
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 3, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
SMRT,6
SMRT,2
MSHAPE,0,2D
MSHKEY,0
!*
FLST,5,6,5,ORDE,4
FITEM,5,3
FITEM,5,-5
FITEM,5,8
FITEM,5,-10
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FLST,2,8,4,ORDE,6
FITEM,2,2
FITEM,2,4
FITEM,2,-5
FITEM,2,23
FITEM,2,33
FITEM,2,-36
DL,P51X, ,AZ,0,
APLOT
CM,magnet,AREA
/UI,MESH,OFF
CM,coreupper,AREA
CM,corelower,AREA
CMSEL,S,CORELOWER
CMSEL,U,CORELOWER
/MREP,EPLOT
CMDELE,MAGNET
CMDELE,COREUPPER
CMDELE,CORELOWER
/MREP,EPLOT
ESEL,S,MAT,,1
APLOT
EPLOT
CM,magnet,ELEM
ALLSEL,ALL
APLOT
ESLA,S
EPLOT
ESLA,R
/REPLOT,RESIZE
APLOT
FLST,5,42,2,ORDE,4
FITEM,5,1
FITEM,5,-21
FITEM,5,69
FITEM,5,-89
ESEL,S, , ,P51X
EPLOT
CM,core,ELEM
ALLSEL,ALL
APLOT
!*
!*
FMAGBC,'CORE','MAGNET'
CMDELE,CORE
/MREP,EPLOT
FLST,5,30,2,ORDE,12
FITEM,5,1
FITEM,5,-4
FITEM,5,6
FITEM,5,8
FITEM,5,13
FITEM,5,-21
FITEM,5,69
FITEM,5,-72
FITEM,5,74
FITEM,5,76
FITEM,5,81
FITEM,5,-89
ESEL,S, , ,P51X
EPLOT
CM,core,ELEM
ALLSEL,ALL
APLOT
!*
!*
FMAGBC,'CORE','MAGNET'
FINISH
/SOL
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
SET,FIRST
!*
/VSCALE,1,1,0
!
!*
PLVECT,B, , , ,VECT,ELEM,ON,0
!*
/VSCALE,1,1,0
!
!*
PLVECT,FMAG, , , ,VECT,ELEM,ON,0
!*
/EFACET,1
PLNSOL, FMAG,SUM, 0
PLF2D,27,0,10,1
!*
PLESOL, FMAG,SUM, 0
!*
PRNSOL,FMAG,COMP
!*
!*
FMAGSUM,'CORE'
!*
!*
FMAGSUM,'MAGNET'
!*
/VSCALE,1,1,0
!
!*
PLVECT,H, , , ,VECT,ELEM,ON,0
!*
/EFACET,1
PLNSOL, H,SUM, 0
!*
/VSCALE,1,1,0
!
!*
PLVECT,FMAG, , , ,VECT,ELEM,ON,0
FINISH
! /EXIT,NOSAV
/BATCH
/COM,ANSYS RELEASE 15.0 UP20131014 14:34:44 06/04/2015
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
RESUME
/COM,ANSYS RELEASE 15.0 UP20131014 14:34:52 06/04/2015
APLOT
/PREP7
FLST,2,3,5,ORDE,2
FITEM,2,1
FITEM,2,-3
AOVLAP,P51X
RECTNG,al+cl-d,al+cl+d,ct+ch+lg,ct+ch+lg+mh,
RESUME, PM_core,db,
/COM,ANSYS RELEASE 15.0 UP20131014 14:37:55 06/04/2015
APLOT
FLST,2,3,5,ORDE,2
FITEM,2,1
FITEM,2,-3
AOVLAP,P51X
RECTNG,al+0.04-d,al+0.04+d,ct+ch+lg,ct+ch+lg+mh,
RECTNG,al+0.04,al+0.04+ct,ct+2*ch+2*lg+mh,ct+ch+lg+mh,
RESUME, PM_core,db,
/COM,ANSYS RELEASE 15.0 UP20131014 14:39:28 06/04/2015
APLOT
FLST,2,3,5,ORDE,2
FITEM,2,1
FITEM,2,-3
AOVLAP,P51X
RECTNG,al+0.04-d,al+0.04+d,ct+ch+lg,ct+ch+lg+mh,
RECTNG,al+0.04,al+0.04+ct,ct+2*ch+2*lg+mh,ct+ch+2*lg+mh,
RECTNG,al,al+cl,ct+2*ch+2*lg+mh,ct+2*ch+2*lg+mh+ct,
RECTNG,al,al+cl,ct+2*ch+2*lg+mh,ct+2*ch+2*lg+mh+ct,
FLST,2,7,5,ORDE,2
FITEM,2,1
FITEM,2,-7
AOVLAP,P51X
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,5,4,5,ORDE,3
FITEM,5,2
FITEM,5,-4
FITEM,5,8
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 9
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 3, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
SMRT,6
SMRT,2
MSHAPE,0,2D
MSHKEY,0
!*
FLST,5,6,5,ORDE,4
FITEM,5,1
FITEM,5,-4
FITEM,5,8
FITEM,5,-9
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
ESEL,S,MAT,,1
CM,magnet,ELEM
ALLSEL,ALL
ESEL,S,MAT,,2
EPLOT
ALLSEL,ALL
APLOT
FINISH
/SOL
FINISH
/PREP7
FLST,2,8,4,ORDE,8
FITEM,2,2
FITEM,2,4
FITEM,2,-5
FITEM,2,15
FITEM,2,-16
FITEM,2,25
FITEM,2,33
FITEM,2,-34
DL,P51X, ,AZ,0,
!*
!*
FMAGBC,'MAGNET'
FINISH
/SOL
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
!*
/VSCALE,1,1,0
!
!*
PLVECT,FMAG, , , ,VECT,ELEM,ON,0
SAVE
SAVE
APLOT
FINISH
/SOL
FINISH
/POST1
!*
/EFACET,1
PLNSOL, B,SUM, 0
PLF2D,27,0,10,1
!*
/EFACET,1
PLNSOL, FMAG,SUM, 0
FINISH
/PREP7
K,100,0,0,0.05,
klist,all,,,coord
l,1,100
LLIST,ALL, , ,
aclear,all
aplot
vdrag,all,,,,,,3
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/ANG,1,-30,YS,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
!*
ET,2,SOLID236
!*
!*
lplot
SAVE
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FLST,5,36,4,ORDE,27
FITEM,5,2
FITEM,5,23
FITEM,5,25
FITEM,5,29
FITEM,5,33
FITEM,5,-35
FITEM,5,37
FITEM,5,-38
FITEM,5,41
FITEM,5,43
FITEM,5,45
FITEM,5,-46
FITEM,5,49
FITEM,5,51
FITEM,5,53
FITEM,5,-54
FITEM,5,56
FITEM,5,58
FITEM,5,60
FITEM,5,63
FITEM,5,-66
FITEM,5,68
FITEM,5,-69
FITEM,5,71
FITEM,5,-72
FITEM,5,74
FITEM,5,-81
LSEL,S, , ,P51X
LPLOT
VPLOT
vlist, all
FLST,2,6,6,ORDE,2
FITEM,2,1
FITEM,2,-6
VOVLAP,P51X
FLST,5,4,6,ORDE,2
FITEM,5,2
FITEM,5,-5
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 2, , 2, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 1, , 2, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,VOLU
VSEL, , , , 6
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 3, , 2, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
MSHAPE,1,3D
!*
FLST,5,6,6,ORDE,2
FITEM,5,1
FITEM,5,-6
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
ESEL,S,MAT,,1
VPLOT
EPLOT
CM,magnet,ELEM
ALLSEL,ALL
LPLOT
VPLOT
FLST,2,5,5,ORDE,3
FITEM,2,28
FITEM,2,36
FITEM,2,-39
DA,P51X,AZ,0,
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,,-1
/ANG,1
/REP,FAST
FLST,2,5,5,ORDE,5
FITEM,2,12
FITEM,2,22
FITEM,2,-23
FITEM,2,34
FITEM,2,-35
DA,P51X,AZ,0,
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FINISH
/SOL
!*
!*
FMAGBC,'MAGNET'
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
SAVE
!*
/EFACET,1
PLNSOL, B,SUM, 0
PLF2D,27,0,10,1
!*
/VSCALE,1,1,0
!
!*
PLVECT,B, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/DIST,1,0.729,1
/REP,FAST
/DIST,1,0.729,1
/REP,FAST
/DIST,1,0.729,1
/REP,FAST
/DIST,1,0.729,1
/REP,FAST
/DIST,1,0.729,1
/REP,FAST
/DIST,1,0.729,1
/REP,FAST
/DIST,1,1.37174211248,1
/REP,FAST
/DIST,1,1.37174211248,1
/REP,FAST
/DIST,1,1.37174211248,1
/REP,FAST
/DIST,1,1.37174211248,1
/REP,FAST
/DIST,1,1.37174211248,1
/REP,FAST
/DIST,1,1.37174211248,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
!*
/VSCALE,1,1,0
!
!*
PLVECT,FMAG, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/VIEW,1,-1
/ANG,1
/REP,FAST
/VIEW,1,,-1
/ANG,1
/REP,FAST
VSEL,S,MAT,,1
VPLOT
!*
/VSCALE,1,1,0
!
!*
PLVECT,FMAG, , , ,VECT,ELEM,ON,0
/VIEW,1,,-1
/ANG,1
/REP,FAST
/VIEW,1,-1
/ANG,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
/VIEW,1,1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
!*
/VSCALE,1,1,0
!
!*
PLVECT,H, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
FINISH
/PREP7
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDE,MGXX,1
MPDATA,MGXX,1,,0
MPDE,MGYY,1
MPDATA,MGYY,1,,1E+006
MPDE,MGZZ,1
MPDATA,MGZZ,1,,0
FINISH
/POST1
!*
/VSCALE,1,1,0
!
!*
PLVECT,H, , , ,VECT,ELEM,ON,0
FINISH
/PREP7
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDE,MGXX,1
MPDATA,MGXX,1,,1e6
MPDE,MGYY,1
MPDATA,MGYY,1,,0
MPDE,MGZZ,1
MPDATA,MGZZ,1,,0
FINISH
/SOL
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
!*
/VSCALE,1,1,0
!
!*
PLVECT,H, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FINISH
/SOL
APLOT
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
FLST,2,13,5,ORDE,11
FITEM,2,1
FITEM,2,-4
FITEM,2,8
FITEM,2,11
FITEM,2,16
FITEM,2,21
FITEM,2,27
FITEM,2,32
FITEM,2,-33
FITEM,2,36
FITEM,2,39
DA,P51X,AZ,0,
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
!*
/VSCALE,1,1,0
!
!*
PLVECT,H, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FINISH
/PREP7
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDE,MGXX,1
MPDATA,MGXX,1,,0
MPDE,MGYY,1
MPDATA,MGYY,1,,0
MPDE,MGZZ,1
MPDATA,MGZZ,1,,1e6
! PLVECT,H, , , ,VECT,ELEM,ON,0
! PLVECT,H, , , ,VECT,ELEM,ON,0
! PLVECT,H, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
! PLVECT,H, , , ,VECT,ELEM,ON,0
!*
SAVE
FINISH
! /EXIT,MODEL
/BATCH
/COM,ANSYS RELEASE 15.0 UP20131014 16:29:23 06/04/2015
/input,menust,tmp,''
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
RESUME
/COM,ANSYS RELEASE 15.0 UP20131014 16:29:29 06/04/2015
/PREP7
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDE,MGXX,1
MPDATA,MGXX,1,,0
MPDE,MGYY,1
MPDATA,MGYY,1,,0
MPDE,MGZZ,1
MPDATA,MGZZ,1,,1E+006
FINISH
/SOL
MAGSOLV,0,3,0.001, ,25,
FINISH
/POST1
SET,FIRST
!*
/VSCALE,1,1,0
!
!*
PLVECT,B, , , ,VECT,ELEM,ON,0
/VIEW,1,,,1
/ANG,1
/REP,FAST
PLF2D,27,0,10,1
!*
/EFACET,1
PLNSOL, H,SUM, 0
!*
/VSCALE,1,1,0
!
!*
PLVECT,H, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,,1
/ANG,1
/REP,FAST
!*
/VSCALE,1,1,0
!
!*
PLVECT,FMAG, , , ,VECT,ELEM,ON,0
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/VIEW,1,,,-1
/ANG,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
NPLOT
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FLST,2,22,8
FITEM,2,0.5E-01,0,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0,0,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0,0
FITEM,2,0.5E-01,0,0
FITEM,2,0,0,0
FITEM,2,0.5E-01,0,0
FITEM,2,0.5E-01,0.5E-01,0
FITEM,2,0.5E-01,0.5E-01,0
!*
!*
FMAGSUM,'MAGNET'
!*
PRNSOL,H,COMP
!*
PRNSOL,FMAG,COMP
FLST,5,2,1,ORDE,2
FITEM,5,995
FITEM,5,11480
NSEL,S, , ,P51X
NPLOT
ALLSEL,ALL
VPLOT
LPLOT
FINISH
/PREP7
FLST,2,6,6,ORDE,2
FITEM,2,1
FITEM,2,-6
VCLEAR,P51X
LPLOT
FLST,5,33,4,ORDE,26
FITEM,5,2
FITEM,5,23
FITEM,5,25
FITEM,5,29
FITEM,5,33
FITEM,5,-35
FITEM,5,37
FITEM,5,-38
FITEM,5,41
FITEM,5,45
FITEM,5,49
FITEM,5,51
FITEM,5,53
FITEM,5,-54
FITEM,5,56
FITEM,5,58
FITEM,5,60
FITEM,5,62
FITEM,5,-63
FITEM,5,66
FITEM,5,68
FITEM,5,-69
FITEM,5,71
FITEM,5,-72
FITEM,5,74
FITEM,5,-81
LSEL,S, , ,P51X
LPLOT
ALLSEL,ALL
LPLOT
FLST,5,35,4,ORDE,25
FITEM,5,2
FITEM,5,23
FITEM,5,25
FITEM,5,29
FITEM,5,33
FITEM,5,-35
FITEM,5,37
FITEM,5,-38
FITEM,5,41
FITEM,5,45
FITEM,5,49
FITEM,5,51
FITEM,5,53
FITEM,5,-54
FITEM,5,56
FITEM,5,58
FITEM,5,60
FITEM,5,62
FITEM,5,-66
FITEM,5,68
FITEM,5,-69
FITEM,5,71
FITEM,5,-72
FITEM,5,74
FITEM,5,-81
LSEL,S, , ,P51X
LPLOT
VPLOT
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
FINISH
/POST1
SAVE
FINISH
! /EXIT,NOSAV