ANSYS单轴拉伸应力状态下电磁场分析apdl命令流
fini
/cleaar
/filename,struc
/PREP7 !进入前处理器
L=155e-3
b=35e-3
d=5e-3
L1=20e-3
b1=20e-3
R1=5e-3
L2=20e-3
b2=22e-3
R2=5e-3
L3=20e-3
b3=25e-3
R3=38e-3
h1=sqrt(2*(b/2-b3/2)*R3-(b/2-b3/2)**2)
h2=sqrt(2*(b3/2-b2/2)*R2-(b3/2-b2/2)**2)
h3=sqrt(2*(b2/2-b1/2)*R1-(b2/2-b1/2)**2)
h4=sqrt(2*(b/2-b1/2)*R3-(b/2-b1/2)**2)
hh=(L-h1-h2-h3-h4-L1-L2-L3)/2
k,1
k,2,b/2
k,3,b/2,hh
k,4,b3/2,hh+h1
k,5,b3/2,hh+h1+L3
k,6,b2/2,hh+h1+L3+h2
k,7,b2/2,hh+h1+L3+h2+L2
k,8,b1/2,hh+h1+L3+h2+L2+h3
k,9,b1/2,hh+h1+L3+h2+L2+h3+L1
k,10,b/2,L-hh
k,11,b/2,L
k,12,,L
k,21,b3/2+R3,hh+h1
k,22,b2/2+R2,hh+h1+L3+h2
k,23,b1/2+R1,hh+h1+L3+h2+L2+h3
k,24,b1/2+R3,hh+h1+L3+h2+L2+h3+L1
l,1,2
l,2,3
l,4,5
l,6,7
l,8,9
l,10,11
l,11,12
l,1,12
larc,3,4,21,R3
larc,5,6,22,R2
larc,7,8,23,R1
larc,9,10,24,R3
al,all
MPTEMP,1,0
!TBDE,MISO,1
MPDATA,EX,1,,206e9
MPDATA,PRXY,1,,0.3
TB,PLAS,1,1,3,MISO
TBTEMP,0
TBPT,,0,335e6
TBPT,,44e-3,580e6
TBPT,,100e-3,580e6
et,1,183,,,1 !八节点单元
smrt,1
amesh,all
alls
nsel,s,loc,y,0
d,all,all,0
alls
/SOLU !进入求解器
ANTYPE,0! 定义为稳态分析
NLGEOM,1
AUTOTS,1
nsub=20
*do,i,1,nsub
ll=i/nsub*L1
nsel,s,loc,y,L
d,all,uy,ll
time,ll
alls
solve
*enddo
fini
/post1
/REP,FAST
/RGB,INDEX,100,100,100, 0
/RGB,INDEX, 80, 80, 80,13
/RGB,INDEX, 60, 60, 60,14
/RGB,INDEX, 0, 0, 0,15
/PLOPTS,INFO,1
/PLOPTS,LEG1,1
/PLOPTS,LEG2,0
/PLOPTS,LEG3,1
/PLOPTS,FRAME,1
/PLOPTS,TITLE,1
/PLOPTS,MINM,1
/PLOPTS,FILE,0
/PLOPTS,LOGO,1
/PLOPTS,WINS,1
/PLOPTS,WP,0
/PLOPTS,DATE,0
/TRIAD,ORIG
/REPLOT
PLNS,S,EQV
ANTIME,50,0.2, ,1,2,0,0.2E-01
/show,jpeg
*do,i,1,nsub
set,i
PLNSOL, S,eqv, 0,1.0
*enddo
/show,close