Fortran Coder

楼主: yangpeinian
打印 上一主题 下一主题

[文件读写] fortran将txt文件中的一列数据赋值给一维数组

[复制链接]

11

帖子

1

主题

0

精华

入门

F 币
46 元
贡献
26 点
11#
 楼主| 发表于 2020-5-4 16:00:27 | 只看该作者
vvt 发表于 2020-5-4 15:09
我试了一下,读出来的数据画图如你给出的图片2一样。

那么这张图,是如何得到的呢?

首先表示感谢您的有效回复。这个是我把文件中的数据赋值给一个一维数组,然后让这个数组是声场计算中的声源。计算后提取声源处的波形,就得到是第一幅图的波形。图1和图2的起跳点大概一致,有没有可能是数据计算的有效位数问题?但是我定义的是real(8),精度应该够吧

11

帖子

1

主题

0

精华

入门

F 币
46 元
贡献
26 点
12#
 楼主| 发表于 2020-5-4 16:02:08 | 只看该作者
vvt 发表于 2020-5-4 15:09
我试了一下,读出来的数据画图如你给出的图片2一样。

那么这张图,是如何得到的呢?

所以可以肯定的是,数据赋值应该没有问题。但是在计算过程中可能有什么有效位数的问题。

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
13#
发表于 2020-5-4 17:09:29 | 只看该作者
这需要你提供计算过程的代码,相关逻辑对应的公式,才能判断。

11

帖子

1

主题

0

精华

入门

F 币
46 元
贡献
26 点
14#
 楼主| 发表于 2020-5-4 18:40:26 | 只看该作者
本帖最后由 yangpeinian 于 2020-5-15 10:45 编辑
vvt 发表于 2020-5-4 17:09
这需要你提供计算过程的代码,相关逻辑对应的公式,才能判断。

麻烦请指教!不胜感激!

11

帖子

1

主题

0

精华

入门

F 币
46 元
贡献
26 点
15#
 楼主| 发表于 2020-5-4 18:48:23 | 只看该作者
vvt 发表于 2020-5-4 17:09
这需要你提供计算过程的代码,相关逻辑对应的公式,才能判断。

程序是在原来有限差分的基础上改的。之前的程序声源直接是一个声源函数,现在的是把声源波形的txt文件数据赋值,设为新的声源。程序可能不好看懂,模型就是包括轴向和径向两个方向的声场计算,需要得到不同时刻不同位置的跟声场相关的物理量。总之就是时间循环里嵌套了一个轴向网格循环,里面再嵌套了一个径向网格循环。

250

帖子

2

主题

0

精华

宗师

F 币
1731 元
贡献
872 点

规矩勋章

16#
发表于 2020-5-7 16:11:41 | 只看该作者
对于不能完整贴源代码的,建议楼主自己调试:删掉里面不相关的部分,只保留有问题的部分,找到问题再去改完整的程序。

11

帖子

1

主题

0

精华

入门

F 币
46 元
贡献
26 点
17#
 楼主| 发表于 2020-5-15 10:37:38 | 只看该作者
necrohan 发表于 2020-5-7 16:11
对于不能完整贴源代码的,建议楼主自己调试:删掉里面不相关的部分,只保留有问题的部分,找到问题再去改完 ...

好的,问题已解决,感谢!

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

18#
发表于 2020-5-15 22:39:26 | 只看该作者
问题解决就解决了,干嘛还把帖子内容清空了。。。。真是无法理解。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-24 21:20

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表