回复 6 # 笑话大哥 的帖子
!先将ACELX和ACELY文件放于工作目录下
!************读入地震波数据************
*DIM,tjx,ARRAY,2,190,0, , , !定义数组
*DIM,tjy,ARRAY,2,190,0, , , !定义数组
*CREATE,ansuitmp !读入数据
*VREAD,tjx(1,1),'ACELX','txt',' ',190, , , , , ,
(e9.3,e11.3)
*END
/INPUT,ansuitmp
*CREATE,ansuitmp !读入数据
*VREAD,tjy(1,1),'ACELY','txt',' ',190, , , , , ,
(e9.3,e11.3)
*END
/INPUT,ansuitmp
!****************求解****************
/SOLU
ANTYPE,4 !指定分析类型为瞬态动力学分析
TRNOPT,FULL !瞬态动力学分析采用FULL法
!**************地震载荷**************
*DO,T,1,190,1 !循环读入地震数据并求解
TIME,0.1*T !设置时间步
KBC,0 !指定载荷为递增载荷
NSUB,1 !设定子步数为1
ALPHAD,0.05 !设定质量阻尼ALPHA为0.05
BETAD,0.01 !设定刚度阻尼BETA为0.01
ACEL,TJX(2,T),TJY(2,T) !设定x,y方向加速度
ALLS !选中所有元素
SOLVE !求解
*ENDDO
SAVE !保存 |