|
楼主 |
发表于 2015-7-13 21:32
|
显示全部楼层
/config,nres,30000
/config,fsplit,750
/solu
antype,trans
KBC,1
TIMINT,ON
!打开瞬态效应开关
nsubst,2
fre_1=4.8
!1阶频率Hz,w=2*pi*f,由模态分析计算获得
fre_2=13.2
!2阶频率Hz,w=2*pi*f
alfa=0.03*4*3.14*fre_1*fre_2/(fre_1+fre_2)
!按瑞雷阻尼计算,阻尼比取0.03,振型取主振型和第二振型
beta=0.03/3.14/(fre_1+fre_2)
!按瑞雷阻尼计算
ALPHAD,alfa
!定义质量阻尼系数
BETAD,beta
!定义刚度阻尼系数
TRNOPT,FULL
outres,all,none
outres,a,all,n_shuchu
outres,v,all,n_shuchu
outres,nsol,all,n_shuchu
/input,READ_node,txt !----------读入节点号
j1=1
K1=1
K2=1
j1=1
j2=1
/input,read_force,txt
*do,i,1,1134,1 !-----------------------循环开始
time,j1*deltti
fdele,all,all
/input,READ_APPLYFORCE,txt !施加力
j1=j1+1
SOLVE
SAVE
!------------------循环停止
*enddo
SAVE
|
|