!EX7.8 含有耦合或約束方程的特征值屈曲分析
finish
/clear
/prep7
et,1,beam3
mp,ex,1,2.1e11
mp,prxy,1,0.3
r,1,0.1,0.01,0.1
l=4
k,1
k,2,0,l
k,3,l/2,l
k,4,l/2,l
k,5,l,l
k,6,l
l,1,2
l,2,3
l,4,5
l,5,6
lesize,all,,,5
lmesh,all
dk,1,all
dk,6,all
lsel,s,loc,y,l
esll,s
sfbeam,all,1,pres,1.0
allsel,all
cpintf,ux
cpintf,uy
!ce,1,0,7,ux,1,12,ux,-1
!ce,2,0,7,uy,1,12,uy,-1
/solu
antype,0
pstres,on
solve
finish
/solu
antype,1
bucopt,lanb,2
solve
/post1
set,list