# Jord - Geographical Position Calculations

**Jord** [*Swedish*] is **Earth** [*English*]

## What is this?

Jord is a Haskell library that implements various geographical position calculations using the algorithms described in Gade, K. (2010) - A Non-singular Horizontal Position Representation,
Shudde, Rex H. (1986) - Some tactical algorithms for spherical geometry and Vincenty, T. (1975) - Direct and Inverse Solutions of Geodesics on the Ellipsoid:

- conversion between ECEF (earth-centred, earth-fixed), latitude/longitude and
*n*-vector positions for spherical and ellipsoidal earth model,
- conversion between latitude/longitude and
*n*-vector positions,
- local, body and north, east, down Frames: delta between positions, target position from reference position and delta,
- great circles: surface distance, initial & final bearing, interpolated position, great circle intersections, cross track distance, ...,
- geodesic: surface distance, initial & final bearing and destination,
- kinematics: position from p0, bearing and speed, closest point of approach between tracks, intercept (time, speed, minimum speed),
- transformation between coordinate systems (both fixed and time-dependent).

## How do I build it?

If you have Stack,
then:

```
$ stack build --test
```

## How do I use it?

See documentation on Hackage

## Solutions to the 10 examples from NavLab

### Example 1: A and B to delta

*Given two positions, A and B as latitudes, longitudes and depths relative to Earth, E.*
*Find the exact vector between the two positions, given in meters north, east, and down, and find the direction (azimuth)
to B, relative to north. Assume WGS-84 ellipsoid. The given depths are from the ellipsoid surface. Use position A to
define north, east, and down directions. (Due to the curvature of Earth and different directions to the North Pole,
the north, east, and down directions will change (relative to Earth) for different places. A must be outside the poles
for the north and east directions to be defined.)*

```
import Data.Geo.Jord.LocalFrames
posA = wgs84Pos 1 2 (metres 3)
posB = wgs84Pos 4 5 (metres 6)
delta = nedBetween posA posB
-- > Ned (Vector3d {vx = 331730.234781, vy = 332997.874989, vz = 17404.271362})
slantRange delta
-- > 470.356717903km
bearing delta
-- > 45°6'33.347"
elevation delta
-- > -2°7'14.011"
```

### Example 2: A and B to delta

*A radar or sonar attached to a vehicle B (Body coordinate frame) measures the distance and direction to an object C.
We assume that the distance and two angles (typically bearing and elevation relative to B) are already combined to the
vector p_BC_B (i.e. the vector from B to C, decomposed in B). The position of B is given as n_EB_E and z_EB, and the
orientation (attitude) of B is given as R_NB (this rotation matrix can be found from roll/pitch/yaw by using zyx2R).*
*Find the exact position of object C as n-vector and depth ( n_EC_E and z_EC ), assuming Earth ellipsoid with semi-major
axis a and flattening f. For WGS-72, use a = 6 378 135 m and f = 1/298.26.*

```
import Data.Geo.Jord.LocalFrames
f = frameB (decimalDegrees 40) (decimalDegrees 20) (decimalDegrees 30)
p = nvectorHeightPos 1 2 3 (metres 400) WGS72
d = deltaMetres 3000 2000 100
target p f d
-- > 53°18'46.839"N,63°29'6.179"E 406.006018m (WGS72)
```

### Example 3: ECEF-vector to geodetic latitude

*Position B is given as an “ECEF-vector” p_EB_E (i.e. a vector from E, the center of the Earth, to B, decomposed in E).
Find the geodetic latitude, longitude and height (latEB, lonEB and hEB), assuming WGS-84 ellipsoid.*

```
import Data.Geo.Jord.Position
geocentricMetresPos 5733900.0 (-6371000.0) 7008100.000000001 WGS84
-- > 39°22'43.495"N,48°0'46.035"W 4702.059834295km (WGS84)
```

### Example 4: Geodetic latitude to ECEF-vector

