钢筋混凝土管的动力响应特性分析实例

发布日期:[08-12-04 12:37:31] 浏览人次:[]

X,R9
D,ALL,UX,0
D,ALL,UY,0
ALLSEL,ALL
CSYS,0

*DO,I,1,ZBC

*IF,I,GT,1,AND,I,LE,XHCXSJ,THEN!在信号持续时间段延续脉冲子波
*DO,J,1,R1NUM
*GET,RNX, NODE,R1NODE(J,1), LOC, X
*GET,RNY, NODE,R1NODE(J,1), LOC, Y
NN=R1NODE(J,1)
PIFT=PI*ZYPL*(I-T0I)*DT
PIFT=PIFT**2
AC=-(1-2*PIFT)*EXP(-PIFT)!RECKER子波,何兵寿,P48
F,NN,FX,AC*RNX/R1 !施加X方向作用力
F,NN,FY,AC*RNY/R1!施加Y方向作用力
*ENDDO
*ENDIF

*IF,I,EQ,XHCXSJ+1,THEN!在XHCXSJ+1时刻,删除作用在节点上的位移
FDELE,ALL!在信号持续时间结束后,删除所有作用力
*ENDIF

TIME,I*DT
SOLVE

*DO,K,1,R1NUM
NUM_NODE=R1NODE(K)
RX=R1NODEXY(K,1)
RY=R1NODEXY(K,2)
*GET, USUMR1, NODE, NUM_NODE,U,SUM !输出节点编号,极坐标R,角度,USUM
*VWRITE,I,K,NUM_NODE,USUMR1
(F10.0,F10.0,F10.0,E13.3)
*ENDDO

*ENDDO
SAVE
FINISH
*CFCLOSE

/POST26

BNODEN=NODE(0,R1,0)
BNODES=NODE(0,-R1,0)
FILE,''file'',''rst'',''.''
NSOL,2,BNODES,U,X,uxs
NSOL,4,BNODES,U,Y,uys
NSOL,3,BNODEN,U,X,uxn
NSOL,5,BNODEN,U,Y,uyn
PLVAR,uxs,uxn
/IMAGE,SAVE,UXS_N,JPG
PLVAR,uys,uyn, , , , , , ,
/IMAGE,SAVE,UYS_N,JPG
FINISH

/POST1
LOCAL, 11, 1, 0, 0!定义局部坐标系,柱体
CSYS,11
NSEL,S,LOC,X,R1,R5
ESEL,ALL
ESLA,S
EPLOT
PLNS,U,SUM
ANDATA,0.5, ,2,1,zbc,10,0,1
FINISH
|<< << < 1 2 3 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:钢筋  混凝土    动力响应  特性  分析  实例
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务