首页岩土在线评论员岩土论坛注册岩土工程市场岩土问答岩土人才网岩土领域岩土企业

论坛首页职业区学术与写作工程技术区软件区资料区商务合作区社区办公室

您好！欢迎登录或注册

最新帖子邀请注册活动聚焦统计排行社区服务帮助

热搜：注册岩土规范勘察基坑

12 3 4 5 6 7

21612阅读
80回复

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

上一主题下一主题查看指定楼层

查看指定楼层

离线ricozhou1231

助理工程师

发帖: 74

土币: 611

威望: 324

原创币: 0

只看楼主倒序阅读使用道具楼主发表于: 2010-04-12

昨天学习了hoverdyh博士的“自编反应谱计算MATLAB程序！”，收益颇多，但是matlab的一个重要的问题是在matlab的环境下才能运行，因此我试着稍微改编了一下m文件成Fortran程序，不过计算方法有所减少，只应用了纽马克线性加速度法计算反应谱，而且只能一次输出一个阻尼值对应的反应谱。通过对比seismosignal的计算结果，其默认计算方法与此程序的结果基本一样，误差不超过1%！特把fortran源程序以及exe文件贴出来，相互学习。

注：反应谱计算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

土币: 3

威望: 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

土币: 19249

威望: 2051

原创币: 0

只看该作者 10楼发表于: 2010-05-11

谢谢！……

离线sumbo

教授级高工

发帖: 207

土币: 0

威望: 1923

原创币: 0

只看该作者 11楼发表于: 2010-05-26

感谢楼主为广大群众的奉献！

12 3 4 5 6 7

浙公网安备 33010602003799号浙ICP备14021682号-1

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