马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
如图所示,红线框是10*6mm的两块永磁铁,绿线是我想要得到的距永磁铁上边线3mm处,每隔1mm的磁感应强度B的值,要怎么做?求大神帮助,或者能得到某个点的B值也可以,我可以一个一个来
以下是代码
!********************************************
! 说明:该例子演示一个永磁体的磁场(使用了infin9单元)
!********************************************
/TITLE, alextest, Test for Permanent Magnet
/PREP7
emunit,mks !定义电磁单位为国际标准单位,即μ0=4 Pi e-7henries/meter
!********************************************
! 定义单元类型*
!********************************************
ET,53,PLANE53 ! Define PLANE 53 as element type
ET,9,INFIN9 !无限外界(注意:系统原点一定不能在infin9类型的节点上)
!********************************************
! 定义材料*
!********************************************
MP,MURX,1,1 !Define material properties(permeability) !定义空气(磁
导率=1)
HC=150000 ! Coercive force!表示矫顽力
有的地方为895000
MP,MURX,2,5,30504
mp,mgxx,2,0 !对于永磁铁,必须定义mgxx(或mgyy)!!!!
mp,mgyy,2,hc
!********************************************
!* 建立模型*
!********************************************
/PNUM,AREA,1 !定义显示模式
rectng,-60,60,-40,40
rectng,-12.5,-2.5,-3,3
rectng,2.5,12.5,-3,3
aovlap,all
numcmp,area !将生成的面重新编号
aplot
!********************************************
!建立材料属性
!********************************************
asel,s,area,,1 !选择中间的磁铁
aatt,2
asel,s,area,,2 !选择中间的磁铁
aatt,2
asel,s,area,,3 !选择周围的空气
aatt,1
!********************************************
!建立单元类型,并划分网格
!********************************************
asel,all
type,53
lsel,s,line,,1,4 !选择所有的无限外边界
type,9 !设定为infin9单元
lesize,all,,,30 !划分为30等份
lmesh,all !开始划分
lsel,s,line,,5,12
lesize,all,,,20 !将磁铁边界的每条边分成20等份
asel,all
amesh,all
!********************************************
!建立载荷
!********************************************
ESEL,ALL
NSEL,EXT
D,ALL,AZ,0
!********************************************
!求解
!********************************************
ALLSEL,ALL
MAGSOLV
!********************************************
!后处理
!******************************************** /POST1 PLF2D,80,0,10,1
|