异步电机ANSYS电磁场计算程序

! 基于场路耦合时空有限元的永磁电机瞬态特性研究.kdh

/uis,msgpop,3
/prep7
csys,0
btol,1e-10 !指定布尔运算公差
*afun,deg !指定输入输出为参数的单位为角度
r1=47.5/1000 !定子外半径,转化为国际单位制
r2=26/1000 !定子内半径,转化为国际单位制
gap=0.5/1000 !定转子间气隙高度,转化为国际单位制
r3=r2-gap !转子外半径,转化为国际单位制
r4=8/1000 !转子轴半径,转化为国际单位制
nslots=48 !定子槽数
delta=gap/1e5 !一个用于确定选择区域的极小量
!定义定子槽尺寸参数
ss_h=7.2/1000 !槽高,转化为国际单位制(下同)
ss_w=1.7/1000 !槽宽
ss_ci=0.2/1000 !绕组层间绝缘厚度
ss_turn=48/2 !定子每个绕组导线根数
ss_cln=2 !并绕导线根数
ss_clw=0.56/1000 !导线宽度
ss_clh=0.2/1000 !导线高度
ss_cli=0.05/1000 !导线间漆膜厚度
ss_cll=60/1000 !绕组长度(定子铁芯长度)
ss_ch=(ss_clh+ss_cli)*(ss_turn/ss_cln)!每个绕组高度
ss_cw=(ss_clw+ss_cli)*ss_cln !每个绕组宽度
!定义转子永磁体磁体尺寸参数
sr_ch=3 !永磁体厚度(下相同)
sr_cco=16 !永磁体 1 宽度
sr_cct=10.25 !永磁体 2 宽度
sr_ch=sr_ch/1000 !永磁体厚度,转化为国际单位制
sr_cco=sr_cco/1000 !永磁体 1 宽度
sr_cct=sr_cct/1000 !永磁体 2 宽度
!计算定子线圈参数,用于单元实常数定义

care1=ss_ch*ss_cw !绕组横截面积
turn1=ss_turn/ss_cln !绕组匝数(注意,要除以并绕根数!)
leng1=ss_cll !绕组轴向长度
fill1=(ss_clw*ss_clh)*ss_turn/care1 !绕组填充系数
!定义单元类型
et,1,plane53,0 !AZ 自由度,用于空气和绝缘区域
et,2,plane53,3 !用于定子线圈导体 AZ,CURR,EMF 自由度
et,3,plane53,0 !AZ 自由度,用于铁芯区域和磁铁部分
et,4,53,0 !AZ 自由度,用于铁芯区域
r,2,care1,turn1,leng1,,fill1 !定子线圈单元的实常数

!定义材料参数
mp,murx,1,1 !空气导磁率,用于空气和绝缘
mp,murx,2,1 !导体导磁率,用于定子线圈
mp,rsvx,2,0.0434e-6 !导体电阻率
mp,murx,3,1 !导体导磁率,用于转子导条
mp,rsvx,3,0.0434e-6 !导体电阻率
HC=1000000 !永磁体矫顽力
TB,BH,4,,30 !永磁体 BH 曲线
TBPT,, 130.000000 , 0.10000000
TBPT,, 170.000000 , 0.20000000
TBPT,, 197.000000 , 0.30000000
TBPT,, 218.000000 , 0.40000000
TBPT,, 250.000000 , 0.50000000
TBPT,, 290.000000 , 0.60000000
TBPT,, 338.000000 , 0.70000000
TBPT,, 400.000000 , 0.80000000
TBPT,, 472.000000 , 0.90000000
TBPT,, 570.000000 , 1.00000000
TBPT,, 682.000000 , 1.10000000
TBPT,, 810.000000 , 1.20000000
TBPT,, 975.000000 , 1.30000000
TBPT,, 1600.00000 , 1.40000000
TBPT,, 2520.00000 , 1.50000000
TBPT,, 3520.00000 , 1.60000000
TBPT,, 4760.00000 , 1.70000000
TBPT,, 8300.00000 , 1.80000000
TBPT,, 12000.0000 , 1.90000000
TBPT,, 17000.0000 , 2.
00000000

TBPT,, 23000.0000 , 2.10000000
TBPT,, 32000.0000 , 2.20000000
TBPT,, 42500.0000 , 2.30000000
TBPT,, 44500.0000 , 2.32000000
TBPT

