| 查看: 775 | 回复: 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 ] |
» 猜你喜欢
三甲基碘化亚砜的氧化反应
已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
请问有评职称,把科研教学业绩算分排序的高校吗
已经有5人回复
孩子确诊有中度注意力缺陷
已经有12人回复
2025冷门绝学什么时候出结果
已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
AI论文写作工具:是科研加速器还是学术作弊器?
已经有3人回复
论文投稿,期刊推荐
已经有4人回复
硕士和导师闹得不愉快
已经有13人回复
» 本主题相关价值贴推荐,对您同样有帮助:
【求助】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
libralibra
至尊木虫 (著名写手)
骠骑将军
- 程序强帖: 40
- 应助: 817 (博后)
- 金币: 12914.1
- 红花: 64
- 帖子: 2238
- 在线: 287.3小时
- 虫号: 696514
- 注册: 2009-02-05
- 专业: 计算机软件

2楼2012-11-21 21:08:48
4楼2012-11-21 22:20:21
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














回复此楼