首页 岩土在线 评论员 岩土论坛 注册岩土 工程市场 岩土问答 岩土人才网 岩土领域 岩土企业
论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好！ 欢迎 登录 或 注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
热搜： 注册岩土规范勘察基坑
发帖 回复
返回列表
1234567
  • 22109阅读
  • 80回复

自编反应谱计算Fortran程序！ [复制链接]

 上一主题 下一主题
离线ricozhou1231
助理工程师
 

发帖
74
土币
611
威望
324
原创币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2010-04-12
昨天学习了hoverdyh博士的“自编反应谱计算MATLAB程序！”，收益颇多，但是matlab的一个重要的问题是在matlab的环境下才能运行，因此我试着稍微改编了一下m文件成Fortran程序，不过计算方法有所减少，只应用了纽马克线性加速度法计算反应谱，而且只能一次输出一个阻尼值对应的反应谱。通过对比seismosignal的计算结果，其默认计算方法与此程序的结果基本一样，误差不超过1%！特把fortran源程序以及exe文件贴出来，相互学习。 kvbW^pl  
]UEA"^  
注：反应谱计算fortran编写.rar 里的datainput.dat文件刚开始忘记输入阻尼了，现在已经改好重新贴上。
[ 此帖被ricozhou1231在2010-04-13 09:15重新编辑 ]
附件: newmarkresp.rar (2 K) 下载次数:433
附件: 反应谱计算fortran编写.rar (136 K) 下载次数:780
共2条评分 ，土币+5
little_stone 土币 +2 太好了！谢谢楼主！ 2011-08-06
jun_118899 土币 +3 优秀资料，感谢！ 2011-05-03
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线ghdong1986
工程师

发帖
60
土币
324
威望
631
原创币
0
只看该作者 1楼 发表于: 2010-04-13
感谢楼主为广大群众的奉献！
希望就在前方！
回复
举报
离线songbinghui
助理工程师

发帖
82
土币
2334
威望
370
原创币
0
只看该作者 2楼 发表于: 2010-04-13
呵呵  我正在学习中
回复
举报
离线steel20091
助理工程师

发帖
24
土币
7544
威望
230
原创币
0
只看该作者 3楼 发表于: 2010-04-13
感谢楼主分享
回复
举报
离线sjzdh01
总工

发帖
7445
土币
6525
威望
39615
原创币
0
只看该作者 4楼 发表于: 2010-04-15
谢谢楼主提供的资料
回复
举报
离线xmzk
副总工

发帖
933
土币
4
威望
3462
原创币
0
只看该作者 5楼 发表于: 2010-04-17
谢谢楼主提供的资料
回复
举报
离线zhangkun575
助理工程师

发帖
72
土币
10
威望
117
原创币
0
只看该作者 6楼 发表于: 2010-05-07
好好学习一下啊
主旋律 happy
回复
举报
离线japher
高级工程师

发帖
514
土币
7
威望
1019
原创币
0
只看该作者 7楼 发表于: 2010-05-08
多谢楼主，正好用到
回复
举报
离线天人合一
助理工程师

发帖
105
土币
1662
威望
380
原创币
0
只看该作者 8楼 发表于: 2010-05-09
谢谢，那段Matlab程序也想学习，麻烦能贴出不
回复
举报
离线ricozhou1231
助理工程师

发帖
74
土币
611
威望
324
原创币
0
只看该作者 9楼 发表于: 2010-05-11
回 8楼(天人合一) 的帖子
那段代码在咱们这个论坛上都有，你可以找一下
回复
举报
离线jasmine927
教授级高工

发帖
262
土币
19136
威望
2051
原创币
0
只看该作者 10楼 发表于: 2010-05-11
谢谢！……
回复
举报
离线sumbo
教授级高工

发帖
207
土币
0
威望
1923
原创币
0
只看该作者 11楼 发表于: 2010-05-26
感谢楼主为广大群众的奉献！
回复
举报
发帖 回复
返回列表
1234567
快速回复
限100 字节
温馨提示：欢迎交流讨论，请勿纯表情、纯引用!
 
上一个 下一个

      https://beian.mps.gov.cn/ 粤公网安备 44010602012919号 广州半山岩土网络科技有限公司 粤ICP备2024274469号

      工业和信息化部备案管理系统网站