这个问题困扰好久了,请大家不吝赐教!谢谢!
/batch,list
/filename,diangan
/prep7
shpp,off
/title,diangan
/com,
/com,
! Input Data
row=0.01
ric=0.037
roc=0.046
ro=0.08
t=0.006
cond=1.023e7
freq=2000
pi=4*atan(1)
muzero=4e-7*pi
mur=100
skind=sqrt(1/(pi*freq*muzero*mur*cond))
et,1,PLANE53,2,,1 !载压绞线圈
et,2,PLANE53,,,1
emunit,mks
mp,murx,1,1 !空气的相对磁导率
mp,murx,3,1 !铜的相对磁导率
mp,murx,2,100 !铁的相对磁导率
mptemp !铁的电阻率
mptemp,1,0,120,240,360,480,600
mptemp,7,720,840,900
mpdata,rsvx,2,1,8.59e-8,16.03e-8,23.62e-8,31.2e-8,38.8e-8,45.37e-8
mpdata,rsvx,2,7,53.96e-8,61.54e-8,65.34e-8
mptemp !铜的电阻率
mptemp,1, 0,10,20,30,40,50
mptemp,7, 60,70,80,90,100
mpdata,rsvx,2,1,1.65e-8,1.7148e-8,1.780e-8,1.8445e-8,1.90938e-8,1.9742e-8
mpdata,rsvx,2,7,2.03907e-8,2.103915e-8,2.16876e-8,2.2336e-8,2.29845e-8
r,1,9*12,120,2,1
rectng,0,row,0,t
rectng,row,ric,0,t
rectng,ric,roc,0,t
rectng,roc,ro,0,t
aglue,all
numcmp,area
ksel,s,loc,x,row
kesize,all, skind/5
ksel,s,loc,x,0
kesize,all, skind
lsel,s,loc,y,t/2
lesize,all,,,1
lsel,all
asel,s,area,,1
aatt,2, ,1
asel,s,area,,3
aatt,3,1,2
asel,s,area,,2,4,2
aatt,1, ,2
asel,all
mshape,0,2d
mshk,1
amesh,1
lsel,s,loc,y,0
lsel,a,loc,y,t
lsel,u,loc,x,row/2
lesize,all,0.001
lsel,all
amesh,all
nsel,s,loc,x,0
d,all,az,0
nsel,all
esel,s,mat,,3
cp,,cur,all
cm,ram,elem
bfe,all,vltg,,,,250
alls
/solu
antype,static
outres,,all,all
solve
save
finish
/post1
esel,s,mat,,3
etable,r,nmisc,8
etable,l,nmisc,9
ssum
finish
|