登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

为梦飞翔

我希望我身边的亲人和朋友天天快乐!

 
 
 

日志

 
 

悬链线拱桥的反应谱计算  

2010-04-01 15:21:04|  分类: Ansys |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 悬链线拱桥的反应谱计算 - 青春不浪费 - 为梦飞翔

 悬链线拱桥的反应谱计算 - 青春不浪费 - 为梦飞翔

 

 

 悬链线拱桥的反应谱计算 - 青春不浪费 - 为梦飞翔

 悬链线拱桥的反应谱计算 - 青春不浪费 - 为梦飞翔

 悬链线拱桥的反应谱计算 - 青春不浪费 - 为梦飞翔

 悬链线拱桥的反应谱计算 - 青春不浪费 - 为梦飞翔

 

 

 

fini
/clear
/filname,arch_analysis
/title,arch analysis
/prep7
et,1,beam44

mp,dens,1,2600
mp,prxy,1,0.1667
mp,ex,1,3.3e10

r,1,0.81,1/12*0.9**4,1/12*0.9**4,0.45,0.45

!定义半拱跨节点(13个节点,坐标bkjdx,bkjdy)
*dim,bkjdx,array,13
bkjdx(1)=0,1.6921,3.3842,5.0764,6.7685,8.4606,10.1527,11.8449,13.537,15.2291,16.9212,18.6134,20.3055

*dim,bkjdy,array,13
bkjdy(1)=0,1.38,2.62,3.71,4.67,5.50,6.21,6.80,7.28,7.64,7.91,8.06,8.11

*do,i,1,13
  n,i,bkjdx(i),bkjdy(i)
*enddo

!定义半拱跨轴线上的单元
allsel
type,1
mat,1
real,1
*do,i,1,12,1
  e,i,i+1
*enddo

local,11,0,20.3055           !定义局部坐标
csys,11

allsel
nsym,x,100,all
esym,,100,all

allsel
nummrg,all
numcmp,all
csys,0               !恢复整体坐标系

d,1,all              !施加约束
d,14,all

/eshape,1.0          !显示单元形状
eplot
allsel

!下面用反应谱对悬链线拱桥进行分析(分析2类场地)
/solu
antype,modal
modopt,subs,10        !子步法,提取10阶模态
mxpand,10,,,1
solve
finish

/solu
antype,spectr
spopt,mprs,10,on         !多点反应谱MPRS(Multi-point Response Spectrum对应单点反应谱SPRS Single-point Response Spectrum),10阶模态参与组合
psdunit,1,acel,9.8       !定义为加速度反应谱

psdfrq,1,,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0,1.1,1.2
psdval,1,0.03,0.03,0.03,0.03,0.03,0.04191308,0.048744807,0.055563492,0.062361852,

0.06914509,0.075914752,0.0826721

psdfrq,1,,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2.0,2.1,2.2,2.3,2.4
psdval,1,0.089418181,0.096153882,0.102879959,0.109597067,0.116305778,

0.123006597,0.1269997,0.136386299,0.143065941,0.149739223,0.156406439,0.163067857

psdfrq,1,,2.5,2.6,2.7,2.8,2.9,3,3.1,3.2,3.3,3.4,3.5,3.6
psdval,1,0.169723726,0.17637427,0.183019699,0.189660206,0.196295971,

0.20292716,0.209553929,0.216176423,0.222794779,0.25,0.25,0.25

psdfrq,1,,3.7,3.8,3.9,4,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8
psdval,1,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25

psdfrq,1,,4.9,5.0,5.1,5.2,5.3,5.4,5.5,5.6,5.7,5.8,5.9,6.0
psdval,1,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25

psdfrq,1,,6.1,6.2,6.3,6.4,6.5,6.6,6.7,6.8,6.9,7.0,7.1,7.2
psdval,1,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25

psdfrq,1,,7.3,7.4,7.5,7.6,7.7,7.8,7.9,8.0,8.1,8.2,8.3,8.4
psdval,1,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25

psdfrq,1,,8.5,8.6,8.7,8.8,8.9,9.0,9.1,9.2,9.3,9.4,9.5,9.6
psdval,1,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25

psdfrq,1,,9.7,9.8,9.9,10,10.1,10.2,10.3,10.4,10.5,10.6,10.7,10.8
psdval,1,0.25,0.25,0.25,0.25,0.223762376,0.22254902,0.221359223,0.220192308,

0.219047619,0.217924528,0.21682243,0.215740741

psdfrq,1,,10.9,11,11.1,11.2,11.3,11.4,11.5,11.6,11.7,11.8,11.9,12
psdval,1,0.214678899,0.213636364,0.212612613,0.211607143,0.210619469,

0.209649123,0.208695652,0.207758621,0.206837607,0.205932203,0.205042017,0.204166667

dmprat,0.05          !阻尼比
psdres,disp,rel      !将位移写入结果文件

nsel,s,d,u           !将选择所有被约束的点
d,all,ux,1           !x,y,z 三个方向地基点的动力系数
d,all,uy,1
d,all,uz,0.5

allsel
pfact,1,base          !计算参与系数
solve
fini

/solu
antype,spectr
srss,0.15,disp        !将贡献大于15%的模态合并
solve
save
fini

/post1
pldisp,1              !显示变形图
etable,mi,smisc,6
etable,mj,smisc,12
plls,mi,mj

  评论这张
 
阅读(175)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018