5-2.txt

ANSYS电磁分析的命令流文件

/TITLE,PERMANENT MAGNET CIRCUIT WITH AN AIR GAP  ! 定义工作标题
/FILNAM,ForceCal_3D,1                  ! 定义工作文件名
KEYW,MAGNOD,1                      ! 指定磁场分析

/PREP7
SMRT,OFF
ET,1,SOLID98,10             ! 四面体耦合场单元
EMUNIT,MKS                  ! MKS单位制
MP,MURX,1,1
MP,MURX,2,1E5               ! 铁芯相对磁导率
MP,MURX,3,5.30504           ! 永磁相对磁导率
MP,MGXX,3,129900            ! 矫顽力MGXX
MP,MGZZ,3,-75000             ! 矫顽力MGZZ
LOCAL,11,0,,,,,,30              ! 定义局部坐标系11，将笛全局卡儿坐标系旋转30度
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                      ! 创建面
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         ! 沿线段偏移面形成体
VSEL,S,,,1
VATT,3                      ! 设置材料属性
VSEL,S,,,6
VATT,1
VSEL,S,,,2,3
VSEL,A,,,4,5
VATT,2
VSEL,S,,,1,5
ESIZE,,1 
MSHK,0                    ! 自由体划分
MSHA,1,3D                 ! 使用四面体单元 
VMESH,ALL
VSEL,ALL
VMESH,6                    ! 划分空气隙网格 
NSEL,,LOC,X,0
D,ALL,MAG,0                 ! 设置磁力线垂直边界条件
NSEL,ALL
WSORT,Y                     ! 按Y坐标位置排列单元
FINISH
/SOLU    
MAGSOLV,2                   ! RSP方法求解
FINISH
/POST1
RSYS,11
/VIEW,,6E-2,5E-2,6E-2
/EDGE,1,1
/DEVICE,VECTOR,1           ! 打开矢量显示模式
PLVECT,B                    ! 绘出磁通密度矢量
/VSCALE,,,1                  ! 设置统一的矢量缩放因子
PLVECT,H                    ! 绘出磁场强度矢量
ESEL,,MAT,,1                 ! 选择空气单元
PRNSOL,B,COMP             ! 打印磁通密度
NSORT,B,SUM
*GET,B1,SORT,,MAX
PRNSOL,H,COMP             ! 打印磁场强度
NSORT,H,SUM
*GET,H1,SORT,,MAX
ESEL,,MAT,,3                ! 选择永磁单元
PRNSOL,B,COMP            ! 打印磁通密度
NSORT,B,SUM
*GET,B2,SORT,,MAX
PRNSOL,H,COMP            ! 打印磁场强度
NSORT,H,SUM
*GET,H2,SORT,,MAX
*STATUS,PARM
*DIM,VALUE,,4,3
*VFILL,VALUE(1,1),DATA,0.7387,39150,0.7387,587860
*VFILL,VALUE(1,2),DATA,B2,H2,B1,H1
*VFILL,VALUE(1,3),DATA,ABS(B2/.7387),ABS(H2/39150),ABS(B1/.7387),ABS(H1/587860)
*DIM,LABEL,CHAR,4,2
LABEL(1,1) = 'B T ','H A/M ','B T ','H A/M '
LABEL(1,2) = 'PMAG','PMAG','AIR','AIR'
*CFOPEN,FORCECAL_3D,TXT,C:\
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,'   ',F12.4,'  ',F12.4,'   ',1F5.3)
*CFCLOS
FINISH