Measures the Great Circle distance between two positions.
Visual Basic |
---|
Public Function MeasureGreatCircle( _ ByVal x1 As Double, _ ByVal y1 As Double, _ ByVal z1 As Double, _ ByVal x2 As Double, _ ByVal y2 As Double, _ ByVal z2 As Double, _ ByVal datum As String _ ) As Double |
The Great Circle distance found.
The measurement is done using the following algorithm:
radAve# = radEquator# + (radPole# - radEquator#) * sin(latAve#)
Available: GEO ME MD OD SISpy
Group:
dGcDistance = sis.MeasureGreatCircle (27.85, 39.53, 0, 34.11, 36.75, 0, "OGC.WGS_1984")
returns a floating point number representing the great circle distance in metres from 39.53°N, 27.85°W to 36.75°N, 34.11°W within the WGS 84 geodetic datum.
dGcDistance = sis.MeasureGreatCircle (134200, 25380, 0, 340598, 973180, 0, "OGC.OSGB_1936")
returns a floating point number representing the great circle distance in metres from Land’s End to John o’ Groats within the OSGB 1936 geodetic datum.
Send comments on this topic.
Click to return to www.cadcorp.com
© Copyright 2000-2017 Computer Aided Development Corporation Limited (Cadcorp).