NT=150 !时程曲线有NT个点
*DIM,TIME,,NT
*DIM,AC_X,,NT
*DIM,AC_Y,,NT
*VREAD,TIME,TIME,TXT,,IJK,NT
(F6.2)
*VREAD,AC_X,AC_X,TXT,
(E10.3)
*VREAD,AC_Y,AC_Y,TXT,
(E10.3)
！分析选项设置与求解
/SOLU ！进入求解器
ANTYPE,TRANS ！定义分析类型
NSUBST,1, , ,1 ！定义荷载子步数
*DO,II,1,NT
！施加加速度荷载
ACEL,AC_X(II),AC_Y(II)
TIME,TIME(II) ！设置时间点
SOLVE ！求解
*ENDDO
[
本帖最后由 wyhang191 于 2009-7-17 22:25 编辑 ]
申明：内容来自用户上传，著作权归原作者所有，如涉及侵权问题，请点击此处联系，我们将及时处理！
全部回复（6 ）
只看楼主 我来说两句-
wyhang191
沙发
*VREAD,TIME,TIME,TXT,,NT 的修改
2009-08-06 13:44:06
赞同0
加载更多FINISH
*SET,NT,150
*DIM,TIME,,NT
*DIM,AC_X,,NT
*DIM,AC_Y,,NT
*CREATE,ansuitmp
*VREAD,TIME,'TIME','txt',' ',1, , , , , ,
(F6.2)
*END
/INPUT,ansuitmp
!*
*CREATE,ansuitmp
*VREAD,AC_X,'AC_X','txt',' ',1, , , , , ,
(E10.3)
*END
/INPUT,ansuitmp
!*
*CREATE,ansuitmp
*VREAD,AC_Y,'AC_Y','txt',' ',1, , , , , ,
(E10.3)
*END
/INPUT,ansuitmp
！分析选项设置与求解
/SOLU ！进入求解器
ANTYPE,TRANS ！定义分析类型
NSUBST,1, , ,1 ！定义荷载子步数
*DO,II,1,NT
！施加加速度荷载
ACEL,AC_X(II),AC_Y(II)
TIME,TIME(II) ！设置时间点
SOLVE ！求解
*ENDDO
FINISH
/POST26
NSOL,2,733,U,X,UX_1
NSOL,3,773,U,X,UX_2
NSOL,4,748,U,X,UX_3
NSOL,5,788,U,X,UX_4
NSOL,6,733,U,Y,UY_1
NSOL,7,773,U,Y,UY_2
NSOL,8,748,U,Y,UY_3
NSOL,9,788,U,Y,UY_4
PLVAR,2,3,4,5
PLVAR,6,7,8,9
FINISH
[ 本帖最后由 wyhang191 于 2009-8-6 14:09 编辑 ]
回复 举报