程序流入下。
为何得不到想要的电流场分布? 请高手们指点。
/PREP7
ET,1,SOLID98
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,RSVX,1,,10
CYLIND,0.5, ,0,0.3,0,360,
CYLIND,1, ,0.3,0.8,0,360,
CYLIND,0.2, ,0.8,1.8,0,360,
FLST,2,3,6,ORDE,2
FITEM,2,1
FITEM,2,-3
VGLUE,P51X
MSHKEY,0
MSHAPE,1,3d
FLST,5,3,6,ORDE,3
FITEM,5,1
FITEM,5,3
FITEM,5,-4
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
VMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
wpro,,-90.000000,
CSWPLA,11,1,1,1,
FLST,3,3,6,ORDE,3
FITEM,3,1
FITEM,3,3
FITEM,3,-4
VGEN, ,P51X, , , ,90, , , ,1
! EPLOT
CSDELE,11, ,1,
NSEL,S,LOC,X,0
! NPLOT
FLST,4,93,1,ORDE,2
FITEM,4,1
FITEM,4,-93
CP,1,VOLT,P51X
FLST,2,1,1,ORDE,1
FITEM,2,77
/GO
F,P51X,AMPS,10
NSEL,S,LOC,X,1.8
FLST,2,61,1,ORDE,2
FITEM,2,443
FITEM,2,-503
/GO
D,P51X,VOLT,0
ALLSEL,ALL
FINISH
/SOL
! /STATUS,SOLU
SOLVE
FINISH
/POST1
! /EFACET,1
! PLNSOL, D,SUM, 0
! /EFACET,1
! PLNSOL, EF,SUM, 0
! LGWRITE,'xx','lgw','D:\Ansys8.0\',COMMENT
电流分布如下,(没有结果) |