,, 48200.0000 , 2.35000000
TBPT,, 52200.0000 , 2.37000000
TBPT,, 56000.0000 , 2.39000000
TBPT,, 60000.0000 , 2.41000000
mp,mgxx,4,0
mp,mgyy,4,hc
!定义其他 7 块永磁体用同样地方法
TB,BH,5,,30
mp,mgxx,5,0
mp,mgyy,5,-hc
TB,BH,6,,30
mp,mgxx,6,hc
mp,mgyy,6,0
TB,BH,7,,30
mp,mgxx,7,-hc
mp,mgyy,7,0
TB,BH,8,,30
mp,mgxx,8,0.707*hc
mp,mgyy,8,0.707*hc
TB,BH,9,,30
mp,mgxx,9,0.707*hc
mp,mgyy,9,-0.707*hc
TB,BH,10,,30
mp,mgxx,10,-0.707*hc
mp,mgyy,10,-0.707*hc
TB,BH,11,,30
mp,mgxx,11,-0.707*hc
mp,mgyy,11,0.707*hc
mp,murx,12,1 ! 隔磁材料磁导率
mp,murx,13,5000 ! 定子铁心磁导率(硅钢片)
mp,murx,14,4000 ! 转子磁轭(电工纯铁)
mp,murx,15,1 !导体磁导率,用于定子线圈
mp,rsvx,16,0.0434e-6 !导体电阻率
mp,murx,17,1 !导体磁导率,用于转子导条
mp,rsvx,18,0.0434e-6 !导体电阻率
! 建立定子几何模型
cyl4,,,r2,,r1
xo=sqrt(r2**2-(ss_w/2)**2)
wpave,xo
blc4,,-ss_w/2,ss_h,ss_w
blc4,ss_h-ss_ci,ss_w/2,-ss_ch,-ss_w
blc4,ss_h-ss_ch-ss_ci*2,ss_w/2,-ss_ch,-ss_w
blc4,ss_h,ss_cw/2,-(ss_ch*2+ss_ci*2),-ss_cw



asel,s,loc,x,r2,r2+ss_h
csys,1
lsel,s,loc,x,r1-delta,r1+delta
asll,a
lsel,all

aovlap,all

asel,s,loc,x,xo,r2
adele,all,,,1
asel,s,loc,x,r2,r2+ss_h
lsla
lsel,r,loc,x,r2-delta,r2+delta
lcomb,all
lsel,s,loc,x,r1-delta,r1+delta
asll
lsla
lsel,r,loc,x,r2-delta,r2+delta
lcomb,all
allsel
asel,s,loc,x,r2,r2+ss_h
cm,aa1,area
agen,2,all
cmsel,u,aa1
aadd,all
agen,nslots,all,,,,360/nslots
cm,aa2,area
lsel,s,loc,x,r1-delta,r1+delta
asll
cm,aa3,area
cmsel,a,aa2
allsel,below,area
asba,aa3,aa2
cm,aa3,area
cmsel,s,aa1
agen,nslots,all,,,,360/nslots
cmsel,a,aa3
allsel,below,area
nummrg,kp
! 建立转子几何模型
csys,0
wpave,0
*get,maxarea1,area,,num,max
numstr,area,maxarea1
cyl4, , ,r3
cyl4, , ,r4
asba,maxarea1+1,maxarea1+2
*get,maxarea2,area,,num,max
numstr,area,maxarea2
blc4,-sr_cco/2,9/1000,sr_cco,sr_ch
blc4,-sr_cco/2,-9/1000-sr_ch,sr_cco,sr_ch
blc4,-9/1000-sr_ch,-sr_cco/2,sr_ch,sr_cco
blc4,9/1000,-sr_cco/2,sr_ch,sr_cco
*get,maxarea3,area,,num,max
numstr,area,maxarea3
wpro,-45,,
*do,i,0,3
wpro,-90*i
blc4,-sr_ch/2,r3-sr_cct,sr_ch,sr_cct*2
*enddo
wpcsys,-1,0
cyl4, , ,r3
asel,s,,,maxarea3+1,maxarea3+5
*get,maxarea4,area,,num,max
numstr,area,maxarea4
ainp,all
allsel,all
cyl4,,,r1
!创建隔磁面
a,701,704,738,737,716,715
a,702,703,725,726,723,724
a,706,707,719,721,729,730
a,711,713,708,705,745,746
aovlap,all
!压缩关键点、线、面
allsel
nummrg,kp
numcmp,kp
numcmp,line
numcmp,area
!将定子绕组生成组件
csys,1
asel,s,loc,x,r3+delta,r2-delta
cm,a_gap,area !气隙
lsel,s,loc,x,r1
a …… 此处隐藏：7827字，全部文档内容请下载后查看。喜欢就下载吧 ……