马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
读入地震波数据
- *DIM,TJX,ARRAY,2,50,0, , , !定义数组TJX
- *DIM,TJY,ARRAY,2,50,0, , , !定义数组TJY
- *CREATE,TEMP1 !创建临时宏文件
- *VREAD,TJX(1,1),'TJX','TXT',' ',50, , , , , , !读入数据
- (E9.3,E11.3) !读入数据格式
- *END !结束宏文件
- /INPUT,TEMP1 !读入宏文件TEMP1
- *CREATE,TEMP2 !创建临时宏文件
- *VREAD,TJY(1,1),'TJY','TXT',' ',50, , , , , , !读入数据
- (E9.3,E11.3) !读入数据格式
- *END !结束宏文件
- /INPUT,TEMP2 !读入宏文件TEMP2
- /SOLU !进行地震波求解
- KBC,0 !设置阶跃载荷
- NSUBST,10 !求解子步为10
- OUTRES,ALL,1 !输出所有内容
- ANTYPE,TRANS !进行瞬态求解
- *DO,T,1,50,1 !循环读入地震波数据
- TIME,T*0.1
- ACEL,TJX(2,T),,TJY(2,T) !施加加速度
- ALLSEL !选择所有实体
- SOLVE !进行求解
- *ENDDO !结束DO循环过程
复制代码 |