1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Imports NETGeographicLib
Module example_Ellipsoid
Sub Main()
Try
Dim wgs84 As Ellipsoid = New Ellipsoid(Constants.WGS84.MajorRadius,
Constants.WGS84.Flattening)
' Alternatively: Dim wgs84 As Ellipsoid = new Ellipsoid()
Console.WriteLine(String.Format(
"The latitude half way between the equator and the pole is {0}",
wgs84.InverseRectifyingLatitude(45)))
Console.WriteLine(String.Format(
"Half the area of the ellipsoid lies between latitudes +/- {0}",
wgs84.InverseAuthalicLatitude(30)))
Console.WriteLine(String.Format(
"The northernmost edge of a square Mercator map is at latitude {0}",
wgs84.InverseIsometricLatitude(180)))
Catch ex As GeographicErr
Console.WriteLine(String.Format("Caught exception: {0}", ex.Message))
End Try
End Sub
End Module
|
