- 积分
- 0
- 注册时间
- 2007-6-12
- 仿真币
-
- 最后登录
- 1970-1-1
|
中心电流为反向电流,大家帮忙看看,赋命令流
/NERR,5,10000,
!!!!!!!!!!!!计算涡流损耗及涡流损耗分布!!!!!!!!!!!!
!!!!!!!!!!!!!!!结构参数定义!!!!!!!!!!!!!!!!!
cable_r=0.055
current=4400*sqrt(2)
ice_t=0.005
!!!!!!!!!!!!!!!结构参数定义完成!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!肌肤深度计算!!!!!!!!!!!!!!!!!
pi=2*asin(1)
freq=50 !工作频率
ddl=5.8e7 !铜电导率
mur=1 !铜相对磁导率
mu=4*pi*mur/10000000 !铜磁导率计算
thick=1/(sqrt(pi*freq*mu*ddl)) !肌肤深度计算
*if,thick,gt,cable_r,then
thick=cable_r/3
*endif
*if,2*thick,gt,cable_r,then
thick=cable_r/3
*endif
!note:根据肌肤深度确定网格的划分情况
!!!!!!!!!!!!!!!肌肤深度计算完成!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!建模参数定义!!!!!!!!!!!!!!!!!
p=30
kk_1=10
kk_2=3
kk_3=5
inf_step=cable_r
!!!!!!!!!!!!!!!建模参数定义完成!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!建模!!!!!!!!!!!!!!!!!
/prep7
et,1,53,1
et,2,53
et,3,53
mp,murx,1,mur
mp,rsvx,1,1/ddl
mp,murx,2,1
mp,murx,3,1
!!!!建立电缆模型
!2倍集肤深度
PCIRC,cable_r,cable_r-2*thick,0,180
PCIRC,cable_r,cable_r-2*thick,180,360
!内
PCIRC,cable_r-2*thick,0,0,180
PCIRC,cable_r-2*thick,0,180,360
!近电缆处
PCIRC,cable_r,cable_r+2*ice_t,0,180
PCIRC,cable_r,cable_r+2*ice_t,180,360
!!!!建立远场模型
PCIRC,cable_r+ice_t,cable_r+ice_t+inf_step ,0,180
PCIRC,cable_r+ice_t,cable_r+ice_t+inf_step ,180,360
aovlap,all
numcmp,all
!!!!!!!!!!!!!!!建模完成!!!!!!!!!!!!!!!!!
asel,s,,,1,3
asel,a,,,5
cm,cable,area
aatt,1,,1
asel,s,,,4,7,3
asel,a,,,8,10,2
cm,ice,area
aatt,2,,2
asel,s,,,6,9,3
cm,air,area
aatt,3,,3
lsel,s,,,8,9
lesize,all,,,80
lsel,s,,,2,4,2
lesize,all,,,30
lsel,s,,,11,12
lesize,all,,,5
lsel,s,,,16,17
lesize,all,,,5
lsel,s,,,14,15
lesize,all,,,70
lsel,s,,,all
lsel,u,,,8,9
lsel,u,,,2,4,2
lsel,u,,,11,12
lsel,u,,,16,17
lsel,u,,,14,15
lesize,all,,,50
asel,s,,,all
MSHAPE,0,2D
MSHKEY,0
amesh,all
!!!!!!!!!!!!!!!耦合电缆电位!!!!!!!!!!!!!!!!!
cmsel,s,cable
nsla,s,1
*GET,cable_node,NODE,,NUM,MIN, , , ,
cp,1,volt,all
allsel,all
!!!!!!!!!!!!!!!耦合电缆电位完成!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!求解!!!!!!!!!!!!!!!!!
/sol
antype,3
harfrq,50
nsel,s,,,cable_node
F,all,AMPS,current,0
allsel,all
nsel,s,ext
D,all, ,0,0, , ,AZ
allsel,all
solve |
|