求两坐标点距离

wxy · 发表于 2017-3-18 21:43:30

本帖最后由 wxy 于 2017-3-19 12:41 编辑

我想实现输入一个坐标点跟文件中所有坐标点依次进行距离计算然后输出距离最近点，但是现在的代码出现图中的问题,计算出来全是是第一个坐标的值, 麻烦帮看一下应该怎么改

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

01real function distance(lat1, lon1, lat2, lon2)
02real , parameter ::  R=6378.137
03real lon1 , lat1 , lon2 , lat2
04distance = (R*cos(lon1)*cos(lat1)+R*cos(lon2)*cos(lat2))/sqrt(sin(lon1)**2*sin(lon2)**2+sin(lat1)**2*sin(lat2)**2)
05end function distance
06program none
07    implicit none
08    integer i,m
09    character(len=12):: site
10    real :: lat , lon , lat1 , lon1 , distance
11    real , allocatable ::  lat2(:) , lon2(:)
12 
13    open(7,file="find_close.txt")
14    open(10,file="find.txt")
15    m=46154 !行数
16    allocate(lat2(m),lon2(m))
17 
18    Write (*,*) 'lon:'!输入经度
19    Read (*, '(f7.3)') lon
20 
21    Write (*,*) 'lat:'!输入纬度
22    Read (*, '(f6.3)') lat
23 
24    do i=1,m
25        lon1=lon
26        lat1=lat
27        read(7,'(a9,2x,f6.3,2x,f7.3)') site , lat2(i) , lon2(i)
28        write(10,'(a9,2x,f6.2,2x,f7.2,2x,f9.3)') site , lat2(i) , lon2(i) , distance(lat1, lon1, lat2, lon2)
29    end do
30end program

Jackdaw · 发表于 2017-3-19 12:51:13

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

1do i=1,m
2        lon1=lon
3        lat1=lat
4        read(7,'(a9,2x,f6.3,2x,f7.3)') site , lat2(i) , lon2(i)
5        write(10,'(a9,2x,f6.2,2x,f7.2,2x,f9.2)') site , lat2(i) , lon2(i) , distance(lat1, lon1, lat2(i), lon2(i))
6    end do

wxy · 发表于 2017-3-19 14:12:28

本帖最后由 wxy 于 2017-3-19 14:14 编辑

再请教一下,我把计算出来的距离放入动态数组near,用minval找到距离最小值,如果要把最小值所在的那一行输出,应该怎么改呢,minloc和minval第一次用,

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

01real function distance(lat1, lon1, lat2, lon2)
02real , parameter ::  R=6378.137
03real lon1 , lat1 , lon2 , lat2
04distance = abs(R*cos(lon1)*cos(lat1)+R*cos(lon2)*cos(lat2))/sqrt(sin(lon1)**2*sin(lon2)**2+sin(lat1)**2*sin(lat2)**2)
05end function distance
06program none
07    implicit none
08    integer i,m
09    character(len=12):: site
10    real :: lat , lon , lat1 , lon1 , distance , loc , nearmin
11    real , allocatable ::  lat2(:) , lon2(:) , near(:)
12 
13    open(7,file="find_close.txt")
14    open(10,file="near.txt")
15    m=46154 !行数
16    allocate(lat2(m),lon2(m),near(m))
17 
18    Write (*,*) 'lon:'!输入经度
19    Read (*, '(f7.3)') lon
20 
21    Write (*,*) 'lat:'!输入纬度
22    Read (*, '(f6.3)') lat
23 
24    do i=1,m
25        lon1=lon
26        lat1=lat
27        read(7,*) site , lat2(i) , lon2(i)
28        write(10,'(a9,2x,f6.2,2x,f7.2,2x,f11.2)') site , lat2(i) , lon2(i) , distance(lat1, lon1, lat2(i), lon2(i))
29    end do
30    close(10)
31!======================================================================================================================
32    open(10,file="near.txt")
33    do i=1,m
34        read(10,*)site , lat2(i) , lon2(i) , near(i)
35        nearmin= minval(near(:))
36        loc=minloc(near(:),1)
37        print *, nearmin, loc
38    end do
39 
40end program

Jackdaw · 发表于 2017-3-19 14:28:27

wxy 发表于 2017-3-19 14:12
再请教一下,我把计算出来的距离放入动态数组near,用minval找到距离最小值,如果要把最小值所在的那一行输出 ...

参考这个示例

wxy · 发表于 2017-3-19 14:57:54

Jackdaw 发表于 2017-3-19 14:28
参考这个示例

谢谢现在已经成功输出最小值的位置了,如果我想直接把最小值那一行输出,在知道行号的情况下,用什麽语句呢,以前只写过从第几行开始读,但没写过指定第几行输出,print *,怎样才能把指定行输出

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

1    open(10,file="near.txt")
2    do i=1,m
3        read(10,*)site , lat2(i) , lon2(i) , near(i)
4    end do
5        write(*,*)"最小值",minval(near(1:m))
6        write(*,*)"最小值位置",minloc(near(1:m))
7end program

Jackdaw · 发表于 2017-3-19 15:34:13

wxy 发表于 2017-3-19 14:57
谢谢现在已经成功输出最小值的位置了,如果我想直接把最小值那一行输出,在知道行号的情况下,用什麽语句呢 ...

额，这个都找到了，你写到文件里的数据不都是按行，一行一行的排列好的吗，既然找到了想找的行数，直接把相应的数据输出就行

wxy · 发表于 2017-3-19 15:48:23

Jackdaw 发表于 2017-3-19 15:34
额，这个都找到了，你写到文件里的数据不都是按行，一行一行的排列好的吗，既然找到了想找的行数，直接把 ...

嗯嗯谢谢

wxy · 发表于 2017-3-19 22:34:40

本帖最后由 wxy 于 2017-3-19 22:49 编辑

Jackdaw 发表于 2017-3-19 15:34
额，这个都找到了，你写到文件里的数据不都是按行，一行一行的排列好的吗，既然找到了想找的行数，直接把 ...

额最后一步还是做不出来,还是得麻烦您帮看一下第五十行是 k=minloc(near(1:m))

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

01    open(10,file="near.txt")
02    do i=1,m
03        read(10,*)site(i) , lat2(i) , lon2(i) , near(i)
04    end do
05        write(*,*)"最小值",minval(near(1:m))
06        write(*,*)"最小值位置",minloc(near(1:m))
07!======================================================================================================================
08!输出最近坐标点所在行
09!======================================================================================================================
10    k=minloc(near(1:m))
11    do i=1,m
12        if (i==k)then
13            read(10,'(a9,2x,f6.2,2x,f7.2,2x,f11.2)') site(i) , lat2(i) , lon2(i) , near(i)
14            print *, site(i) , lat2(i) , lon2(i) , near(i)
15            exit
16        end if
17    end do
18end program

[数值问题] 求两坐标点距离