变压器场路耦合
浏览：15178 回答：2
/clear,all
corediam=95*1e-3 !铁心直径
icorewindow=295*1e-3 !铁心内长
ocorewindow=390*1e-3 !铁心外长
corecentra=435*1e-3 !铁心中心距
w1=108 !原边绕组匝数
w2=97 !公共绕组匝数
w3=56 !延伸绕组匝数(靠近铁心)
gap1=8.5*1e-3 !延伸绕组与铁心之间的间隙
gap2=7.0*1e-3 !延伸绕组与公共绕组的间隙
gap3=16.5*1e-3 !原边绕组与公共绕组的间隙
u1=220 !原边绕组电压
u2=196.7025 !公共绕组电压
u3=113.5662 !延伸绕组电压
!nc=6 !!绕组数
!*dim,i,array,nc !定义一个数组参数及尺寸
!*dim,coils,char,nc !定义一个字符参数及尺寸
!i(1)=40.8248 !左原边绕组电流
!i(2)=23.5702 !左公共绕组电流
!i(3)=40.8248 !左延伸绕组电流
!i(4)=40.8248 !右原边绕组电流
!i(5)=23.5702 !右公共绕组电流
!i(6)=40.8248 !右延伸绕组电流
!coils(1)='wind1' !左延伸绕组
!coils(2)='wind2' !左公共绕组
!coils(3)='wind3' !左原边
!coils(4)='wind4' !右延伸绕组
!coils(5)='wind5' !右公共绕组
!coils(6)='wind6' !右原边绕组
extendwidth=39*1e-3 !延伸绕组径向宽度
publicwidth=31*1e-3 !公共绕组径向宽度
primarywidth=63*1e-3 !原边绕组径向宽度
windingshigh=201*1e-3 !绕组的轴向高度
iextenddiam=corediam+gap1*2 !!!延伸绕组内直径
oextenddiam=iextenddiam+extendwidth*2 !!!延伸绕组外直径
ipublicdiam=oextenddiam+gap2*2 !!!公共绕组内直径
opublicdiam=ipublicdiam+publicwidth*2 !!!公共绕组外直径
iprimarydiam=opublicdiam+gap3*2 !!!原边绕组内直径
oprimarydiam=iprimarydiam+primarywidth*2 !!!原边绕组外直径
tanklength=950*1e-3 !!!油箱长
tankwidth=540*1e-3 !!!油箱宽
tankhigh=650*1e-3 !!!油箱高
/title,coupled-field transformers
/prep7
et,1,solid97 !!!铁心和铁轭以及内层空气
et,2,solid97,3 !!!绕组
et,3,infin111,1 !!!模拟无穷远边界
et,4,circu124,0 !!!电阻
et,5,circu124,4 !!!独立电压源
et,6,circu124,5 !!!stranded coil
EMUNIT,MKS
!!!定义材料属性
mp,murx,1,1 !!!线圈
mp,rsvx,1,1.7241*1e-8 !!!线圈的电阻
mp,murx,2,1 !!!空气
mp,murx,3,60000 !!!RELATIVE PERMEABILITY of core
!!!建立模型
cylind,0,corediam/2,0,ocorewindow,0,360 !以工作平面圆点为中心生成半圆柱体（铁心）
wpoffs,corecentra !X方 向偏移工作平面铁心中心距
cylind,0,corediam/2,0,ocorewindow,0,360 !以工作平面圆点为中心生成半圆柱体（铁心）
wpcsys,-1,0 !平面坐标回归
block,0,corecentra,-corediam/2,corediam/2,0,corediam/2 !建填充体
wpoffs,,,icorewindow+corediam/2
block,0,corecentra,-corediam/2,corediam/2,0,corediam/2 !建填充体
wpcsys,-1,0 !平面坐标回归
allsel,all
vovlap,all !体搭接
vglue,all !体间相互粘接
numcmp,all
vsel,all
*get,vmax1,volu,,num,max
vsel,all
vatt,3,1,1,0 !赋铁心属性
wpoffs,,,ocorewindow/2 !z方向偏移工作平面铁心外长/2
cswpla,11,1,1,1 !建立坐标系11
cylind,iextenddiam/2,oextenddiam/2,-windingshigh/2,windingshigh/2,0,360 !左延伸绕组
vsel,s,,,vmax1+1
vplot
vatt,1,2,2,11 !赋左延伸绕组属性
cylind,ipublicdiam/2,opublicdiam/2,-windingshigh/2,windingshigh/2,0,360 !左公共绕组
vsel,s,,,vmax1+2
vplot
vatt,1,3,2,11 !赋左公共绕组属性
cylind,iprimarydiam/2,oprimarydiam/2,-windingshigh/2,windingshigh/2,0,360 !左原边绕组
vsel,s,,,vmax1+3
vplot
vatt,1,4,2,11 !赋左原边绕组属性
wpoffs,corecentra !X方向偏移工作平面铁心中心距
cswpla,12,1,1,1 !建立坐标系12
cylind,iextenddiam/2,oextenddiam/2,-windingshigh/2,windingshigh/2,0,360 !右延伸绕组
vsel,s,,,vmax1+4
vplot
vatt,1,5,2,12 !赋右延伸绕组属性
cylind,ipublicdiam/2,opublicdiam/2,-windingshigh/2,windingshigh/2,0,360 !右公共绕组
vsel,s,,,vmax1+5
vplot
vatt,1,6,2,12 !赋右公共绕组属性
cylind,iprimarydiam/2,oprimarydiam/2,-windingshigh/2,windingshigh/2,0,360 !右原边绕组
vsel,s,,,vmax1+6
vplot
vatt,1,7,2,12 !赋右原边绕组属性
allsel,all
numcmp,all
*get,vmax2,volu,,num,max
allsel,all
vplot
wpcsys,-1,0
wpoffs,corecentra/2,,ocorewindow/2
allsel,all
block,-tanklength,tanklength,-tankhigh,tankhigh,-tankwidth,tankwidth !油箱
allsel,all
vovlap,all
numcmp,all
*get,vmax3,volu,,num,max
vsel,s,,,vmax2+1,vmax3,1
vplot
vatt,2,8,1,0 !赋空气属性
vsel,s,esys,,11
vsel,r,real,,2
vplot !选择单元子集2左延伸绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,11
vsel,r,real,,3
vplot !选择单元子集3左公共伸绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,11
vsel,r,real,,4
vplot !选择单元子集4左原边绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,12
vsel,r,real,,5
vplot !选择单元子集5右延伸绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,12
vsel,r,real,,6
vplot !选择单元子集6右公共伸绕组(设置为实数绝对值)
vsweep,all
vsel,s ,esys,,12
vsel,r,real,,7
vplot !选择单元子集7右原边绕组(设置为实数绝对值)
vsweep,all
vsel,s,real,,1,8,7
VPLOT
mshape,1,3d
mshkey,0 !自由网格
smrtsize,1
vmesh,all !网格化
!原边绕组常数
pi=atan(1)*4
primarycare=primarywidth*windingshigh !原边绕组截面积
wdiam=8*1e-3 !导线直径 自己假设的
primarycare1=w1*pi*wdiam*wdiam/4 !导线截面积
primaryfill=primarycare1/primarycare !!! !屏蔽系数5428.7/12663
vsel,s,esys,,11
vsel,r,real,,4 !!!选择左原边绕组
vsum
*get,primaryvolua,volu,,volu !
r,4,primarycare,w1,primaryvolua,0,1,0 !!!左原边绕组赋电气参数
rmore,2,primaryfill
vsel,s,esys,,12
vsel,r,real,,7 !!!选择右原边绕组
vsum
*get,primaryvolua,volu,,volu !
r,7,primarycare,w1,primaryvolua,0,1,0 !!!右原边绕组赋电气参数
rmore,2,primaryfill
!公共绕组常数
publiccare=publicwidth*windingshigh !公共绕组截面积
publiccare1=w2*pi*wdiam*wdiam/4 !导线截面积
publicfill=publiccare1/publiccare !!! !屏蔽系数4875.7/6231
vsel,s,esys,,11
vsel,r,real,,3 !!!选择左公共绕组
vsum
*get,publicvolua,volu,,volu !
r,3,publiccare,w2,publicvolua,0,1,0 !!!左公共绕组赋电气参数
rmore,2,publicfill
vsel,s,esys,,12
vsel,r,real,,6 !!!选择右公共绕组
vsum
*get,publicvolua,volu,,volu !
r,6,publiccare,w2,publicvolua,0,1,0 !!!右公共绕组赋电气参数
rmore,2,publicfill
!延边绕组常数
extendcare=extendwidth*windingshigh !延边绕组截面积
extendcare1=w3*pi*wdiam*wdiam/4 !导线截面积
extendfill=extendcare1/extendcare !!! !屏蔽系数2815/7839
vsel,s,esys,,11
vsel,r,real,,2 !!!选择左延边绕组
vsum
*get,extendvolua,volu,,volu !
r,2,extendcare,w3,extendvolua,0,1,0 !!!左延边绕组赋电气参数
rmore,2,extendfill
vsel,s,esys,,12
vsel,r,real,,5 !!!选择右延边绕组
vsum
*get,extendvolua,volu,,volu !
r,5,extendcare,w3,extendvolua,0,1,0 !!!右延边绕组赋电气参数
rmore,2,extendfill
r,20,220,0 !!!原边独立电压源
r,21,5.39 !!!左公共电阻
r,22,1 !!!绞线圈
r,23,2.78 !!!左延边电阻
allsel,all
*get,nodemax,node,,num,max
n,nodemax+1,-0.2,0,-0.1 !创建节点（中心坐标系）
n,nodemax+2,-0.2,0,-0.2
n,nodemax+3,-0.2,0,-0.3
n,nodemax+4,-0.2,0,-0.4
n,nodemax+5,-0.2,0,-0.5
n,nodemax+6,-0.2,0,-0.6
n,nodemax+7,-0.2,0,-0.7
type,5 !!独立电压源赋值
real,20
e,nodemax+1,nodemax+2,nodemax+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemax+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,11
vsel,r,real,,4 !!左原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,1,curr,a ll !定义电流耦合集1
cp,2,emf,all !定义磁动势耦合集2
type,6 !!!左原边绞线圈赋值
real,22
e,nodemax+1,nodemax+2, nodemin1+1
vsel,s,esys,,11
vsel,r,real,,3 !!!左公共绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为左公共绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,3,curr,all !定义电流耦合集3
cp,4,emf,all !定义磁动势耦合集4
type,6 !!!左公共绞线圈赋值
real,22
e,nodemax+4,nodemax+5, nodemin1+1
type,4 !!!电阻赋值
real,21
e,nodemax+4,nodemax+5
allsel,all
nsel,s,,,nodemax+5
d,all,volt,0 !0电位参考点
type,5 !!独立电压源赋值
real,20
e,nodemax+1,nodemax+2,nodemax+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemax+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,11
vsel,r,real,,4 !!左原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,1,curr,all !定义电流耦合集1
cp,2,emf,all !定义磁动势耦合集2
type,6 !!!左原边绞线圈赋值
real,22
e,nodemax+1,nodemax+2, nodemin1+1
vsel,s,esys,,11
vsel,r,real,,2 !!!左延边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为左延边绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,5,curr,all !定义电流耦合集5
cp,6,emf,all !定义磁动势耦合集6
type,6 !!!左延边绞线圈赋值
real,22
e,nodemax+6,nodemax+7, nodemin1+1
type,4 !!!电阻赋值
real,23
e,nodemax+6,nodemax+7
allsel,all
nsel,s,,,nodemax+7
d,all,volt,0 !0电位参考点
r,24,220,0 !!!右原边独立电压源
r,25,5.39 !!!右公共电阻
r,26,1 !!!绞线圈
r,27,2.78 !!!右延边电阻
allsel,all
*get,nodemaxr,node,,num,max
n,nodemaxr+1,0.2,0,-0.1 !创建节点（中心坐标系）
n,nodemaxr+2,0.2,0,-0.2
n,nodemaxr+3,0.2,0,-0.3
n,nodemaxr+4,0.2,0,-0.4
n,nodemaxr+5,0.2,0,-0.5
n,nodemaxr+6,0.2,0,-0.6
n,nodemaxr+7,0.2,0,-0.7
type,5 !!独立电压源赋值
real,24
e,nodemaxr+1,nodemaxr+2,nodemaxr+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemaxr+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,12
vsel,r,real,,7 !!右原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,7,curr,all !定义电流耦合集7
cp,8,emf,all !定义磁动势耦合集8
type,6 !!!右原边绞线圈赋值
real,26
e,nodemaxr+1,nodemaxr+2, nodemin1r+1
vsel,s,esys,,12
vsel,r,real,,6 !!!右公共绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,ma x !!!为右公共绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,9,curr,all !定义电流耦合集9
cp,10,emf,all !定义磁动势耦合集10
type,6 !!!右公共绞线圈赋值
real,26
e,nodemaxr+4,nodemaxr+5, nodemin1r+1
type,4 !!!右公共电阻赋值
real,25
e,nodemaxr+4,nodemaxr+5
allsel,all
nsel,s,,,nodemaxr+5
d,all,volt,0 !0电位参考点
type,5 !!独立电压源赋值
real,24
e,nodemaxr+1,nodemaxr+2,nodemaxr+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemaxr+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,12
vsel,r,real,,7 !!右原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,7,curr,all !定义电流耦合集7
cp,8,emf,all !定义磁动势耦合集8
type,6 !!!右原边绞线圈赋值
real,26
e,nodemaxr+1,nodemaxr+2, nodemin1r+1
vsel,s,esys,,12
vsel,r,real,,5 !!!右延边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,max !!!为右延边绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,11,curr,all !定义电流耦合集11
cp,12,emf,all !定义磁动势耦合集12
type,6 !!!右延边绞线圈赋值
real,26
e,nodemaxr+6,nodemaxr+7, nodemin1r+1
type,4 !!!电阻赋值
real,27
e,nodemaxr+6,nodemaxr+7
allsel,all
nsel,s,,,nodemaxr+7
d,all,volt,0 !0电位参考点
!边界条件
csys,0 !卡迪尔坐标系
wpcsys,-1,0 !回归坐标系
allsel,all
vplot
ASEL,S,EXT !选择外部面
!csys,0
asel,u,loc,z,-0.01,0.01 !选择-0.01<Z<0.01以外的面
SFA,all, ,INf !!!面载荷外表面无限元素
asel,s,loc,z,-0.001,0.001 !选择-0.01<Z<0.01的面
DA,all,ASYM !!!定义不对称面约束
allsel,all
finish
/solu
ANTYPE,3 !模态分析
OUTPR,basic,LAST !控制输出文件的记录内容
HARFRQ,50,50, !定义谐波响应分析中的频率范围
solve
corediam=95*1e-3 !铁心直径
icorewindow=295*1e-3 !铁心内长
ocorewindow=390*1e-3 !铁心外长
corecentra=435*1e-3 !铁心中心距
w1=108 !原边绕组匝数
w2=97 !公共绕组匝数
w3=56 !延伸绕组匝数(靠近铁心)
gap1=8.5*1e-3 !延伸绕组与铁心之间的间隙
gap2=7.0*1e-3 !延伸绕组与公共绕组的间隙
gap3=16.5*1e-3 !原边绕组与公共绕组的间隙
u1=220 !原边绕组电压
u2=196.7025 !公共绕组电压
u3=113.5662 !延伸绕组电压
!nc=6 !!绕组数
!*dim,i,array,nc !定义一个数组参数及尺寸
!*dim,coils,char,nc !定义一个字符参数及尺寸
!i(1)=40.8248 !左原边绕组电流
!i(2)=23.5702 !左公共绕组电流
!i(3)=40.8248 !左延伸绕组电流
!i(4)=40.8248 !右原边绕组电流
!i(5)=23.5702 !右公共绕组电流
!i(6)=40.8248 !右延伸绕组电流
!coils(1)='wind1' !左延伸绕组
!coils(2)='wind2' !左公共绕组
!coils(3)='wind3' !左原边
!coils(4)='wind4' !右延伸绕组
!coils(5)='wind5' !右公共绕组
!coils(6)='wind6' !右原边绕组
extendwidth=39*1e-3 !延伸绕组径向宽度
publicwidth=31*1e-3 !公共绕组径向宽度
primarywidth=63*1e-3 !原边绕组径向宽度
windingshigh=201*1e-3 !绕组的轴向高度
iextenddiam=corediam+gap1*2 !!!延伸绕组内直径
oextenddiam=iextenddiam+extendwidth*2 !!!延伸绕组外直径
ipublicdiam=oextenddiam+gap2*2 !!!公共绕组内直径
opublicdiam=ipublicdiam+publicwidth*2 !!!公共绕组外直径
iprimarydiam=opublicdiam+gap3*2 !!!原边绕组内直径
oprimarydiam=iprimarydiam+primarywidth*2 !!!原边绕组外直径
tanklength=950*1e-3 !!!油箱长
tankwidth=540*1e-3 !!!油箱宽
tankhigh=650*1e-3 !!!油箱高
/title,coupled-field transformers
/prep7
et,1,solid97 !!!铁心和铁轭以及内层空气
et,2,solid97,3 !!!绕组
et,3,infin111,1 !!!模拟无穷远边界
et,4,circu124,0 !!!电阻
et,5,circu124,4 !!!独立电压源
et,6,circu124,5 !!!stranded coil
EMUNIT,MKS
!!!定义材料属性
mp,murx,1,1 !!!线圈
mp,rsvx,1,1.7241*1e-8 !!!线圈的电阻
mp,murx,2,1 !!!空气
mp,murx,3,60000 !!!RELATIVE PERMEABILITY of core
!!!建立模型
cylind,0,corediam/2,0,ocorewindow,0,360 !以工作平面圆点为中心生成半圆柱体（铁心）
wpoffs,corecentra !X方 向偏移工作平面铁心中心距
cylind,0,corediam/2,0,ocorewindow,0,360 !以工作平面圆点为中心生成半圆柱体（铁心）
wpcsys,-1,0 !平面坐标回归
block,0,corecentra,-corediam/2,corediam/2,0,corediam/2 !建填充体
wpoffs,,,icorewindow+corediam/2
block,0,corecentra,-corediam/2,corediam/2,0,corediam/2 !建填充体
wpcsys,-1,0 !平面坐标回归
allsel,all
vovlap,all !体搭接
vglue,all !体间相互粘接
numcmp,all
vsel,all
*get,vmax1,volu,,num,max
vsel,all
vatt,3,1,1,0 !赋铁心属性
wpoffs,,,ocorewindow/2 !z方向偏移工作平面铁心外长/2
cswpla,11,1,1,1 !建立坐标系11
cylind,iextenddiam/2,oextenddiam/2,-windingshigh/2,windingshigh/2,0,360 !左延伸绕组
vsel,s,,,vmax1+1
vplot
vatt,1,2,2,11 !赋左延伸绕组属性
cylind,ipublicdiam/2,opublicdiam/2,-windingshigh/2,windingshigh/2,0,360 !左公共绕组
vsel,s,,,vmax1+2
vplot
vatt,1,3,2,11 !赋左公共绕组属性
cylind,iprimarydiam/2,oprimarydiam/2,-windingshigh/2,windingshigh/2,0,360 !左原边绕组
vsel,s,,,vmax1+3
vplot
vatt,1,4,2,11 !赋左原边绕组属性
wpoffs,corecentra !X方向偏移工作平面铁心中心距
cswpla,12,1,1,1 !建立坐标系12
cylind,iextenddiam/2,oextenddiam/2,-windingshigh/2,windingshigh/2,0,360 !右延伸绕组
vsel,s,,,vmax1+4
vplot
vatt,1,5,2,12 !赋右延伸绕组属性
cylind,ipublicdiam/2,opublicdiam/2,-windingshigh/2,windingshigh/2,0,360 !右公共绕组
vsel,s,,,vmax1+5
vplot
vatt,1,6,2,12 !赋右公共绕组属性
cylind,iprimarydiam/2,oprimarydiam/2,-windingshigh/2,windingshigh/2,0,360 !右原边绕组
vsel,s,,,vmax1+6
vplot
vatt,1,7,2,12 !赋右原边绕组属性
allsel,all
numcmp,all
*get,vmax2,volu,,num,max
allsel,all
vplot
wpcsys,-1,0
wpoffs,corecentra/2,,ocorewindow/2
allsel,all
block,-tanklength,tanklength,-tankhigh,tankhigh,-tankwidth,tankwidth !油箱
allsel,all
vovlap,all
numcmp,all
*get,vmax3,volu,,num,max
vsel,s,,,vmax2+1,vmax3,1
vplot
vatt,2,8,1,0 !赋空气属性
vsel,s,esys,,11
vsel,r,real,,2
vplot !选择单元子集2左延伸绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,11
vsel,r,real,,3
vplot !选择单元子集3左公共伸绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,11
vsel,r,real,,4
vplot !选择单元子集4左原边绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,12
vsel,r,real,,5
vplot !选择单元子集5右延伸绕组(设置为实数绝对值)
vsweep,all
vsel,s,esys,,12
vsel,r,real,,6
vplot !选择单元子集6右公共伸绕组(设置为实数绝对值)
vsweep,all
vsel,s ,esys,,12
vsel,r,real,,7
vplot !选择单元子集7右原边绕组(设置为实数绝对值)
vsweep,all
vsel,s,real,,1,8,7
VPLOT
mshape,1,3d
mshkey,0 !自由网格
smrtsize,1
vmesh,all !网格化
!原边绕组常数
pi=atan(1)*4
primarycare=primarywidth*windingshigh !原边绕组截面积
wdiam=8*1e-3 !导线直径 自己假设的
primarycare1=w1*pi*wdiam*wdiam/4 !导线截面积
primaryfill=primarycare1/primarycare !!! !屏蔽系数5428.7/12663
vsel,s,esys,,11
vsel,r,real,,4 !!!选择左原边绕组
vsum
*get,primaryvolua,volu,,volu !
r,4,primarycare,w1,primaryvolua,0,1,0 !!!左原边绕组赋电气参数
rmore,2,primaryfill
vsel,s,esys,,12
vsel,r,real,,7 !!!选择右原边绕组
vsum
*get,primaryvolua,volu,,volu !
r,7,primarycare,w1,primaryvolua,0,1,0 !!!右原边绕组赋电气参数
rmore,2,primaryfill
!公共绕组常数
publiccare=publicwidth*windingshigh !公共绕组截面积
publiccare1=w2*pi*wdiam*wdiam/4 !导线截面积
publicfill=publiccare1/publiccare !!! !屏蔽系数4875.7/6231
vsel,s,esys,,11
vsel,r,real,,3 !!!选择左公共绕组
vsum
*get,publicvolua,volu,,volu !
r,3,publiccare,w2,publicvolua,0,1,0 !!!左公共绕组赋电气参数
rmore,2,publicfill
vsel,s,esys,,12
vsel,r,real,,6 !!!选择右公共绕组
vsum
*get,publicvolua,volu,,volu !
r,6,publiccare,w2,publicvolua,0,1,0 !!!右公共绕组赋电气参数
rmore,2,publicfill
!延边绕组常数
extendcare=extendwidth*windingshigh !延边绕组截面积
extendcare1=w3*pi*wdiam*wdiam/4 !导线截面积
extendfill=extendcare1/extendcare !!! !屏蔽系数2815/7839
vsel,s,esys,,11
vsel,r,real,,2 !!!选择左延边绕组
vsum
*get,extendvolua,volu,,volu !
r,2,extendcare,w3,extendvolua,0,1,0 !!!左延边绕组赋电气参数
rmore,2,extendfill
vsel,s,esys,,12
vsel,r,real,,5 !!!选择右延边绕组
vsum
*get,extendvolua,volu,,volu !
r,5,extendcare,w3,extendvolua,0,1,0 !!!右延边绕组赋电气参数
rmore,2,extendfill
r,20,220,0 !!!原边独立电压源
r,21,5.39 !!!左公共电阻
r,22,1 !!!绞线圈
r,23,2.78 !!!左延边电阻
allsel,all
*get,nodemax,node,,num,max
n,nodemax+1,-0.2,0,-0.1 !创建节点（中心坐标系）
n,nodemax+2,-0.2,0,-0.2
n,nodemax+3,-0.2,0,-0.3
n,nodemax+4,-0.2,0,-0.4
n,nodemax+5,-0.2,0,-0.5
n,nodemax+6,-0.2,0,-0.6
n,nodemax+7,-0.2,0,-0.7
type,5 !!独立电压源赋值
real,20
e,nodemax+1,nodemax+2,nodemax+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemax+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,11
vsel,r,real,,4 !!左原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,1,curr,a ll !定义电流耦合集1
cp,2,emf,all !定义磁动势耦合集2
type,6 !!!左原边绞线圈赋值
real,22
e,nodemax+1,nodemax+2, nodemin1+1
vsel,s,esys,,11
vsel,r,real,,3 !!!左公共绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为左公共绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,3,curr,all !定义电流耦合集3
cp,4,emf,all !定义磁动势耦合集4
type,6 !!!左公共绞线圈赋值
real,22
e,nodemax+4,nodemax+5, nodemin1+1
type,4 !!!电阻赋值
real,21
e,nodemax+4,nodemax+5
allsel,all
nsel,s,,,nodemax+5
d,all,volt,0 !0电位参考点
type,5 !!独立电压源赋值
real,20
e,nodemax+1,nodemax+2,nodemax+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemax+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,11
vsel,r,real,,4 !!左原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,1,curr,all !定义电流耦合集1
cp,2,emf,all !定义磁动势耦合集2
type,6 !!!左原边绞线圈赋值
real,22
e,nodemax+1,nodemax+2, nodemin1+1
vsel,s,esys,,11
vsel,r,real,,2 !!!左延边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1,node,,num,max !!!为左延边绕组绞线圈选节点
*get,nodemin1,node,,num,min
cp,5,curr,all !定义电流耦合集5
cp,6,emf,all !定义磁动势耦合集6
type,6 !!!左延边绞线圈赋值
real,22
e,nodemax+6,nodemax+7, nodemin1+1
type,4 !!!电阻赋值
real,23
e,nodemax+6,nodemax+7
allsel,all
nsel,s,,,nodemax+7
d,all,volt,0 !0电位参考点
r,24,220,0 !!!右原边独立电压源
r,25,5.39 !!!右公共电阻
r,26,1 !!!绞线圈
r,27,2.78 !!!右延边电阻
allsel,all
*get,nodemaxr,node,,num,max
n,nodemaxr+1,0.2,0,-0.1 !创建节点（中心坐标系）
n,nodemaxr+2,0.2,0,-0.2
n,nodemaxr+3,0.2,0,-0.3
n,nodemaxr+4,0.2,0,-0.4
n,nodemaxr+5,0.2,0,-0.5
n,nodemaxr+6,0.2,0,-0.6
n,nodemaxr+7,0.2,0,-0.7
type,5 !!独立电压源赋值
real,24
e,nodemaxr+1,nodemaxr+2,nodemaxr+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemaxr+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,12
vsel,r,real,,7 !!右原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,7,curr,all !定义电流耦合集7
cp,8,emf,all !定义磁动势耦合集8
type,6 !!!右原边绞线圈赋值
real,26
e,nodemaxr+1,nodemaxr+2, nodemin1r+1
vsel,s,esys,,12
vsel,r,real,,6 !!!右公共绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,ma x !!!为右公共绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,9,curr,all !定义电流耦合集9
cp,10,emf,all !定义磁动势耦合集10
type,6 !!!右公共绞线圈赋值
real,26
e,nodemaxr+4,nodemaxr+5, nodemin1r+1
type,4 !!!右公共电阻赋值
real,25
e,nodemaxr+4,nodemaxr+5
allsel,all
nsel,s,,,nodemaxr+5
d,all,volt,0 !0电位参考点
type,5 !!独立电压源赋值
real,24
e,nodemaxr+1,nodemaxr+2,nodemaxr+3 !通过节点创建单元
allsel,all
nsel,s,,,nodemaxr+2
d,all,volt,0 !给电压参考点赋值0
vsel,s,esys,,12
vsel,r,real,,7 !!右原边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,max !!!为高压绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,7,curr,all !定义电流耦合集7
cp,8,emf,all !定义磁动势耦合集8
type,6 !!!右原边绞线圈赋值
real,26
e,nodemaxr+1,nodemaxr+2, nodemin1r+1
vsel,s,esys,,12
vsel,r,real,,5 !!!右延边绕组电流耦合和磁动势耦合
eslv,s
nsle,s
*get,nodemax1r,node,,num,max !!!为右延边绕组绞线圈选节点
*get,nodemin1r,node,,num,min
cp,11,curr,all !定义电流耦合集11
cp,12,emf,all !定义磁动势耦合集12
type,6 !!!右延边绞线圈赋值
real,26
e,nodemaxr+6,nodemaxr+7, nodemin1r+1
type,4 !!!电阻赋值
real,27
e,nodemaxr+6,nodemaxr+7
allsel,all
nsel,s,,,nodemaxr+7
d,all,volt,0 !0电位参考点
!边界条件
csys,0 !卡迪尔坐标系
wpcsys,-1,0 !回归坐标系
allsel,all
vplot
ASEL,S,EXT !选择外部面
!csys,0
asel,u,loc,z,-0.01,0.01 !选择-0.01<Z<0.01以外的面
SFA,all, ,INf !!!面载荷外表面无限元素
asel,s,loc,z,-0.001,0.001 !选择-0.01<Z<0.01的面
DA,all,ASYM !!!定义不对称面约束
allsel,all
finish
/solu
ANTYPE,3 !模态分析
OUTPR,basic,LAST !控制输出文件的记录内容
HARFRQ,50,50, !定义谐波响应分析中的频率范围
solve
用的ANSYS吗