新建 文本文档 (2).txt

来自「我做的一些ansys的练习,命令流,对学习ansys很有帮助」· 文本 代码 · 共 121 行

/prep7
l=80
l1=20
w=12
r1=60
r0=180
rout=200
p=1000
pex=50003
et,1,plane42
et,2,combin14
keyopt,1,3,2
keyopt,2,3,2
r,1,31416*pex/19
tb,dp,1
mp,ex,1,5000
mp,prxy,1,0.38
tb,dp,1
tbdata,1,10,30,30
mp,ex,2,2.2e5
mp,prxy,2,0.3
rect,-w/2,w/2,-1*l1,l-l1
pcirc,,r0,-180,0
pcirc,,r1,-180,0
aovl,all
numcmp,node
numcmp,line
numcmp,area
lplot
/pnum,line,1
/replot


lsel,s,,,3,4
lesize,all,,,24
allsel
lsel,s,,,5,6
lesize,all,,,10
allsel
lsel,s,,,11,12
lesize,all,,,10
allsel
lsel,s,,,9,10
lcom,all
allsel
lsel,s,,,1,2
lsel,a,,,7,9
lesize,all,,,8
allsel
lsel,s,,,13,14
lesize,all,,,16
allsel

mshape,0,2d
mshkey,2
mat,1
amesh,1
mat,2
asel,s,,,2,3
amesh,all
allsel
mat,1
lsel,s,,,1
lsel,a,,,7,8
lccat,all
allsel
amesh,4
allsel

csys,1
n,1001,rout,-180
ngen,25,1,1001,,,,7.5
type,2
real,1
e,1,1001
*do,i,3,25
e,i,1000+i-1
*enddo
e,2,1025

nsel,s,loc,x,r0
ngen,2,1100,all,,,r0*(2*1.732-3)/3,30
type,2
real,1
*do,i,1,25
e,i,1100+i
*enddo
allsel
eplot

/solu
nsel,s,loc,x,rout
nsel,a,loc,x,r0*(2*1.732)/3
d,all,all
allsel
csys,0
nsel,s,loc,y,l-l1
sf,all,pres,p
allsel
time,1
deltim,0.1,0.005,0.2
autot,on
cnvtol,f,,0.2,,20
nlgeom,on
pred,on
lnsrch,on
outpr,all,all
outres,all,all
solve

/post1
set,last
plnsol,u,x
plnsol,u,y
plnsol,u,sum
plnsol,s,x
plnsol,s,y
plnsol,s,z
plnsol,s,xy
plnsol,s,eqv
plnsol,epto,eqv