/PREP7
! 定义单元
ET,1,SOLID69
! 定义材料属性
MP, RSVX, 1, 1E-7
! 建立模型
block, -0.2, -0.1, 0, 0.9, 0, 0.02
block, -0.2, -0.1, 0.3, 0.4, 0, 0.02
vovlap, all
block, -0.2, -0.1, 0.5, 0.6, 0, 0.02
block, -0.2, -0.1, 0.7, 0.8, 0, 0.02
vovlap, all
VGEN,2,all, , ,0.3, , , ,0
block, -0.2, 0.2, 0.3, 0.4, 0.02, 0.04
block, -0.2, -0.1, 0.3, 0.4, 0.02, 0.04
vovlap, all
block, 0.1, 0.2, 0.3, 0.4, 0.02, 0.04
vovlap, all
FLST,3,3,6,ORDE,3
FITEM,3,16
FITEM,3,-17
FITEM,3,19
VGEN,3,P51X, , , ,0.2, , ,0
vglue, all
numcmp, all
! 剖分
MSHAPE,0,3D
MSHKEY,1
VMESH, ALL
! 令右上端面节点的电压为零
ASEL, S, LOC, Y, 0.9
ASEL, R, LOC, X, 0.1, 0.2
NSLA,S,1
d, all, volt, 0
! 耦合左下端面节点的电压
ASEL, S, LOC, Y, 0
ASEL, R, LOC, X, -0.2, 0.1
NSLA,S,1
cp, next, volt, all
! 获取左下端面节点的最小节点编号
*GET, NMIN, NODE, , NUM, MIN
! 在该节点加载电流8000 A
F,NMIN,AMPS,8000
allsel
FINISH
/SOL
! 稳态电流传导分析
ANTYPE,0
SOLVE
FINISH
/POST1
! 画源电流密度矢量图
PLVECT,JS, , , ,VECT,ELEM,ON,0 |