有谁知道SOLID117单元AZ,VOLT自由度用F,N,AMPS,这个命令怎么加三相电流吗?跪求!
源程序如下:
FINISH
/CLEAR
/PREP7
RN0=0.53/2-0.016 !导体内半径
RW0=0.53/2 !导体外半径
RN1=0.98/2-0.016 !外壳内半径
RW1=0.98/2 !外壳外半径
HX=0.25
LEN=6
L1=1.47
L2=3.92 !空气层外半径
LX=0.24
I=14000 !电流幅值
!--------定义三相电流-----------
*SET,ACURR,I
*SET,ACURI,0
*SET,BCURR,-0.5*I
*SET,BCURI,-SQRT(3)*I/2
*SET,CCURR,-0.5*I
*SET,CCURI,SQRT(3)*I/2
!-------------------------------------
/PNUM,AREA,1
/PNUM,LINE,1
BLOCK,,L2,,L1,,LEN
WPOFFS,LX+RW1,L1/2
CYLIND,0,RN0,0,LEN,0,360
CYLIND,RN0,RW0,0,LEN,0,360
CYLIND,RW0,RN1,0,LEN,0,360
CYLIND,RN1,RW1,0,LEN,0,360
WPOFFS,-LX-RW1,-L1/2
WPOFFS,L2/2,L1/2
CYLIND,0,RN0,0,LEN,0,360
CYLIND,RN0,RW0,0,LEN,0,360
CYLIND,RW0,RN1,0,LEN,0,360
CYLIND,RN1,RW1,0,LEN,0,360
WPOFFS,-L2/2,-L1/2
WPOFFS,L2-LX-RW1,L1/2
CYLIND,0,RN0,0,LEN,0,360
CYLIND,RN0,RW0,0,LEN,0,360
CYLIND,RW0,RN1,0,LEN,0,360
CYLIND,RN1,RW1,0,LEN,0,360
WPOFFS,-(L2-LX-RW1),-L1/2
VOVLAP,ALL
VGLUE,ALL
NUMCMP,ALL
ET,1,SOLID117
KEYOPT,1,1,1
ET,2,SOLID117
MP,MURX,1,1 !铜的磁导率
MP,RSVX,1,3E-8 !铜的电阻率
MP,MURX,2,1 !空气磁导率
ALLSEL,ALL
VSEL,S,,,4,10,3
VSEL,A,,,6,12,3
VATT,1,,1
ALLSEL,ALL
VSEL,S,,,1,3
VSEL,A,,,13
VSEL,A,,,5,11,3
VATT,2,,2
VSEL,S,,,4,10,3
VSEL,A,,,6,12,3
MSHKEY,0
MSHAPE,1,3D
ESIZE,0.2
VMESH,ALL
VSEL,S,,,1,3
MSHKEY,0
MSHAPE,1,3D
ESIZE,0.1
VMESH,ALL
VSEL,S,,,5,11,3
MSHKEY,0
MSHAPE,1,3D
ESIZE,0.05
VMESH,ALL
VSEL,S,,,13
MSHKEY,0
MSHAPE,1,3D
ESIZE,0.3
VMESH,ALL
FINISH
/SOLU
ANTYPE,HARMIC
HARFRQ,50
ALLSEL,ALL
CSYS,1
NSEL,EXT
D,ALL,AZ,0
CSYS,0
ALLSEL,ALL
ASEL,S,,,47
ASEL,A,,,41
ASEL,A,,,35
NSLA,S,1
D,ALL,VOLT,0
ALLSEL,ALL
ASEL,S,,,36
NSLA,S,1
!------------加载三相电流---------------
CP,1,VOLT,ALL
*GET,N1,NODE,,NUM,MIN
F,N1,AMPS,BCURR,BCURI
ALLSEL,ALL
ASEL,S,,,42
NSLA,S,1
CP,2,VOLT,ALL
*GET,N2,NODE,,NUM,MIN
F,N2,AMPS,CCURR,CCURI
ALLSEL,ALL
ASEL,S,,,48
NSLA,S,1
CP,3,VOLT,ALL
*GET,N3,NODE,,NUM,MIN
F,N3,AMPS,ACURR,ACURI
!-----------------------------------------
ALLSEL,ALL
ASEL,S,,,51
NSLA,S,1
CP,4,VOLT,ALL
ALLSEL,ALL
ASEL,S,,,45
NSLA,S,1
CP,5,VOLT,ALL
ALLSEL,ALL
ASEL,S,,,39
NSLA,S,1
CP,6,VOLT,ALL
ALLSEL,ALL
ASEL,S,,,40
NSLA,S,1
CP,7,VOLT,ALL
ALLSEL,ALL
ASEL,S,,,46
NSLA,S,1
CP,8,VOLT,ALL
ALLSEL,ALL
ASEL,S,,,52
NSLA,S,1
CP,9,VOLT,ALL
NSEL,ALL
ALLSEL,ALL
SOLVE
FINISH |