ansys3.txt

我做的一些ansys的练习,命令流,对学习ansys很有帮助

/prep7
et,1,solid45
mp,ex,1,2e5
mp,prxy,1,0.3
mp,dens,1,7.8e-6
r1=20
r2=30
r3=40
r4=60
r5=70
r6=(r4+r3)/2
h2=20
h1=30
h3=30
ang=15
ang1=3
ang2=6
ang3=ang-ang2
ang4=ang-ang1
k,1,r1
k,2,r4
k,3,r4,,h3
k,4,r3,,h3
k,5,r3,,h2
k,6,r2,,h2
k,7,r2,,h1
k,8,r1,,h1
a,1,2,3,4,5,6,7,8
k,10
k,11,,,10
vrot,1,,,,,,10,11,ang
csys,1
k,51,r5,ang3
k,52,r4+0.95*(r5-r4),ang3+0.125*(ang4-ang3)
k,53,r4+0.88*(r5-r4),ang3+0.25*(ang4-ang3)
k,54,r4+0.76*(r5-r4),ang3+0.375*(ang4-ang3)
k,55,r4+0.58*(r5-r4),ang3+0.5*(ang4-ang3)
k,56,r4+0.35*(r5-r4),ang3+0.625*(ang4-ang3)
k,57,r4+0.16*(r5-r4),ang3+0.75*(ang4-ang3)
k,58,r4+0.08*(r5-r4),ang3+0.875*(ang4-ang3)
k,59,r4,ang4
ksel,s,,,51,59
bsplin,all
k,61,r5,ang2
k,62,r4+0.95*(r5-r4),ang2+1*(ang1-ang2)/8
k,63,r4+0.88*(r5-r4),ang2+1*(ang1-ang2)/4
k,64,r4+0.76*(r5-r4),ang2+3*(ang1-ang2)/8
k,65,r4+0.58*(r5-r4),ang2+(ang1-ang2)/2
k,66,r4+0.35*(r5-r4),ang2+5*(ang1-ang2)/8
k,67,r4+0.16*(r5-r4),ang2+6*(ang1-ang2)/8
k,68,r4+0.08*(r5-r4),ang2+7*(ang1-ang2)/8
k,69,r4,ang1
ksel,s,,,61,69
bsplin,all
allsel
l,51,61
l,59,69
lplot
/pnum,line,1
lsel,s,loc,x,r1
lsel,r,loc,y
*get,lin_num,line,,num,max
vdrag,11,,,,,,lin_num
vdrag,l1,,,,,,lin_num
*get,lin_num,line,,num,max
vdrag,l1,,,,,,lin_num
/pnum,line,1
lsel,s,,,25,28
al,all
allsel
aplot
/pnum,area,1
lsel,s,loc,x,r1
lsel,r,loc,y
*get,lin_num,line,,num,max
vdrag,l1,,,,,,lin_num
adrag,a11,,,,,,lin_num
vadd,all
/replot
asel,s,loc,x,r3,r5
asel,r,loc,z,h3
aadd,all
allsel,s,loc,z
allsel
asel,s,loc,z
aadd,all
vplot
/replot
allsel
smrtsize,4
type,1
mshap,1,3
mshap,1,3d
mshap,1,3d
vmesh,all
allsel
nsel,s,loc,y
cm,low,node
nrot,all
nsel,s,loc,y,ang
cm,high,node
nrot,all
allsel
cyclic,360/ang,ang,1,cyclic
/cycexpand,1,on
/replot
allsel
/solu
nsel,s,loc,x,r1
d,all,all
allsel
antype,2
modopt,lanb,5
mxpand,5
solve
/post1
set,frist
pldisp,0
anmode,10,0.05
set,last
pldisp,0
anmode,10,0.05