finish
/clear
/prep7
et,1,shell181
et,2,mpc184
keyopt,2,1,1
mp,ex,1,2.1e5
mp,prxy,1,0.3
mp,dens,1,7850-e12
K,1,135
k,2,70,2000
L,1,2
k,3,0
k,4,0,2000
arotat,1,,,,,,3,4
!=============
!定义表数组
*dim,TK,table,4,1,1,Y
TK(1,0)=0,2000
TK(1,1)=30,10
sectype,1,shell
secfunction,%TK%
!==================
allsel,all
esize,20
amesh,all
!==================
/eshape,1
*get,nummax,node,0,num,maxd
n,nummax+1,0,2000
n,nummax+2,0,2500
type,2
E,nummax+1,nummax+2
nsel,s,loc,y,2000
cerig,nummax+1,all,all
!=======================
allsel,all
/solu
nsel,s,loc,y,0
d,all,all,0
allsel,all
f,nummax+2,fx,10e3
allsel,all
solve
/post1
plnsol,u,sum
finish
/clear
/prep7
et,1,solid185
et,2,mpc184
keyopt,2,1,1
mp,ex,1,2.1e5
mp,prxy,1,0.3
mp,dens,1,7850-e12
!=============
K,1,120
k,2,150
k,3,65,2000
k,4,75,2000
a,1,2,4,3
k,6,0
k,7,0,2000
vrotat,1,,,,,,6,7
!==============
lsel,s,length,,10,30
lesize,all,,,3
esize,20
vsweep,all
!==================
/eshape,1
*get,nummax,node,0,num,maxd
n,nummax+1,0,2000
n,nummax+2,0,2500
type,2
E,nummax+1,nummax+2
nsel,s,loc,y,2000
cerig,nummax+1,all,all
!=======================
allsel,all
/solu
nsel,s,loc,y,0
d,all,all,0
allsel,all
f,nummax+2,fx,10e3
allsel,all
solve
/post1
plnsol,u,sum
暂无评论内容