Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 把txt文档中的每一列数据按每一行固定数据个数输出 ...

把txt文档中的每一列数据按每一行固定数据个数输出

查看数: 9009 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

wawewen

发布时间: 2019-11-25 15:31

正文摘要:

本帖最后由 wawewen 于 2019-11-25 16:10 编辑文件如图1所示，纵轴是角度，横轴是半径，现在要将每个半径下的数据生成到另一个txt文档中，按每行十个数据输出，每组数据之前要有对应的半径，如图2所示写的代码 ...

wawewen 发表于 2019-11-26 13:33:17

necrohan 发表于 2019-11-26 12:16
[mw_shl_code=fortran,true]program main
implicit none
integer,parameter::nx=721,ny=604

多谢指点，已经完成了

necrohan 发表于 2019-11-26 12:16:14

本帖最后由 necrohan 于 2019-11-26 12:17 编辑

[Fortran] 纯文本查看 复制代码

01program main
02        implicit none
03        real,dimension(721,604)::a
04        integer i,j
05        open(unit=10,file="C:\Users\Lenovo\Desktop\1.csv")
06        open(unit=20,file="C:\Users\Lenovo\Desktop\BMap.txt")
07        do j=2,604
08        do i=1,721
09        read(10,*,end=1)a(i,j)
10        if(i==1)then
11        write(20,*)a(i,j)
12        else if(i/=1)then
13        write(20,100)a(i,j)
14100  format(10f9.2)
15        end if
16        end do
17        end do
18 1        close(10)
19        close(20)
20        end

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

GMT+8, 2025-5-5 04:34

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