*Geodetic latitude, longitude and height are given for position B as latEB, lonEB and hEB, find the ECEF-vector
for this position, p_EB_E.*

```
import Data.Geo.Jord.Position
gcvec (wgs84Pos 1 2 (metres 3))
-- > Vector3d {vx = 6373290.277218281, vy = 222560.20067473655, vz = 110568.82718177968}
```

### Example 5: Surface distance

*Find the surface distance sAB (i.e. great circle distance) between two positions A and B. The heights of A and B are
ignored, i.e. if they don’t have zero height, we seek the distance between the points that are at the surface of the
Earth, directly above/below A and B. The Euclidean distance (chord length) dAB should also be found.
Use Earth radius 6371e3 m. Compare the results with exact calculations for the WGS-84 ellipsoid.*

```
import Data.Geo.Jord.GreatCircle
posA = s84Pos 88 0 zero
posB = s84Pos 89 (-170) zero
surfaceDistance posA posB
-- > 332.456901835km
```

*Exact solution for the WGS84 ellipsoid*

```
import Data.Geo.Jord.Geodesic
posA = wgs84Pos 88 0 zero
posB = wgs84Pos 89 (-170) zero
surfaceDistance posA posB
-- > Just 333.947509469km
```

### Example 6: Interpolated position

*Given the position of B at time t0 and t1, n_EB_E(t0) and n_EB_E(t1).*
*Find an interpolated position at time ti, n_EB_E(ti). All positions are given as n-vectors.*

```
import Data.Geo.Jord.GreatCircle
posA = s84Pos 89 0 zero
posB = s84Pos 89 180 zero
f = (16 - 10) / (20 - 10) :: Double
interpolate posA posB f
-- > 89°47'59.929"N,180°0'0.000"E 0.0m (S84)
```

### Example 7: Mean position

*Three positions A, B, and C are given as n-vectors n_EA_E, n_EB_E, and n_EC_E. Find the mean position, M, given as
n_EM_E. Note that the calculation is independent of the depths of the positions.*

```
import Data.Geo.Jord.GreatCircle
ps = [s84Pos 90 0 zero, s84Pos 60 10 zero, s84Pos 50 (-20) zero]
mean ps
-- > Just 67°14'10.150"N,6°55'3.040"W 0.0m (S84)
```

### Example 8: A and azimuth/distance to B

*We have an initial position A, direction of travel given as an azimuth (bearing) relative to north (clockwise), and
finally the distance to travel along a great circle given as sAB. Use Earth radius 6371e3 m to find the destination
point B.*
*In geodesy this is known as “The first geodetic problem” or “The direct geodetic problem” for a sphere, and we see
that this is similar to Example 2, but now the delta is given as an azimuth and a great circle distance.
(“The second/inverse geodetic problem” for a sphere is already solved in Examples 1 and 5.)*

```
import Data.Geo.Jord.GreatCircle
p = s84Pos 80 (-90) zero
destination p (decimalDegrees 200) (metres 1000)
-- > 79°59'29.575"N,90°1'3.714"W 0.0m (S84)
```

*Exact solution for the WGS84 ellipsoid*

```
import Data.Geo.Jord.Geodesic
p = wgs84Pos 80 (-90) zero
destination p (decimalDegrees 200) (metres 1000)
-- > Just 79°59'29.701"N,90°1'3.436"W 0.0m (WGS84)
```

### Example 9: Intersection of two paths

*Define a path from two given positions (at the surface of a spherical Earth), as the great circle that goes through
the two points.*
*Path A is given by A1 and A2, while path B is given by B1 and B2.*
*Find the position C where the two great circles intersect.*

```
import Control.Monad (join)
import Data.Geo.Jord.GreatCircle
a1 = s84Pos 51.885 0.235 zero
a2 = s84Pos 48.269 13.093 zero
b1 = s84Pos 49.008 2.549 zero
b2 = s84Pos 56.283 11.304 zero
ga = greatCircleThrough a1 a2
gb = greatCircleThrough b1 b2
join (intersections <$> ga <*> gb)
-- > Just (50°54'6.260"N,4°29'39.052"E 0.0m (S84),50°54'6.260"S,175°30'20.947"W 0.0m (S84))
ma = minorArc a1 a2
mb = minorArc b1 b2
join (intersection <$> ma <*> mb)
-- > Just 50°54'6.260"N,4°29'39.052"E 0.0m (S84)
```

