马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我做了一个磁流变弹性体夹层梁的模态分析,上下表层是铝,中间层是磁流变弹性体,其材料是硅胶和铁粉的混合物,假设磁流变弹性体的弹性模量不变,改变它的剪切模量,按道理夹层梁的固有频率会变化,可是结果没有变化,请高手帮忙看,过几天就要送审,急
命令流如下:
finish
/clear,start
/TITLE,CI
/prep7
!表层铝材料参数
*set,ex1,7.2e10
*set,nu1,0.35
*set,dens1,2700
!中心铝材料参数
*set,ex2,1.254e7
*set,nu2,0.47
*set,dens2,1100
! 设置表层材料
mp,ex,1,ex1 ! 弹性模量
mp,prxy,1,nu1 ! 泊松比
mp,dens,1,dens1 ! 密度
! 设置中间层材料
mp,ex,2,ex2
mp,nuxy,2,nu2
mp,dens,1,dens2
TB,bkin,2,1,6,0 ! 双线性随动硬化材料
tbtemp,0
tbdata,1,2.3e6 !屈服应力
tbdata,2,0e5 !切线模量
!单元类型
ET,1,SHELL91,,1
KEYOPT,1,1,16,
KEYOPT,1,2,1
KEYOPT,1,4,0
KEYOPT,1,5,1
KEYOPT,1,6,0
KEYOPT,1,8,0
KEYOPT,1,9,1
KEYOPT,1,10,0
KEYOPT,1,11,0
!设置实常数
KEYOPT,1,2,1
! 设置实常数
R,1
RMODIF,1,1,3,0, , , ,0
RMODIF,1,13,1,0,1,0,0,0,
RMODIF,1,19,2,0,10,0,0,0,
RMODIF,1,25,1,0,1,0,0,0,
! 建立模型
RECTNG,0,300,0,30,
! 划分网格
FLST,5,2,4,ORDE,2
FITEM,5,2
FITEM,5,4
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5, , , , ,1
FLST,5,2,4,ORDE,2
FITEM,5,1
FITEM,5,3
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,20, , , , ,1
MSHAPE,0,2D
MSHKEY,1
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
! 下面为模态分析过程
FINISH
/SOL
ANTYPE,2 ! 选择分析类型,2代表模态分析
! 施加约束
FLST,2,1,4,ORDE,1
FITEM,2,4
DL,P51X, ,ALL,
/VIEW,1,1,1,1
/ESHAPE,1.0
! 设置模态分析数据
MODOPT,LANB,5,0,0,,OFF,,2
!CYCSOL,0,2,28,'LOW','HIGH',,0,0
solve
FINISH
[ 本帖最后由 16443 于 2008-5-29 10:59 编辑 ] |