|
一带缺口的梁,一端受压确定其临界载荷.梁尺寸10×10×300，缺口尺寸10×4×10，受力Fz=5000N.
得位移----载荷如下:得临界载荷Fcr=3606.74N
*set,length,10
*set,width,10
*set,height,300
*set,crac_len,4
*set,crac_wid,10
*set,crac_hei,10
*set,force,5000
/PREP7
ET,1,solid45
MP,EX,1,200e3
MP,PRXY,1,0.3
TB,BISO,1
TBDATA,1,400
TBDATA,2,20E3
!MODEL
BLOCK,0,length,0,width,0,height
K,9,0,0,(height/2)-(crac_hei/2)
KWPAVE,9
CSYS,4
BLOCK,0,crac_len,0,crac_wid,0,crac_hei
VSBV,1,2
KWPAVE, 13
VSBW, 3
KWPAVE, 15
VSBW, 2
wpro,,,90.000000
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,4
VSBW,P51X
!MESH
LESIZE,9, , ,20, , , , ,1
LESIZE,12, , ,20, , , , ,1
*do,i,25,28
LESIZE,i, , ,20, , , , ,1
*enddo
*do,i,35,36
LESIZE,i, , ,20, , , , ,1
LESIZE,i+3, , ,20, , , , ,1
*enddo
LESIZE,43, , ,20, , , , ,1
LESIZE,44, , ,20, , , , ,1
LESIZE,1, , ,6, , , , ,1
LESIZE,3, , ,6, , , , ,1
LESIZE,6, , ,6, , , , ,1
LESIZE,8, , ,6, , , , ,1
LESIZE,13, , ,6, , , , ,1
LESIZE,15, , ,6, , , , ,1
LESIZE,18, , ,6, , , , ,1
*do,i,20,21
LESIZE,i, , ,6, , , , ,1
*enddo
LESIZE,32, , ,6, , , , ,1
LESIZE,37, , ,6, , , , ,1
LESIZE,42, , ,6, , , , ,1
LESIZE,14, , ,2, , , , ,1
LESIZE,16, , ,2, , , , ,1
LESIZE,17, , ,2, , , , ,1
LESIZE,19, , ,2, , , , ,1
*do,i,45,48
LESIZE,i, , ,2, , , , ,1
*enddo
*do,i,10,11
LESIZE,i, , ,4, , , , ,1
*enddo
LESIZE,24, , ,4, , , , ,1
LESIZE,29, , ,4, , , , ,1
*do,i,30,31
LESIZE,i, , ,4, , , , ,1
LESIZE,i+10, , ,4, , , , ,1
*enddo
VMESH,2,3
VMESH,5,6
VMESH,7
!Define constrain and load
FLST,2,2,5,ORDE,2
FITEM,2,10
FITEM,2,27
DA,P51X,ALL,0
SAVE
/PREP7
F,1072,FZ,-5000
KBC,0
SAVE
/SOLU
ANTYPE,static
NLGEOM,on
NSUBST,12,0,0
ARCLEN,1,0,0
AUTOTS,-1.0
OUTRES,ALL,all
/STATUS,SOLU
SOLVE
FINISH
|