| 查看: 794 | 回复: 4 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
FORTRAN或程序语言数据处理求助
|
||
|
现有a.txt文件，其中数据格式如下： 0 0 0.066830 0 1 -0.030365 0 2 0.004788 0 3 -0.030365 1 0 -0.030365 1 1 -0.002760 1 2 0.042759 1 3 0.053272 2 0 0.004788 2 1 0.042759 2 2 0.000067 2 3 -0.000719 3 0 -0.030365 3 1 0.053272 3 2 -0.000719 3 3 -0.002141 希望通过FORTRAN读入处理，以以下格式输出到b.txt： 0 0 0.066830 1 1 -0.002760 1 0 -0.030365 2 2 0.000067 2 1 0.042759 2 0 0.004788 3 3 -0.002141 3 2 -0.000719 3 1 0.053272 3 0 -0.030365 急切的希望高手帮助，不甚感激！C/C++、VB处理也可。金币不够可以再加. [ Last edited by 1010500 on 2012-11-21 at 20:54 ] |
回复此楼» 猜你喜欢
读博
已经有5人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有13人回复
-
博士申请都是内定的吗？
已经有6人回复
-
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有5人回复
-
博士读完未来一定会好吗
已经有29人回复
-
投稿精细化工
已经有4人回复
-
高职单位投计算机相关的北核或SCI四区期刊推荐，求支招！
已经有4人回复
-
导师想让我从独立一作变成了共一第一
已经有9人回复
-
心脉受损
已经有5人回复
-
Springer期刊投稿求助
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
【求助】Fortran语言赋值问题？
已经有3人回复- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】ANSYS 中命令流编程（fortran）
已经有11人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
- 【求助】有关fortran进行数值模拟
已经有10人回复
- 【求助】origin和mathematica的问题！
已经有6人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
- 【求助】计算电子密度图【已解决】
已经有14人回复
chembetsey
木虫 (小有名气)
- 应助: 125 (高中生)
- 金币: 3820.1
- 散金: 5
- 红花: 9
- 帖子: 262
- 在线: 281.8小时
- 虫号: 1781694
- 注册: 2012-04-27
- 专业: 理论和计算化学
3楼2012-11-21 21:39:27
chembetsey
木虫 (小有名气)
- 应助: 125 (高中生)
- 金币: 3820.1
- 散金: 5
- 红花: 9
- 帖子: 262
- 在线: 281.8小时
- 虫号: 1781694
- 注册: 2012-04-27
- 专业: 理论和计算化学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
jjdg: 金币+1, 感谢参与 2012-11-22 10:05:40
1010500: 金币+30, ★★★★★最佳答案, 非常感谢你的帮助！ 2012-11-23 15:01:10
jjdg: 金币+1, 感谢参与 2012-11-22 10:05:40
1010500: 金币+30, ★★★★★最佳答案, 非常感谢你的帮助！ 2012-11-23 15:01:10
|
改正错误是你学习的必经途径。 integer i, j, k real*8 R(0:3,0:3) open(unit=1, file='A.txt') open(unit=2, file='B.txt') read(1, *) ( (k, j, R(i, j), j=0,3), i=0, 3) do i=0,3 write(2, '(100(I3, I3, F10.6))') (i, j, R(i, j), j=i, 0, -1) end do end |
5楼2012-11-21 23:03:58