!/BACH,LIST
/TITLE,DC CURRENT IN A SLOT               ! 定義工作標(biāo)題
/FILNAME,Slot_3D,1                          ! 定義工作文件名
KEYW,MAGEDG,1                            ! 指定磁場分析

/PREP7
! 定義分析的參數(shù)
L=0.3                  ! 長
D=0.1                  ! 高
W=0.01                ! 寬
I=1000                 ! 電流
MUR=1                ! 相對磁導(dǎo)率
RHO=1.0E-8            ! 電阻率 
N=5                   ! 寬度方向單元劃分個數(shù)
JX=0                  ! 電流密度
JY=0
JZ=I/D/W
ET,1,117               ! 定義單元
MP,MURX,1,MUR       ! 定義材料相對磁導(dǎo)率屬性
MP,RSVX,1,RHO        ! 定義材料電阻率屬性
BLOCK,0,D,0,W,0,L      ! 創(chuàng)建模型,
LSEL,S,LOC,X,D/2       ! 選擇寬度方向上的線
LESIZE,ALL,,,N         ! 設(shè)定所選線段上單元個數(shù)
LSEL,ALL              ! 選擇所有線
ESIZE,,1               ! 設(shè)定全局單元個數(shù)
VMESH,ALL           ! 體網(wǎng)格劃分.
FINISH

/SOLU
ASEL,S,LOC,X,D       ! 選擇X=D位置處的面
ASEL,A,LOC,Z,0       ! 增加選擇Z=0位置處的面.
ASEL,A,LOC,Z,L       ! 增加選擇Z=L位置處的面.
DA,ALL,AZ,0          ! 施加磁力線平行邊界條件
ASEL,ALL             ! 選擇所有面!
BFE,ALL,JS,,JX,JY,JZ    ! 施加電流密度激勵載荷!
SOLVE                ! 求解
FINISH

/POST1
BFELIST              ! 列出外加體力
PRESOL,H            ! 對單元節(jié)點(diǎn)磁場強(qiáng)度列表
PRESOL,B            ! 對單元節(jié)點(diǎn)磁通密度列表
PRESOL,JT            ! 對單元形心處的電流密度列表
PRESOL,JHEAT        ! 對單元的單位體積焦耳熱列表
PRESOL,FMAG         ! 對單元角節(jié)點(diǎn)處的磁力列表
/VIEW,1,1,0.4,0.5        ! 設(shè)定視角方向
PLNSOL,H,SUM         ! 繪制磁場強(qiáng)度分布圖
PLNSOL,B,SUM         ! 繪制磁通密度分布圖
PLVECT,H,,,,VECT,NODE,ON  ! 繪制節(jié)點(diǎn)磁場強(qiáng)度矢量圖
ETABLE,FE,FMAG,X     ! 把單元的磁力分量存入表fe中
ETABLE,HY,H,Y         ! 把單元的磁場強(qiáng)度分量存入表hy中
ETABLE,BY,B,Y         ! 把單元的磁通密度分量存入by中
ETABLE,JZ,JT,Z         ! 把單元的電流密度分量存入表jz中
ETABLE,PD,JHEAT       ! 存入單元的單位體積焦耳熱到表pd中
ETABLE,VE,VOLU       ! 存入單元體積到表ve中
ETABLE,WE,SENE       ! 存入單元的磁能分量到表we中
SMULT,PE,PD,VE        ! 單位體積焦耳熱與模型的體積求和，得到系統(tǒng)總焦耳熱損
PRETAB,VE,BY,HY,WE   ! 列表顯示ve，by，hy和we
PRETAB,VE,JZ,JH,PE     ! 列表顯示ve，jz，jh和pe
PRETAB,VE,JZ,BY,FE     ! 列表顯示ve，jz，by和fe
SSUM                   ! 對所有單元表進(jìn)行求和
*GET,FT,SSUM,,ITEM,FE  ! 把單元求和獲得的磁力讀入到參數(shù)ft中
*GET,WT,SSUM,,ITEM,WE ! 把單元求和獲得的總能量讀入到參數(shù)wt中
*GET,PT,SSUM,,ITEM,PE   ! 把單元求和獲得的總功率讀入到參數(shù)pt中
*GET,VT,SSUM,,ITEM,VE  ! 把單元求和獲得的總體積讀入到參數(shù)vt中
*CFOPEN, Slot_3D,TXT,C:\  ! 在指定路徑下打開Slot_3D.TXT文本文件
*VWRITE,VT,FT,WT,PT  ! PRINT PARAMETERS, VT, FT, WT AND PT IN A FORTRAN FORMAT                  ! 以指定的格式把上述參數(shù)寫入打開的文件中
(/'VOLUME=',E10.3,' FORCE=',E10.3,' ENERGY=',E10.3,' LOSS=',E10.3/)  ! 指定的格式
*CFCLOS                  ! 關(guān)閉打開的文本文件
FINISH