### Example 10: Cross track distance

*Path A is given by the two positions A1 and A2 (similar to the previous example).
*Find the cross track distance sxt between the path A (i.e. the great circle through A1 and A2) and the position B
(i.e. the shortest distance at the surface, between the great circle and B).*

```
import Data.Geo.Jord.GreatCircle
p = s84Pos 1 0.1 zero
gc = greatCircleThrough (s84Pos 0 0 zero) (s84Pos 10 0 zero)
fmap (\g -> crossTrackDistance p g) gc
-- > Just 11.117814411km
```

## Solutions to kinematics problems

### Closest point of approach

*The Closest Point of Approach (CPA) refers to the positions at which two dynamically moving objects reach their
closest possible distance.*

```
import Data.Geo.Jord.Kinematics
t1 = Track (s84Pos 20 (-60) zero) (decimalDegrees 10) (knots 15)
t2 = Track (s84Pos 34 (-50) (metres 10000)) (decimalDegrees 220) (knots 300)
cpa t1 t2
-- > Just (Cpa {
-- > cpaTime = 3H9M56.155S,
-- > cpaDistance = 124.231730834km,
-- > cpaPosition1 = 20°46'43.641"N,59°51'11.225"W 0.0m (S84),
-- > cpaPosition2 = 21°24'8.523"N,60°50'48.159"W 10000.0m (S84)})
```

### Time required to intercept target

*Inputs are the initial latitude and longitude of an interceptor and a target, and the target course and speed.
Also input is the time of the desired intercept. Outputs are the speed required of the interceptor, the course
of the interceptor, the distance travelled to intercept, and the latitude and longitude of the intercept.*

```
import Data.Geo.Jord.Kinematics
t = Track (s84Pos 34 (-50) zero) (decimalDegrees 220) (knots 600)
ip = s84Pos 20 (-60) zero
d = seconds 2700
interceptByTime t ip d
-- > Just (Intercept {
-- > interceptTime = 0H45M0.000S,
-- > interceptDistance = 1015.302358852km,
-- > interceptPosition = 28°8'12.046"N,55°27'21.411"W 0.0m (S84),
-- > interceptorBearing = 26°7'11.649",
-- > interceptorSpeed = 1353.736478km/h})
```

### Time required to intercept target

*Inputs are the initial latitude and longitude of an interceptor and a target, and the target course and speed. For a
given interceptor speed, it may or may not be possible to make an intercept.*
*The first algorithm is to compute the minimum interceptor speed required to achieve intercept and the time required to
make such and intercept.*
*The second algorithm queries the user to input an interceptor speed. If the speed is at least that required for intercept
then the time required to intercept is computed.*

```
import Data.Geo.Jord.Kinematics
t = Track (s84Pos 34 (-50) zero) (decimalDegrees 220) (knots 600)
ip = s84Pos 20 (-60) zero
intercept t ip
-- > Just (Intercept {
-- > interceptTime = 1H39M53.831S,
-- > interceptDistance = 162.294627463km,
-- > interceptPosition = 20°43'42.305"N,61°20'56.848"W 0.0m (S84),
-- > interceptorBearing = 300°10'18.053",
-- > interceptorSpeed = 97.476999km/h})
interceptBySpeed t ip (knots 700)
-- > Just (Intercept {
-- > interceptTime = 0H46M4.692S,
-- > interceptDistance = 995.596069189km,
-- > interceptPosition = 27°59'36.764"N,55°34'43.852"W 0.0m (S84),
-- > interceptorBearing = 25°56'7.484",
-- > interceptorSpeed = 1296.399689km/h})
```