2-2.txt

ANSYS电磁分析的命令流文件

/TITLE,Force Calculation on a Current Carrying Conductor  ! 定义工作标题
/FILNAM,ForceCal_2D,1                  ! 定义工作文件名
KEYW,MAGNOD,1                          ! 指定磁场分析

/PREP7                                
ET,1,PLANE53                          ! 指定单元类型
ET,2,INFIN9                           ! 指定单元类型
EMUNIT,MKS                            ! 指定单位制
MP,MURX,1,1                           ! 定义空气区域材料特性
MP,MURX,2,1                           ! 定义导体区域材料特性
D=0.01                                ! 定义参数
A=0.012
T=0.002
OB=0.04                               ! 远场边界参数
X1=D/2-T/2
X2=D/2+T/2
GP=0.0002                             ! 导体周围一个气隙厚度
/PNUM,AREA,1                           ! 打开面区域编号
RECTNG,0,OB,0,OB                       ! 建立模型
RECTNG,0,0.012,0,0.012
RECTNG,X1,X2,0,A/2
RECTNG,X1-GP,X2+GP,0,A/2+GP
AOVLAP,ALL                             ! 布尔叠分操作
SAVE,ForceCal_2D_geom.db               ! 保存几何模型到文件
SAVE

ASEL,S,AREA,,3
AATT,2                                 ! 给导体赋予材料特性
ASEL,ALL
SMRT,OFF
KSEL,S,LOC,X,0,0.012                    ! 选择关键点
KSEL,R,LOC,Y,0,0.012
KESIZE,ALL,A/8                         ! 指定关键点附近单元大小
KSEL,INVE
KESIZE,ALL,OB/5
KSEL,ALL
LSEL,S,LOC,X,OB                        ! 选择远场边界单元 
LSEL,A,LOC,Y,OB
TYPE,2
LMESH,ALL                              ! 划分远场边界线网格
LSEL,ALL
MSHK,0                                 ! 自由面网格划分
MSHA,0,2D                              ! 用四边形面单元划分网格
TYPE,1
/OUT,MESH,LIS
AMESH,ALL
SAVE,ForceCal_2D_Mesh.db               ! 保存网格单元数据到文件
FINISH

/SOLU
ANTYPE,STATIC                           ! 指定静态磁场分析
ESEL,S,MAT,,2                           ! 选择导体单元
BFE,ALL,JS,,,,1E6                       ! 给导体单元施加电流密度
NSLE,S                                  ! 选择导体上的所有节点
BF,ALL,MVDI,1                           ! 指定虚功位移为1
NSEL,INVE                               ! 反响选择其它节点
BF,ALL,MVDI,0                           ! 指定虚功位移为0
NSEL,ALL
ESEL,ALL
SOLVE
SAVE,ForceCal_2D_resu.db                ! 保存计算结果
FINISH

/POST1
ETABLE,FMAGX,FMAG,X                     ! 存储洛伦兹力（J*B）
ETABLE,FVWX,NMISC,3                     ! 存储虚功力
SSUM                                    ! 对单元表求和
*GET,FXL,SSUM,,ITEM,FMAGX               ! 取出洛伦兹力的值
FXL=FXL*2                               ! 总的洛伦兹力值
*GET,FXVW,SSUM,,ITEM,FVWX               ! 取出虚功力的值
FXVW=FXVW*2                             ! 总的虚功力的值
PATH,MAXWELL,4,,48                      ! 定义一个名为"MAXWELL"的路径
PPATH,1,,.012,0,0                       ! 定义路径点的位置
PPATH,2,,.012,.012,0
PPATH,3,,0,.012,0
PPATH,4,,0,0,0
FOR2D                                   ! 沿路径用面积分计算导体上的磁力
FXM=FX*2                                ! 总MAXWELL 力 (对称)
*STATUS,PARM                            ! 列出所有参数
/PBC,PATH,1                             ! 在模型中显示路径位置
PLF2D                                   ! 显示磁力线图
*DIM,LABEL,CHAR,3,2                     ! 定义参数并对较理论值和计算值比较
*DIM,VALUE,,3,3
LABEL(1,1) = 'F (LRNZ) ','F (MAXW) ','F (VW) '
LABEL(1,2) = 'N/m','N/m','N/m'
*VFILL,VALUE(1,1),DATA,-9.684E-3,-9.684E-3,-9.684E-3
*VFILL,VALUE(1,2),DATA,FXL,FXM,FXVW
*VFILL,VALUE(1,3),DATA,ABS(FXL/(9.684E-3)),ABS(FXM/(9.684E-3)),ABS(FXVW/(9.684E-3))
*CFOPEN,FORCECAL_2D,TXT,C:\  ! 在指定路径下打开FORCECAL_2D.TXT文本文件
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) 
(1X,A8,A8,'  ',F10.6,'  ',F15.6,'  ',1F10.3)!以指定格式把上述参数写入打开文件中
*CFCLOS                                       ! 关闭打开的文本文件
FINISH