Fortran Coder

标题: 新人求助，在不同文件中查找对应编号的坐标 [打印本页]

作者: hyy 时间: 2017-2-27 11:51
标题: 新人求助，在不同文件中查找对应编号的坐标
求教一个问题，我现在有一系列的数据，就是第一列是编号，第二，第三，第四是x，y，z的坐标信息，想要把它读取出来。然后又有一个数据文本，只知道编号，想把他的x，y，z坐标读取出来。

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



OPEN (10,FILE='E:\finde node\out_node.DAT',STATUS='OLD') 

    call nodeinformation(i)

    close(10)

    OPEN (20,FILE='E:\finde node\in_node.DAT',STATUS='OLD') 

    call nodeinformation(i)

    close(20)



     nodeinformaition(i) 

     OPEN (5,FILE='E:\finde node\node.DAT',STATUS='OLD') 

     read(5,*)  

     n=n/4   ！



     do i=1,n

     read(5,*)  node(i),x(i),y(i),z(i)

   !!write(*,*)  node(i),x(i),y(i),z(i)

     end do 

     close(5)

QQ截图20170227115046.png (45.5 KB, 下载次数: 305)

QQ截图20170227115102.png (32.9 KB, 下载次数: 283)

作者: fcode 时间: 2017-2-27 13:31
你的表述很乱。

1.你的编号，XYZ文件是哪个？对应代码中的什么文件名？对应截图中的哪个？
2.又一个文件？是什么格式？对应代码中的什么？对应截图中的哪个？
3.你想要的输出是什么？

作者: hyy 时间: 2017-2-27 16:00

fcode 发表于 2017-2-27 13:31
你的表述很乱。

1.你的编号，XYZ文件是哪个？对应代码中的什么文件名？对应截图中的哪个？

第一张图的第一列的1代表的编号，第二列代表的x，第三列是y，第四列是z。文件名是csv格式。第二张图是第二个文件，格式也是csv格式，里面是只有编号，我想的是根据第二个文件里的编号从第一个的数据库的坐标信息中，找出对应的数据库！！这次不知道您听懂了没？？

作者: li913 时间: 2017-2-27 17:37
本帖最后由 li913 于 2017-2-28 09:44 编辑

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

!假设第一个文件有M行，第二个有N个数据

integer,parameter::::m=10,n=3

real(4) a(3,m)

integer(4) b(n)



open(10,file='1.csv',status='old')

read(10,*) a 

close(10)

open(20,file='2.csv',status='old')

read(20,*) b

close(20)

open(30,file='out.txt')

do i=1,n

write(30,*) a(:,b(i))

close(30)

end program

作者: hyy 时间: 2017-2-28 08:48

li913 发表于 2017-2-27 17:37
[mw_shl_code=fortran,true]!假设第一个文件有M行，第二个有N个数据
integer,parameter::::m=10,n=3
real(4 ...

我不知道你的第二次打开1.csv是为什么？？即第九行 ..

作者: li913 时间: 2017-2-28 09:44

hyy 发表于 2017-2-28 08:48
我不知道你的第二次打开1.csv是为什么？？即第九行 ..

写错，改过来了。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)